|
4#
楼主 |
发表于 2007-10-2 13:43:53
|
只看该作者
回复 2# 的帖子
sorry,我还是没找到问题的解决方法,现把部分代码附上,请想想办法.
SystemUtil.Run "D:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe","","D:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\","open"
Dim i,b
Dialog("Login").WinEdit("Agent Name:").Set "admin"
Dialog("Login").WinEdit("Password:").SetSecure "4700efe18562460bc58ea9a59c2546123db0b270"
Dialog("Login").WinButton("OK").Click
b=datatable.GetSheet(2).GetRowCount
For i=1 to b
Window("Flight Reservation").ActiveX("MaskEdBox").Type "111111"
Window("Flight Reservation").WinComboBox("Fly From:").Select DataTable("Fly_From", dtLocalSheet)
Window("Flight Reservation").WinComboBox("Fly To:").Select DataTable("Fly_To", dtLocalSheet)
Window("Flight Reservation").WinButton("FLIGHT").Click
Window("Flight Reservation").Dialog("Flights Table").WinButton("OK").Click
Window("Flight Reservation").WinEdit("Name:").Set DataTable("Name", dtLocalSheet)
Window("Flight Reservation").WinEdit("Tickets:").Set DataTable("tickets", dtLocalSheet)
Window("Flight Reservation").WinButton("Insert Order").Click
Window("Flight Reservation").ActiveX("Threed Panel Control").WaitProperty "text", "Insert Done...", 10000
Window("Flight Reservation").WinEdit("Order No:").Output CheckPoint("Order No:")
datatable.SetNextRow
Next
回放至第二次循环运行Window("Flight Reservation").WinButton("Insert Order").Click时停止,提示object is disable. |
|