F5 kiküldése parancsfájlból

[Nagy Sándor]

2010-09-09 18:41 keltezéssel, Bagó István írta:
> A fájl így néz ki:
>
> taskkill /im pptview.exe
>
> if exist "\\orion\ppt\Aktualis informaciok2.pptx" del 
> "\\orion\ppt\Aktualis informaciok.pptx"
>
> if exist "\\orion\ppt\Aktualis informaciok2.pptx" ren 
> "\\orion\ppt\Aktualis informaciok2.pptx" "Aktualis informaciok.pptx"
>
> "C:\Program Files\Microsoft Office\Office14\pptview.exe" 
> \\orion\ppt\Aktualis informaciok.pptx 
> <file:///%5C%5Corion%5Cppt%5CAktualis%20informaciok.pptx>
>
> Nos, ennek a végén kellene még egy F5-öt kiküldenem valahogy. Tud 
> valaki segíteni?
>
>
Konkrétan most nem írtam át, de van egy tuti kis demonstrációs .vbs 
parancsfájlom, ami ugyan nem .bat de egy jegyzettömböt elindít és pár 
billentyűt bead neki. :) Ez alapján szerintem elő tudsz állítani 
ilyesmit... lent mellékelem.
Gond csak akkor lehet ha menet közben elveszi valami a fókuszt, de az 
AppActivate gyakori alkalmazásával ez kikerülhető.

N.S.

'WScript objektum
set Sh = WScript.CreateObject("WScript.Shell")

'elindítjuk a jegyzettömböt
Sh.Run "%windir%\notepad.exe", 1, False
'megvárjuk míg elindul
WScript.Sleep 1000
'aktiváljuk, bár ez nem szükséges az Sh.Run sorban az 1 azt jelenti 
aktív lesz
Sh.AppActivate "Jegyzettömb"

Sh.SendKeys "Hello világ!"
Sh.SendKeys "{CAPSLOCK}"
Sh.SendKeys "{ENTER}"
WScript.Sleep 2000
Sh.SendKeys "j"
WScript.Sleep 800
Sh.SendKeys "ó"
WScript.Sleep 800
Sh.SendKeys "m"
WScript.Sleep 800
Sh.SendKeys "i"
WScript.Sleep 800
Sh.SendKeys "?"
WScript.Sleep 800
Sh.SendKeys "{CAPSLOCK}"
WScript.Sleep 800

'ALT-F4 bezáráshoz
Sh.SendKeys "%{F4}"
WScript.Sleep 500
'ALT-N vagyis nem kérjük menteni
Sh.SendKeys "%N"

'WScript objektum lezárása
WScript.Quit 0

--------- következő rész ---------
Egy csatolt HTML állomány át lett konvertálva...
URL: http://lista.sulinet.hu/pipermail/techinfo/attachments/20100910/1220217b/attachment.html