QTP简单脚本

一．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