Windows系统中通过vbs实现循环运行.bat/.exe等文件

斗鸡眼

在VBScript中，你可以使用一个无限循环，并在每次迭代中使用 WScript.Sleep 方法暂停一段时间，然后后续继续执行。

一、创建循环运行的run-everySecond.vbs文件【双击次文件即可启动运行】

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

注：

1.a.run "E:/xxx.exe",0 ：运行xxx.exe文件,后面的0表示不弹出运行黑窗口

2.Wscript.Sleep 60000：休息60秒，即每分钟循环执行

代码二

Set WshShell = WScript.CreateObject("WScript.Shell")
' 设置你想要执行的程序路径
strProgramToRun = "C:\Path\To\Your\Program.exe"
' 设置间隔时间（毫秒）
intervalTime = 1000 * 60 ' 例如，60 秒
Do While True
    ' 执行程序
    WshShell.Run strProgramToRun, 0, False
    ' 暂停指定的时间
    WScript.Sleep(intervalTime)
Loop

请将 strProgramToRun 的值替换为你想要执行的程序的路径。intervalTime 变量定义了两次执行之间的间隔时间，以毫秒为单位。
注意：这个脚本会持续不断地运行，直到你手动终止它。

代码三

每隔一段时间自动敲键盘的的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
睡眠一定的时间
Rnd : 生成一个[0,1)的数
*Int(6 Rnd+1) : 生成一个1-6之间的整数
1s = 1000ms
WScript.Sleep Int(6 *Rnd+1)*1000 : 每次睡眠1~6秒

二、创建停止循环运行的shutdown-everySecond.vbs文件【双击次文件即可停止运行】

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

或者创建停止运行的shutdown-everySecond.bat文件【双击次文件即可停止运行】

taskkill -f -t -im wscript.exe

注：bat文件，没法去掉黑窗口的弹出