'====写入测试用例数据到数据驱动文件中===='
Set fso = CreateObject("Scripting.FileSystemObject")
'OpenTextFile第三个参数如果是False表示如果文件一定要存在.
Set ddFile = fso.OpenTextFile(ddFilePath, 2, True)
ddFile.WriteLine "ad,Mercury,Agent name must be at least 4 characters long."
'ddFile.WriteLine "admin,merc,Incorrect password. Please try again"
'ddFile.WriteLine "admin,Mercury,Flight Reservations"
ddFile.Close
If Dialog("Login").Dialog("Flight Reservations").Exist Then
if Dialog("Login").Dialog("Flight Reservations").Static("errInfo").GetROProperty("text") = ddCurrLine(2) Then
‘为什么我找不到Static("errInfo")对象?我查看了所有相关的Static,但是没有找到。这个Static("errInfo")是自定义的吗?
logFile.WriteLine "测试成功!"
MsgBox Dialog("Login").Dialog("Flight Reservations").Static("errInfo").GetROProperty("text")
Else
MsgBox Dialog("Login").Dialog("Flight Reservations").Static("errInfo").GetROProperty("text")
logFile.WriteLine "测试失败!"
End If
Dialog("Login").Dialog("Flight Reservations").WinButton("OK").Click
Dialog("Login").WinButton("Cancel").Click
Else
If Window("Flight Reservation").Exist Then
logFile.WriteLine "测试成功!"
End If
Window("Flight Reservation").Close
End If
Wend
logFile.WriteLine "==========================测试结束==================================="
logFile.WriteLine "*********************************************************************"作者: danmy 时间: 2008-2-3 16:53
是的,对象库里作者: gy21st 时间: 2008-2-3 16:53
你没有别人的对象库,只把别人的代码拿过来当然不能直接用。对象的名称是可以改的。估计就是下面这个东西。你在自己对象库里把名称改成一样就可以了。作者: xyst99 时间: 2008-2-3 18:31
谢谢你们的回复,但我还是遇到了一点问题,我的解决方法:
1)检查Object库,得到的结果
C:\Object.JPG
2)用Spy查看了一下error 信息的属性,得到
C:\spy.JPG
3)把代码改为
if Dialog("Login").Dialog("Flight Reservations").Static("Agent name must be at least 4 characters long.").GetROProperty("text") = ddCurrLine(2) Then
4)检查结果
1。发现还是有问题,报不能识别。
2。即使能够识别的话,Agent name must be at least 4 characters long.是个动态的信息,能否用errInfo这样的参数来代替,如果能,又该怎么修改object库
(Notes:我试着直接在object库中修改static的信息,同样报错)作者: xyst99 时间: 2008-2-3 18:34
这是Object的对象库
[attach]38955[/attach]
这是spy到的结果
[attach]38955[/attach]作者: gy21st 时间: 2008-2-3 20:43
把对象库里的对象名称改成errinfo啊,你改代码作甚。8.2版本手头没有。就是改画框的名称,你自己找找吧。作者: xyst99 时间: 2008-2-4 12:45
按照你的方法,问题解决了,Thank you very much!作者: xyst99 时间: 2008-2-4 15:54
呵呵,有遇到了另外一个问题,就是循环体中的objects的设置问题,操作:
1)在代码中加入测试项,把代码改为
ddFile.WriteLine "ad,Mercury,Agent name must be at least 4 characters long."
ddFile.WriteLine "admin,merc,Incorrect password. Please try again"
ddFile.WriteLine "admin,Mercury,Flight Reservations" ......
While NOT ddFile.AtEndOfLine
.....
If Dialog("Login").Dialog("Flight Reservations").Exist Then
if Dialog("Login").Dialog("Flight Reservations").Static("errInfo").GetROProperty("text") = ddCurrLine(2) Then
.......
Wend
2)在objects中添加第二个错误提示对象
C:\untitled.JPG
3)出现问题
我试着把static的name设置为errInfo,提示errInfo已经存在。但是如果不设置为errInfo,while循环就不能继续执行下去,报对象不能识别