|
本帖最后由 ufozhouyu 于 2009-7-28 23:24 编辑
#NoTrayIcon
Opt("WinTitleMatchMode", 2)
Global $time = 0
$Thetitle = "RsClientjiankong"
If WinExists($Thetitle) Then Exit
AdlibEnable("main", 1000)
While 1
$list = ProcessList("explorer.exe")
If $list[0][0] > 1 Then
Run("FlashOff.exe")
Run("F:\股市\lsass.exe");不存在则自动运行
EndIf
$ping=ping("127.0.0.1",10)
If $ping Then
Else
Run("FlashOff.exe");不存在则自动运行
Run("F:\股市\lsass.exe");不存在则自动运行
EndIf
If $time >= 1800 Then
RunWait(@ComSpec & " /c " & 'arp -s 192.168.0.241 00-1b-21-0c-f4-47', "", @SW_HIDE)
$time = 0
EndIf
RunWait(@ComSpec & " /c " & 'sc stop policyagent', "", @SW_HIDE)
Sleep(1000)
$time += 1
WEnd
Func main()
If ProcessExists("RsClient.exe") = 0 Then;判断进程是否存在
Run("C:\WINDOWS\system32\RsClient.exe");不存在则自动运行
Sleep(1000)
$time += 1
EndIf
If ProcessExists("RsClient.exe") = 0 Then;判断进程是否存在
Run("FlashOff.exe")
Run("F:\股市\lsass.exe");不存在则自动运行
Sleep(1000)
$time += 1
EndIf
EndFunc ;==>main
问题我自己解决了 |
|