如何执行一次登陆,注销;两次定票(代码,贴图)

雨加雪

代码如下,结果如图;如何只执行一次登陆和退出,执行两次定票,

各位大侠支招,前面一个相同的例子我没看懂,谢谢 谢谢 谢谢

1. '登陆
   
2. If not  Dialog("Login").Exist Then
   
3.   systemutil.Run"C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight3a.exe","","C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\"
   
4. End If
   
5. Dialog("Login").WinEdit("Agent Name:").Set "zhang"
   
6. Dialog("Login").WinEdit("Password:").SetSecure "47a167f45d0dbecc2128f9c95db14f1d84f374fc"
   
7. Dialog("Login").WinButton("OK").Click
   
8. '预订
   
9. Window("Flight Reservation").ActiveX("MaskEdBox").Type DataTable("date", dtGlobalSheet)
   
10. Window("Flight Reservation").WinComboBox("Fly From:").Select DataTable("fly_from", dtGlobalSheet)
    
11. Window("Flight Reservation").WinComboBox("Fly To:").Select DataTable("fly_to", dtGlobalSheet)
    
12. Window("Flight Reservation").WinButton("FLIGHT").Click
    
13. 'Window("Flight Reservation").Dialog("Flights Table").WinList("From").Select "14243   DEN   12:57 PM   FRA   01:41 PM   SR     $110.00"
    
14. Window("Flight Reservation").Dialog("Flights Table").WinButton("OK").Click
    
15. Window("Flight Reservation").WinEdit("Customer Name:").Set "zhang"
    
16. Window("Flight Reservation").WinRadioButton("First").Set
    
17. Window("Flight Reservation").WinButton("Insert").Click
    
18. Window("Flight Reservation").WinButton("Button").Click
    
19. Window("Flight Reservation").Activate
    
20. '退出
    
21. Window("Flight Reservation").WinMenu("Menu").Select "File;Exit"

复制代码

郁金香

将三个动作分别录制，然后将定票的动作设置为执行二次

sunqiang1024

将你的订票脚本放在循环中啊
dim i

for i=1 to 2
订票脚本
next

lunarever

楼上都是正解，看你自己选哪一个了

lunarever

for i=0 to 1
'预订
Window("Flight Reservation").ActiveX("MaskEdBox").Type DataTable("date", dtGlobalSheet)
Window("Flight Reservation").WinComboBox("Fly From:").Select DataTable("fly_from", dtGlobalSheet)
Window("Flight Reservation").WinComboBox("Fly To:").Select DataTable("fly_to", dtGlobalSheet)
Window("Flight Reservation").WinButton("FLIGHT").Click
'Window("Flight Reservation").Dialog("Flights Table").WinList("From").Select "14243   DEN   12:57 PM   FRA   01:41 PM   SR     $110.00"
Window("Flight Reservation").Dialog("Flights Table").WinButton("OK").Click
Window("Flight Reservation").WinEdit("Customer Name:").Set "zhang"
Window("Flight Reservation").WinRadioButton("First").Set
Window("Flight Reservation").WinButton("Insert").Click
Window("Flight Reservation").WinButton("Button").Click
Window("Flight Reservation").Activate
next

雨加雪

我加了循坏后，执行了三次第一行的数据，还是没有起到执行所有数据的效果

kelly_yan

这样写循环应该是可以的。我测试的web这样写就可以循环执行的。楼主还是找找其它原因吧。