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
_______________________________________________
Techinfo mailing list
[email protected]
Fel- és leiratkozás: http://lista.sulinet.hu/mailman/listinfo/techinfo
Illemtan: http://www.szag.hu/illemtan.html
Ügyfélszolgálat FAQ: http://www.kozhaloportal.hu/gyik/altalanos/
