用VB写一个开机启动某软件5分钟循环一次

@if

%1*

neq

0*

mshta

vbscript:createobject("wscript.shell").run("%~s0

0",0)(window.close)&exit

a:

echo

这里写你要循环的程序

taskkill

/F

/IM

wangwang.exe

ping

-n

50

127.1>nul

echo

上面的

-n

后面的50

数字大时间就更长

goto

a

把以上存为bat

不用VB写的

怎么加入启动项不用说了吧

C:\Documents

and

Settings\Administrator\「开始」菜单\程序\启动

能用记得给分

Dim a As Integer

Private Sub Form_Load()

 Timer1.Interval = 60000 '1分钟

 a = 300 '300分钟 = 5小时

End Sub

Private Sub Timer1_Timer()

 a = a - 1

 If a = 0 Then

  Shell "d:\wj\1.exe"

  a = 300

 End If

End Sub

---