局域网通断问题求助

youaremysky

pc按键,如果读写了一个不通的局域网就会导致脚本卡断很久,所以我就想到了用ping ip来判断局域网是否通畅,但是我又不想那个黑框出来,就开了个线程关黑框,但是实际应用起来,有时候电脑卡顿,他会导致隐藏黑框很慢,甚至直接闪退.求助有没有别的办法.或者怎么让cmd的界面直接不要打开隐藏起来?

[按键精灵] 纯文本查看 复制代码

call BeginThread(隐藏cmd窗口)
RunApp "cmd.exe /c ping 192.168.31.13 >c:\局域网1.txt"
RunApp "cmd.exe /c ping 192.168.12.13 >c:\局域网2.txt"
Call BeginThread(读取局域网文件)

Sub 隐藏cmd窗口
    For 40
        Delay 50
        HwndEx = Plugin.Window.SearchEx("ConsoleWindowClass", 0, 0)
        If len(hwndex) > 2 Then //检测到cmd的窗口就隐藏它
            For i = 0 To UBound(split(HwndEx, "|"))
                If len(split(HwndEx, "|")(i)) > 2 Then 
                    Call Plugin.Window.hide(split(HwndEx, "|")(i))                
                End If
            Next
        End If
    next
End Sub

Sub 读取局域网文件
    For 5
        局域网1 = Plugin.File.ReadFileEx("c:\局域网1.txt")
        局域网2 = Plugin.File.ReadFileEx("c:\局域网2.txt")
        If instr(局域网1, "的回复") > 0 Then 
            TracePrint "局域网1通畅"
            Exit for
        End If
        If instr(局域网2, "的回复") > 0 Then 
            TracePrint "局域网2通畅"
            Exit for
        End If
        Delay 1000
    next
End Sub

youaremysky

解决了
Set ws = CreateObject("Wscript.Shell")
ws.Run "cmd.exe /c ping 192.168.12.39 >C:\juyuwang2.txt", 0
ws.Run "cmd.exe /c ping 192.168.31.13 >C:\juyuwang1.txt",0
然后读取文档就行了...

zsgzh520

厉害啊  自学成才