當桌面lock時VBS sendkey無法work
- 帖子
- 47
- 主題
- 12
- 精華
- 0
- 積分
- 70
- 點名
- 0
- 作業系統
- WIN7
- 軟體版本
- 2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- TAIWAN
- 註冊時間
- 2010-7-28
- 最後登錄
- 2021-12-1
|
當桌面lock時VBS sendkey無法work
因為底下的程式必須要放在自動排程執行,但是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 [email protected]"
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() |
|
|
|
|
|
|
|
- 帖子
- 47
- 主題
- 12
- 精華
- 0
- 積分
- 70
- 點名
- 0
- 作業系統
- WIN7
- 軟體版本
- 2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- TAIWAN
- 註冊時間
- 2010-7-28
- 最後登錄
- 2021-12-1
|
2#
發表於 2011-11-11 12:47
| 只看該作者
沒有人看得懂我的問題嗎? |
|
|
|
|
|
|
|
- 帖子
- 47
- 主題
- 12
- 精華
- 0
- 積分
- 70
- 點名
- 0
- 作業系統
- WIN7
- 軟體版本
- 2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- TAIWAN
- 註冊時間
- 2010-7-28
- 最後登錄
- 2021-12-1
|
3#
發表於 2011-11-14 14:18
| 只看該作者
這個版好像比較少人關注,我的問題解決了,有需要的人參考看看~
回復 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 [email protected]
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} |
|
|
|
|
|
|
|
