51Testing软件测试论坛

标题: QTP对Windows自带的防火墙取出的服务器名为什么每次都不一样？ [打印本页]

作者: 每天喝水 时间: 2006-1-26 11:56
标题: QTP对Windows自带的防火墙取出的服务器名为什么每次都不一样？
代码如下：

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的问题，希望老师能解答下。谢谢！

作者: 海龙 时间: 2006-2-5 11:22
Dialog("Microsoft Firewall Client").Dialog("正在检测 ISA 服务器").WinEdit("防火墙客户端检测到下列:").Output CheckPoint("rd-isa-srv. opshrd.")

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

作者: Horus_Ra 时间: 2006-2-5 17:24
记得添加验证的时候可以选“Ignore space”的吧？

作者: 每天喝水 时间: 2006-2-6 17:08

原帖由海龙于 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.")
和
输出点属性
见附图：

作者: 每天喝水 时间: 2006-2-6 17:23
'使用以下代码取值：
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)

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

作者: 每天喝水 时间: 2006-2-6 17:26
标题: 修改后代码如下：
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

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