论坛 › 『 提问交流 』 › [提问]代码在VBS中正常，在AU3中不正常，是哪里问题呢？

Netfox 发表于 2010-5-14 11:19:07

[提问]代码在VBS中正常，在AU3中不正常，是哪里问题呢？

先看VBS代码：Dim strMachines,aMachines,machine
Dim objPing,objStatus,objws
Dim connect,unconnect
Do
      Machine="www.baidu.com"
      Set objPing=GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery("select * from Win32_PingStatus where address = '" & machine & "'")
      connect=0
      unconnect=0
      For i=1 To 10
                For Each objStatus in objPing
                        If IsNull(objStatus.StatusCode) or objStatus.StatusCode<>0 Then
                              unconnect=unconnect+1
                        Else
                              connect=connect+1
                        End If
                Next
      Next
      If connect=10 Then
                MsgBox "开网啦!"      
                WScript.Quit
elseif connect=0 then MsgBox "断网啦!"
WScript.Quit
End If
WScript.Sleep 3*1000      
Loop AU3代码：Dim $strMachines,$aMachines,$machine
Dim $objPing,$objStatus,$objws
Dim $connect,$unconnect
$Machine="www.baidu.com"
      $objPing=objGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
                $objPing.ExecQuery("select * from Win32_PingStatus where address = '" & $machine & "'")
      $connect=0
      $unconnect=0
      For $i=1 To 10
                For $objStatus in $objPing
                        If $objStatus.StatusCode="" or $objStatus.StatusCode<>0 Then
                              $unconnect=$unconnect+1
                        Else
                              $connect=$connect+1
                        EndIf
                                        Next
                                        MsgBox(0,"",$connect)
                        Next
                       
      If $connect=10 Then                        
               _GetDHCPstatus()   
GUICtrlSetColor($chk, 0xFF0000)                          
                elseif $connect=0 then
                       GUICtrlSetData($chk,"没有连接到外网")
                       
EndIf

298311657 发表于 2010-5-14 21:24:25

Dim $strMachines,$aMachines,$machine
Dim $objPing,$objStatus,$objws
Dim $connect,$unconnect
$Machine = "www.baidu.com"
$obj = ObjGet("winmgmts:{impersonationLevel=impersonate}")
$objPing = $obj.ExecQuery("select * from Win32_PingStatus where address = '" & $machine & "'")
$connect=0
$unconnect=0
For $i=1 To 10
    For $objStatus in $objPing
      If $objStatus.StatusCode <> '' or $objStatus.StatusCode <> 0 Then
                        $unconnect += 1
      Else
                        $connect += 1
      EndIf
    Next
Next
If $connect=10 Then
        MsgBox (0,'',"开网啦!")
ElseIf $connect=0 then
        MsgBox (0,'',"断网啦!")
EndIf
Exit

sensel 发表于 2010-5-15 07:27:25

在au3中需要调用WMI去ping网站？

查看完整版本: [提问]代码在VBS中正常，在AU3中不正常，是哪里问题呢？