51Testing软件测试论坛

标题: 如何检验cmd的dos对话框 [打印本页]

作者: iseedeadpeople 时间: 2010-11-24 18:15
标题: 如何检验cmd的dos对话框
如题
一个项目，有个右键点，ping对方ip，弹出cmd的对话框，我不知如何验证是否ping通，求解~~~~~~~~~~~~~~~~~~~~~~~~~~~~

作者: xieyang702 时间: 2010-11-25 10:28
沙发，等答案

作者: rolei 时间: 2010-11-25 11:54
方法１：将PING的结果输出到文件，然后检查文件结果。
方法２：将PING的结果字符串通过工具获取到，然后解析。

作者: TIB 时间: 2010-11-25 15:50
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 时间: 2010-11-26 16:12
代码解释？

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

作者: fuwu527751246 时间: 2010-11-29 17:41
学习下帮顶

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)