當桌面lock時VBS sendkey無法work

herhsiu

因為底下的程式必須要放在自動排程執行,但是window在lock的狀態下無法執行sendkey command,所以程式無法work,請問該如何把檔案轉換成批次檔讓程式可以順利執行?

Const ForReading = 1
no = 0
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile ("D:\IP.txt", ForReading)

Do Until objTextFile.AtEndOfStream

strComputer = objTextFile.ReadLine
set arg=WScript.Arguments
set sh=WScript.CreateObject("WScript.Shell")
sh.Run "cmd.exe /c start /realtime telnet " & strComputer
WScript.Sleep 1500
sh.SendKeys "act{ENTER}"
WScript.Sleep 1000
sh.SendKeys "act0{ENTER}"
WScript.Sleep 1000
sh.SendKeys "/home/act/ec/utl/modpack.sh"+"{ENTER}"
WScript.Sleep 30000
sh.SendKeys "/home/act/ec/utl/prmpack.sh"+"{ENTER}"
WScript.Sleep 30000
sh.SendKeys "/home/act/cmp_prm"+"{ENTER}"
WScript.Sleep 500
sh.SendKeys "exit{ENTER} "
Set WshShell = Nothing
WScript.Sleep 60000

Loop
objTextFile.Close
sh.SendKeys "{ENTER}"

Dim fsh      
Set fsh = WScript.CreateObject ("WScript.Shell")      
WScript.Sleep 800     
fsh.Run "D:\putty.exe -rlogin ab558@10.18.56.12"
WScript.Sleep 800      
fsh.SendKeys "dom", True
fsh.SendKeys "~", True
WScript.Sleep 800  
fsh.SendKeys "/usr/report/comp", True
fsh.SendKeys "~", True
WScript.Sleep 500
fsh.SendKeys "exit", True
fsh.SendKeys "~", True
WScript.Quit()

herhsiu

沒有人看得懂我的問題嗎?

herhsiu

這個版好像比較少人關注,我的問題解決了,有需要的人參考看看~

回復 2# herhsiu


    Loop Read, D:\IP.txt
{
   strComputer := A_LoopReadLine
   Run cmd.exe /c start /realtime telnet %strComputer%
   Sleep 1500
   Send act{ENTER}
   Sleep 1000
   Send act0{ENTER}
   Sleep 1000
   ; Send /home/act/ec/utl/inqpack.sh{ENTER}
   Sleep 500
   Send /home/act/ec/utl/modpack.sh{ENTER}
   Sleep 30000
   Send /home/act/ec/utl/prmpack.sh{ENTER}
   Sleep 30000
   Send /home/act/cmp_prm{ENTER}
   Sleep 500
   Send exit{ENTER}
   Sleep 60000
}
Send {ENTER}

Sleep 800
Run D:\putty.exe -rlogin ab558@10.18.56.12
Sleep 800
Send freedom
Send {ENTER}
Sleep 800
Send /usr/asm/sys.0000/hhh/report/track_comp
Send {ENTER}
Sleep 500
Send exit
Send {ENTER}