|
这是我在公司用迅雷下东西的代码,从来没有出现过问题:(没有发现有定时下载,定时停止的下载软件)
Dim MyDate
MyDate = WeekDayName(WeekDay(now),True)
strs = "星期五"
If (strcomp(strs,MyDate) = 0) Then
Wait(3600*7)
SystemUtil.Run "C:\Program Files\Thunder Network\Thunder\Thunder.exe","","","open"
Wait(3600*9)
systemutil.CloseProcessByName "Thunder5.exe"
Wait(3600*15)
SystemUtil.Run "C:\Program Files\Thunder Network\Thunder\Thunder.exe","","","open"
Wait(3600*9)
systemutil.CloseProcessByName "Thunder5.exe"
Wait(3600*15)
SystemUtil.Run "C:\Program Files\Thunder Network\Thunder\Thunder.exe","","","open"
Wait(3600*4)
systemutil.CloseProcessByName "Thunder5.exe"
Else
Wait(3600*7)
SystemUtil.Run "C:\Program Files\Thunder Network\Thunder\Thunder.exe","","","open"
Wait(3600*7)
systemutil.CloseProcessByName "Thunder5.exe"
End If
[ 本帖最后由 zbyufeifei 于 2008-6-24 11:55 编辑 ] |
|