QTP自带小飞机程序——TextCheckpoint 的VBS脚本

chipucca

下面这个程序是我自己写的TextCheckpoint的VBS脚本，供大家指点：

***********************************************************************************************************
Dim a,b
a = Window("Flight Reservation").Dialog("Flight Reservations").Static("The information has changed. Save changes?").GetROProperty("text")
b = "The information has changed. Save changes?"   
Check_Objects_Text a, b
Window("Flight Reservation").Dialog("Flight Reservations").WinButton("No").Click

Function Check_Objects_Text(realText,strText)
   Dim Mycomp
   strText = "The information has changed. Save changes?"
   Mycomp = StrComp(realText, strText, 1)
   msgbox strText
   msgbox realText
  If Mycomp = 0 Then
        Reporter.ReportEvent micPass,"检查字符串是否一致","界面中包含字符串："&strText
  else
    Reporter.ReportEvent micFail,"检查字符串是否一致","界面中不包含字符串："&strText
   End If
End Function
*********************************************************************************
另外，本人最近在考虑测窗口标题的VBS，目前只用了exist，但是也想写点类似以上的代码，还希望大家多给宝贵意见。。。

hxw_3166

谢谢楼主的抛砖引玉，期待有更多的检查点代码。

chipucca

回复 2# hxw_3166
好的，感谢关注！！

willturner

Function Check_Objects_Text(realText,strText)
   Dim Mycomp
   strText = "The information has changed. Save changes?"   Mycomp = StrComp(realText, strText, 1)
   msgbox strText
   msgbox realText
   .....

   不太明白strText作为函数Check_Objects_Text的第二个参数传入，为什么还要在函数体内部赋静态的字符串值，那这个函数不就只能比较是否realText是不是"The information has changed. Save changes?"

shaynechu

其实要实现这个检查功能   只需要第一个参数就行了

KateCao

看看，谢谢

chipucca

回复 4# willturner


    恩，是的，你说的很有道理，由于这个小飞机程序跳出来的提示信息就是这句话，所以就只能是个死的。

chipucca

回复 5# shaynechu


    我代码方面不强，望详细指点，谢谢！