如何检验cmd的dos对话框

iseedeadpeople

如题
一个项目，有个右键点，ping对方ip，弹出cmd的对话框，我不知如何验证是否ping通，求解~~~~~~~~~~~~~~~~~~~~~~~~~~~~

xieyang702

沙发，等答案

rolei

方法１：将PING的结果输出到文件，然后检查文件结果。
方法２：将PING的结果字符串通过工具获取到，然后解析。

TIB

Function zGen_Ping(sHost)

'This function checks that you can get through to the host you require
'Example usage:
'   'Check we have internet...
'        If Not zGen_Ping("www.google.com") Then
'                Msgbox "Not connected to Internet",vbCritical,"Fatal Error:"
'                Call ExitTest()               
'        End If


        Print "Gen_Ping : " & sHost
       
        Dim oPing, oRetStatus
       
        Set oPing = GetObject("winmgmts:").ExecQuery ("select * from Win32_PingStatus where address = '" & sHost & "'")
       
        For Each oRetStatus In oPing

                If IsNull(oRetStatus.StatusCode) Or oRetStatus.StatusCode <> 0 Then

                        Print "Gen_Ping Failed - Status code :" & oRetStatus.StatusCode

                        zGen_Ping = False
                       
                Else

                        Print "Gen_Ping OK - Bytes    : " & vbTab & oRetStatus.BufferSize
                        Print "Gen_Ping OK - Time(ms) : " & vbTab & oRetStatus.ResponseTime
                        Print "Gen_Ping OK - TTL(s)   : " & vbTab & oRetStatus.ResponseTimeToLive

                        zGen_Ping = True
                                               
                End If
               
        Next

        Set oPing = Nothing
   
End Function

iseedeadpeople

代码解释？

lyscser

Set oPing = GetObject("winmgmts:").ExecQuery ("select * from Win32_PingStatus where address = '" & sHost & "'")
直接调用win32的内建方法去ping指定的host，返回的相关信息都存在oPing这个对象里面，这在vbs教程里面都是有的。

fuwu527751246

学习下    帮顶