一.For_Each_Next语句
SystemUtil.Run "C:\Program Files\HP\QuickTest Professional\samples\flight\app\flight4a.exe","","C:\Program Files\HP\QuickTest Professional\samples\flight\app\","open"
Dialog("Login").WinEdit("Agent Name:").Set "sadafsdf"
Dialog("Login").WinEdit("Password:").SetSecure "51480c006d26b6c618ed56ea2d6691c187f2c6b8"
Dialog("Login").WinButton("OK").Click
Dim from(4),i,x
For i=0to 4
from(i)=Window("Flight Reservation").WinComboBox("Fly From:").GetItem(i)
next
For each x in from
Window("Flight Reservation").WinButton("Button").Click
Window("Flight Reservation").WinObject("Date of Flight:").Type "121213"
Window("Flight Reservation").WinComboBox("Fly From:").Select x
Window("Flight Reservation").WinComboBox("Fly To:").Select Window("Flight Reservation").WinComboBox("Fly To:").GetItem(0)
Window("Flight Reservation").WinButton("FLIGHT").Click
Window("Flight Reservation").Dialog("Flights Table").WinButton("OK").Click
Window("Flight Reservation").Move 476,130
Window("Flight Reservation").Move 496,104
Window("Flight Reservation").WinEdit("Name:").Set "gdfg"
Window("Flight Reservation").WinEdit("Tickets:").SetSelection 0,1
Window("Flight Reservation").WinEdit("Tickets:").Set "2"
Window("Flight Reservation").WinRadioButton("First").Set
Window("Flight Reservation").WinButton("Insert Order").Click
Next
Window("Flight Reservation").Close
二.插入事务.查看响应时间
SystemUtil.Run "C:\Program Files\HP\QuickTest Professional\samples\flight\app\flight4a.exe","","C:\Program Files\HP\QuickTest Professional\samples\flight\app\","open"
Dialog("Login").WinEdit("Agent Name:").Set "qwqwqwq"
Dialog("Login").WinEdit("Password:").SetSecure "514429fc40e5e29245987e0fe7bba1ae8171b2dd"
Services.StartTransaction "login_time"
Dialog("Login").Activate
Dialog("Login").WinButton("OK").Click
Window("Flight Reservation").WinButton("Button").Click
Services.EndTransaction "login_time"
Window("Flight Reservation").WinObject("Date of Flight:").Type "121213"
Window("Flight Reservation").WinComboBox("Fly From:").Select "Frankfurt"
Window("Flight Reservation").WinComboBox("Fly To:").Select "London"
Window("Flight Reservation").WinButton("FLIGHT").Click
Window("Flight Reservation").Dialog("Flights Table").WinButton("OK").Click
Window("Flight Reservation").WinEdit("Name:").Set "yan"
Window("Flight Reservation").WinEdit("Tickets:").SetSelection 0,1
Window("Flight Reservation").WinEdit("Tickets:").Set "2"
Services.StartTransaction "add_time"
Window("Flight Reservation").WinButton("Insert Order").Click
Window("Flight Reservation").Close
Services.EndTransaction "add_time"
三.飞机定票系统正则表达式
SystemUtil.Run "C:\Program Files\HP\QuickTest Professional\samples\flight\app\flight4a.exe","","C:\Program Files\HP\QuickTest Professional\samples\flight\app\","open"
Dialog("Login").WinEdit("Agent Name:").Set "sfdsfsd"
Dialog("Login").WinEdit("Password:").SetSecure "514423f7c60106fa0d0270d85dfe6e530677eb51"
Dialog("Login").WinButton("OK").Click
Window("Flight Reservation").WinObject("Date of Flight:").Type "121213"
Window("Flight Reservation").WinComboBox("Fly From:").Select "Frankfurt"
Window("Flight Reservation").WinComboBox("Fly To:").Select "London"
Window("Flight Reservation").WinEdit("Name:").Set "yan"
Window("Flight Reservation").WinButton("FLIGHT").Click
Window("Flight Reservation").Dialog("Flights Table").WinButton("OK").Click
Window("Flight Reservation").WinEdit("Name:").Set "yan"
Window("Flight Reservation").WinEdit("Tickets:").SetSelection 0,1
Window("Flight Reservation").WinEdit("Tickets:").Set RandomNumber(2, 9)
wait(2)
Window("Flight Reservation").WinEdit("Tickets:").Check CheckPoint("Tickets:")
Window("Flight Reservation").WinButton("Insert Order").Click
Window("Flight Reservation").Close
四.DO_LOOP死循环
SystemUtil.Run "C:\Program Files\HP\QuickTest Professional\samples\flight\app\flight4a.exe","","C:\Program Files\HP\QuickTest Professional\samples\flight\app\","open"
Dialog("Login").WinEdit("Agent Name:").Set RandomNumber(500, 999)
Dialog("Login").WinEdit("Password:").SetSecure "514802ea0323fca1c80345e1672056f573de94e2"
Dim i
i=len(Dialog("Login").WinEdit("Agent Name:").GetROProperty("test"))
Dialog("Login").WinButton("OK").Click
Do while i<4
Dialog("Login").Dialog("Flight Reservations").WinButton("确定").Click
Dialog("Login").WinEdit("Agent Name:").Set RandomNumber(500, 999)
wait(2)
i=len(Dialog("Login").WinEdit("Agent Name:").GetROProperty("test"))
Dialog("Login").WinButton("OK").Click
Loop
Window("Flight Reservation").Close
五.文本区域检查点
SystemUtil.Run "C:\Program Files\HP\QuickTest Professional\samples\flight\app\flight4a.exe","","C:\Program Files\HP\QuickTest Professional\samples\flight\app\","open"
Dialog("Login").WinEdit("Agent Name:").Set DataTable("login_name", dtGlobalSheet)
Dialog("Login").WinEdit("Password:").SetSecure "5142cdfe3637bd57641c89ebc3c115ae3e46efb4"
Dialog("Login").WinButton("OK").Click
Window("Flight Reservation").WinButton("Button").Click
Window("记事本").Restore
Window("记事本").Move 348,9
Window("记事本").WinEditor("Edit").Check CheckPoint("Edit")
Window("记事本").Close
Window("Flight Reservation").Close
六.for语句使用
SystemUtil.Run "C:\Program Files\HP\QuickTest Professional\samples\flight\app\flight4a.exe","","C:\Program Files\HP\QuickTest Professional\samples\flight\app\","open"
Dialog("Login").WinEdit("Agent Name:").Set "sdfsdfsdf"
Dialog("Login").WinEdit("Password:").SetSecure "5146cf4218e4bbd4369b57ff438d7cfd84892c66"
Dialog("Login").WinButton("OK").Click
Dim i
For i=0 to Window("Flight Reservation").WinComboBox("Fly From:").GetItemsCount-1
Window("Flight Reservation").WinButton("Button").Click
Window("Flight Reservation").WinObject("Date of Flight:").Type "121213"
Window("Flight Reservation").WinComboBox("Fly From:").Select Window("Flight Reservation").WinComboBox("Fly From:").GetItem(i)
Window("Flight Reservation").WinComboBox("Fly To:").Select Window("Flight Reservation").WinComboBox("Fly To:").GetItem(0)
Window("Flight Reservation").WinButton("FLIGHT").Click
Window("Flight Reservation").Dialog("Flights Table").WinButton("OK").Click
Window("Flight Reservation").WinEdit("Name:").Set "2312321"
Window("Flight Reservation").WinEdit("Tickets:").SetSelection 0,1
Window("Flight Reservation").WinEdit("Tickets:").Set "2"
Window("Flight Reservation").WinRadioButton("First").Set
Window("Flight Reservation").WinButton("Insert Order").Click
Next
Window("Flight Reservation").Close