51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 2683|回复: 6
打印 上一主题 下一主题

[原创] 如何检验cmd的dos对话框

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2010-11-24 18:15:59 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
如题
一个项目,有个右键点,ping对方ip,弹出cmd的对话框,我不知如何验证是否ping通,求解~~~~~~~~~~~~~~~~~~~~~~~~~~~~
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
发表于 2010-11-25 10:28:11 | 只看该作者
沙发,等答案
回复 支持 反对

使用道具 举报

该用户从未签到

3#
发表于 2010-11-25 11:54:27 | 只看该作者
方法1:将PING的结果输出到文件,然后检查文件结果。
方法2:将PING的结果字符串通过工具获取到,然后解析。
回复 支持 反对

使用道具 举报

该用户从未签到

4#
发表于 2010-11-25 15:50:02 | 只看该作者
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
回复 支持 反对

使用道具 举报

该用户从未签到

5#
 楼主| 发表于 2010-11-26 16:12:45 | 只看该作者
代码解释?
回复 支持 反对

使用道具 举报

该用户从未签到

6#
发表于 2010-11-28 12:15:53 | 只看该作者
Set oPing = GetObject("winmgmts:").ExecQuery ("select * from Win32_PingStatus where address = '" & sHost & "'")
直接调用win32的内建方法去ping指定的host,返回的相关信息都存在oPing这个对象里面,这在vbs教程里面都是有的。
回复 支持 反对

使用道具 举报

该用户从未签到

7#
发表于 2010-11-29 17:41:28 | 只看该作者
学习下    帮顶
回复 支持 反对

使用道具 举报

本版积分规则

关闭

站长推荐上一条 /1 下一条

小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

GMT+8, 2024-11-26 06:37 , Processed in 0.072905 second(s), 27 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

快速回复 返回顶部 返回列表