qtp使用记录（不断更新）

一、如何调用应用程序
使用：Systemutil.Run "应用程序所在目录地址","","",""
例子：调用qtp自带的flight程序。
Systemutil.Run "D:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight4a.exe","","",""
注意：1、这个Run函数是一个sub函数，所以调用的时候不能带括号，否则会报错
     2、注意参数个数
其他：ASystemUtil.Runstatement is automatically added to your test when yourunan application from the Start menu or theRundialog box while recording a test.
二、wait函数以及和同步点的区别
wait（10）
程序执行到这里后，无论如何，都需要等待10秒。
Window("Flight Reservation").WinButton("Update Order").WaitProperty "enabled", true, 20000
程序执行到这里后，检查“update  Order”的属性enabled的值是否为true，如果是，则继续执行程序（不会继续等待到20秒），如果不是，就继续检查，直到时间超过20秒。这里的20秒可以理解为20秒超时，超过这个设定时间后，就不再检查了。
三、强制退出
1、强制退出测试程序
For i=0 to 10
    msgbox(i)
    if(i=6) then
    Exittest
    end if
Next
msgbox("after exit")
程序运行结果：提示框弹出到6后，test程序结束,不会弹出“after  exit”提示框
2、强制退出循环
For i=0 to 10
    msgbox(i)
    if(i=6) then
    Exit for
    end if
Next
msgbox("after exit")
程序运行结果：提示框弹出到6后，继续弹出“after exit”
四、修改系统时间
Dim oShell
Set Shell = CreateObject ("WSCript.shell")
oShell.run "cmd /K date 10-08-23"
Set Shell = Nothing