求自动运行某程序脚本

来源：百度知道 编辑：UC知道 时间：2024/07/08 21:41:31
想要一个小的脚本，具体是这样的：
每间180秒自动运行D盘下的test.exe

求高手。。
操作步骤稍微详细些。谢谢。
不好意思，按照S68651521，运行的时候提示行7 字符1 缺少语句。

添加一个Timer控件

Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Static s As Integer
s = s + 1
If s = 180 Then
Shell "D:\test.exe", vbNormalFocus
s = 0
End If
End Sub

添加个Timer

代码如下
Private Sub Form_Load()
Timer1.Interval = 60000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Static n As Integer
n = n + 1
If n >= 3 Then Shell "d:\test.exe": n = 0
End Sub

:xunhuan
start d:\test.exe
::睡眠180秒
ping -n 180 127.0.0.1
goto xunhuan

建立文本文件把上面的代码复制进去，文件名字改成d.bat 或者其他文件名 扩展名要是bat就可以了

'XX.vbs

Dim objWSH
Set objWSH = CreateObject("Wscript.Shell")
Do
'死循环
objWSH.Run "D:\test.exe" '运行程序。

'|如果你要运行木马的话，好自为之。|

WScript.Sleep 180000 '