ping 的使用！循环ping 127.0.0.1通暂停10秒或不操作，不通运行一个程序

ufozhouyu

#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


问题我自己解决了

pheonix7276

留名，等高手解答

rolaka

..要只需要延迟的话...sleep(10000)就ok了...

llssky2003

不明白LZ什么意思？？

kn007

楼主说话不清楚

tdj919

这个有什么用呢，