返回列表 上一主題 發帖

當桌面lock時VBS sendkey無法work

herhsiu

帖子
47 
主題
12 
精華
0 
積分
70 
點名
0  
作業系統
WIN7 
軟體版本
2007 
閱讀權限
20 
性別
男 
來自
TAIWAN 
註冊時間
2010-7-28 
最後登錄
2021-12-1 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2011-11-9 09:59 | 只看該作者

當桌面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()
收藏 分享

herhsiu

帖子
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}

TOP

herhsiu

帖子
47 
主題
12 
精華
0 
積分
70 
點名
0  
作業系統
WIN7 
軟體版本
2007 
閱讀權限
20 
性別
男 
來自
TAIWAN 
註冊時間
2010-7-28 
最後登錄
2021-12-1 
2#
發表於 2011-11-11 12:47 | 只看該作者
沒有人看得懂我的問題嗎?

TOP

        靜思自在 : 天上最美是星星，人生最美是溫情。
返回列表 上一主題