在VBScript中，你可以使用一個(gè)無限循環(huán)，并在每次迭代中使用 WScript.Sleep 方法暫停一段時(shí)間，然后后續(xù)繼續(xù)執(zhí)行。

一、創(chuàng)建循環(huán)運(yùn)行的run-everySecond.vbs文件【雙擊次文件即可啟動(dòng)運(yùn)行】

dim a
set a=CreateObject("Wscript.Shell")
Do
##運(yùn)行xxx.exe文件,后面的0表示：不彈出運(yùn)行黑窗口
a.run "E:/xxx.exe",0
Wscript.Sleep 60000
Loop

注：

1.a.run "E:/xxx.exe",0 ：運(yùn)行xxx.exe文件,后面的0表示不彈出運(yùn)行黑窗口

2.Wscript.Sleep 60000：休息60秒，即每分鐘循環(huán)執(zhí)行

代碼二

Set WshShell = WScript.CreateObject("WScript.Shell")
' 設(shè)置你想要執(zhí)行的程序路徑
strProgramToRun = "C:\Path\To\Your\Program.exe"
' 設(shè)置間隔時(shí)間（毫秒）
intervalTime = 1000 * 60 ' 例如，60 秒
Do While True
    ' 執(zhí)行程序
    WshShell.Run strProgramToRun, 0, False
    ' 暫停指定的時(shí)間
    WScript.Sleep(intervalTime)
Loop

請將 strProgramToRun 的值替換為你想要執(zhí)行的程序的路徑。intervalTime 變量定義了兩次執(zhí)行之間的間隔時(shí)間，以毫秒為單位。
注意：這個(gè)腳本會(huì)持續(xù)不斷地運(yùn)行，直到你手動(dòng)終止它。

代碼三

每隔一段時(shí)間自動(dòng)敲鍵盤的的vbs腳本

set ws=createobject("wscript.shell") 
do 
ws.sendkeys "{TAB}" 
WScript.Sleep Int(6	*Rnd+1)*1000
loop

每隔1~6秒,按一次TAB鍵
即可以是{TAB}也可以{F5}刷新頁面
定義每次按鍵的間隔
WScript.Sleep Int(6*Rnd+1)*1000
睡眠一定的時(shí)間
Rnd : 生成一個(gè)[0,1)的數(shù)
*Int(6 Rnd+1) : 生成一個(gè)1-6之間的整數(shù)
1s = 1000ms
WScript.Sleep Int(6 *Rnd+1)*1000 : 每次睡眠1~6秒

二、創(chuàng)建停止循環(huán)運(yùn)行的shutdown-everySecond.vbs文件【雙擊次文件即可停止運(yùn)行】

dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "taskkill /im wscript.exe /f ",0 ,true

或者創(chuàng)建停止運(yùn)行的shutdown-everySecond.bat文件【雙擊次文件即可停止運(yùn)行】

taskkill -f -t -im wscript.exe

注：bat文件，沒法去掉黑窗口的彈出

到此這篇關(guān)于Windows系統(tǒng)中通過vbs實(shí)現(xiàn)循環(huán)運(yùn)行.bat/.exe等文件的文章就介紹到這了,更多相關(guān)vbs定時(shí)循環(huán)運(yùn)行內(nèi)容請搜索腳本之家以前的文章或繼續(xù)瀏覽下面的相關(guān)文章希望大家以后多多支持腳本之家！

最新評論