51Testing软件测试论坛

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

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 901|回复: 5
打印 上一主题 下一主题

QTP对Windows自带的防火墙取出的服务器名为什么每次都不一样?

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2006-1-26 11:56:22 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
代码如下:

Option Explicit

Dim ExcelSheet
Set ExcelSheet = CreateObject("Excel.Sheet")
ExcelSheet.Application.Visible = true

Dim i

For i = 0 to 5

Dialog("Microsoft Firewall Client").WinButton("立即检测(D)").Click

Dialog("Microsoft Firewall Client").Dialog("正在检测 ISA 服务器").WinEdit("防火墙客户端检测到下列:").Output CheckPoint("rd-isa-srv.     opshrd.")

If DataTable("Output_Text_out" , dtGlobalSheet) = "rd-isa-srv.     opshrd.     com.     cn" Then
        Reporter.ReportEvent micPass , "正在检测 ISA 服务器" , "OK"
Else
   Reporter.ReportEvent micFail , "正在检测 ISA 服务器" , "UnOK"
End If

Dialog("Microsoft Firewall Client").Dialog("正在检测 ISA 服务器").WinButton("关闭").Click

ExcelSheet.ActiveSheet.Cells(i + 1 , 1).Value = DataTable("Output_Text_out" , dtGlobalSheet)

Next

ExcelSheet.SaveAs "c:\testCheckTheFireWall.xls"
ExcelSheet.Application.Quit
Set ExcelSheet = Nothing

每次在“立即检测”后,所显示的服务器名都一致,但是通过QTP取出后,就不一样了,不清楚是程序的问题还是QTP的问题,希望老师能解答下。谢谢!

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?(注-册)加入51Testing

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
发表于 2006-2-5 11:22:44 | 只看该作者
Dialog("Microsoft Firewall Client").Dialog("正在检测 ISA 服务器").WinEdit("防火墙客户端检测到下列:").Output CheckPoint("rd-isa-srv.     opshrd.")

这个新弹出的对话框吗?如果是你把对话框贴出来
另外,Output CheckPoint("rd-isa-srv.     opshrd."),你选择的是什么属性值
你可以将值赋给变量然后加断点,看每次的值是否一致
回复 支持 反对

使用道具 举报

该用户从未签到

3#
发表于 2006-2-5 17:24:22 | 只看该作者
记得添加验证的时候可以选“Ignore space”的吧?
回复 支持 反对

使用道具 举报

该用户从未签到

4#
 楼主| 发表于 2006-2-6 17:08:48 | 只看该作者
原帖由 海龙 于 2006-2-5 11:22 发表
Dialog("Microsoft Firewall Client").Dialog("正在检测 ISA 服务器").WinEdit("防火墙客户端检测到下列:").Output CheckPoint("rd-isa-srv.     opshrd.")

这个新弹 ...



Dialog("Microsoft Firewall Client").Dialog("正在检测 ISA 服务器").WinEdit("防火墙客户端检测到下列:").Output CheckPoint("rd-isa-srv.     opshrd.")

输出点属性
见附图:

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?(注-册)加入51Testing

x
回复 支持 反对

使用道具 举报

该用户从未签到

5#
 楼主| 发表于 2006-2-6 17:23:43 | 只看该作者
'使用以下代码取值:
j = Dialog("Microsoft Firewall Client").Dialog("正在检测 ISA 服务器").WinEdit("防火墙客户端检测到下列:").GetROProperty("regexpwndtitle")
'显示
Msgbox Cstr(j) & "      " & Cstr(i)
'存储入Excel
ExcelSheet.ActiveSheet.Cells(i + 1 , 1).Value = Cstr(j)

得到的值均一致。
但是仍然不明白原因是何。以及以后如何避免和预防。
回复 支持 反对

使用道具 举报

该用户从未签到

6#
 楼主| 发表于 2006-2-6 17:26:33 | 只看该作者

修改后代码如下:

Option Explicit

Dim ExcelSheet
Set ExcelSheet = CreateObject("Excel.Sheet")
ExcelSheet.Application.Visible = true

Dim i , j

For i = 0 to 10

Dialog("Microsoft Firewall Client").WinButton("立即检测(D)").Click

Dialog("Microsoft Firewall Client").Dialog("正在检测 ISA 服务器").WinEdit("防火墙客户端检测到下列:").Output CheckPoint("rd-isa-srv.     opshrd.")

j = Dialog("Microsoft Firewall Client").Dialog("正在检测 ISA 服务器").WinEdit("防火墙客户端检测到下列:").GetROProperty("regexpwndtitle")
'Msgbox Cstr(j) & "      " & Cstr(i)


If DataTable("Output_Text_out" , dtGlobalSheet) = "rd-isa-srv.     opshrd.     com.     cn" Then
        Reporter.ReportEvent micPass , "正在检测 ISA 服务器" , "OK"
Else
   Reporter.ReportEvent micFail , "正在检测 ISA 服务器" , "UnOK"
End If

Dialog("Microsoft Firewall Client").Dialog("正在检测 ISA 服务器").WinButton("关闭").Click

ExcelSheet.ActiveSheet.Cells(i + 1 , 1).Value = Cstr(j)

Next



ExcelSheet.SaveAs "c:\testCheckTheFireWall.xls"

Set ExcelSheet = Nothing
回复 支持 反对

使用道具 举报

本版积分规则

关闭

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

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

GMT+8, 2024-11-8 18:45 , Processed in 0.071613 second(s), 24 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

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