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

海龙

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

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

Horus_Ra

记得添加验证的时候可以选“Ignore space”的吧？

每天喝水

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

每天喝水

'使用以下代码取值：
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)

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

每天喝水

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