QTP 脚本语言编写入门到精通（一）

'******************
'SystemUtil.Run PathFinder.Locate("..\samples\flight\app\flight4a.exe"),"",PathFinder.Locate("..\samples\flight\app"),"open"
Systemutil.Run "C:\Program Files\HP\QuickTest Professional\samples\flight\app\flight4a.exe"
'使读取Exel文件，将Exel中的sheet读取到本地的sheet中
'DataTable.imports PathFinder.Locate("Login.xls"),"Login_Sheet","LoginAction"
'DataTable.ImportSheet "C:\QTPWorking\调用Action\Login.xls",1 ,"LoginAction"
Dim i,RowCount
i=0
RowCount=DataTable.GetSheet("LoginAction").GetRowCount
'获取LoginAction中的行数
Do While(i<RowCount)
i=i+1
DataTable.SetCurrentRow(i)
'设置地i行为当前活动行
wait(3)
Dialog("Login").WinEdit("Agent Name:").SetDataTable("username",dtLocalSheet)Dialog("Login").WinEdit("Password:").SetDataTable("password",dtLocalSheet)
Dialog("Login").WinButton("OK").Click
'****************************'捕捉到的动态提示信息'************************
If Dialog("Login").Dialog("Flight Reservations").Exist(5)
Then
Dim err_message
err_message=Dialog("Login").Dialog("Flight Reservations").Static("Agent name must be at").GetROProperty("text")
Reporter.ReportEvent micFail, "登陆失败","错误信息是:"&err_message
Dialog("Login").Dialog("Flight Reservations").WinButton("确定").Click
'Dialog("Login").Winbutton("Cancel").ClickElse
Reporter.ReportEvent micPass,"登陆成功","登陆成功"Window("Flight Reservation").Close
End IfLoop