RE: F5 kiküldése parancsfájlból

[Bagó István]

Kösz, ez nagyon jó, bár végül az Off2007 saját pptview fájlja megoldotta a dolgot, az megy rendesen.

Nem kell neki küldeni semmit, alapból teljes képernyőn és folyamatosan vetít.

 

István

 

From: techinfo-bounces at lista.sulinet.hu [mailto:techinfo-bounces at lista.sulinet.hu] On Behalf Of Nagy Sándor
Sent: Friday, September 10, 2010 7:23 PM
To: Techinfo
Subject: Re: F5 kiküldése parancsfájlból

 

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/20100913/9c27e0f0/attachment.html