1. dos命令的执行
Dim oShell
Set oShell = CreateObject ("W..shell")
oShell.run "cmd /K CD C:\ & Dir"
Set oShell = Nothing
2. 使用可选步骤
OptionalStep.Browser("browser_name").Page("page_name").Link("link_name")
Dim oShell
Set oShell = CreateObject ("W..shell")
oShell.run "cmd /K CD C:\ & Dir"
Set oShell = Nothing
2. 使用可选步骤
OptionalStep.Browser("browser_name").Page("page_name").Link("link_name")
默认可选步骤
默认情况下，QuickTest 将打开下列对话框的步骤视为可选：
3. 处理运行错误
|
对话框标题栏
|
|---|
|
自动完成
|
|
文件下载
|
|
Internet Explorer
|
|
Netscape
|
|
输入网络密码
|
|
错误
|
|
安全警报
|
|
安全信息
|
|
安全警告
|
|
所需的用户名和密码
|
停止
- 停止运行会话。
如果 QuickTest 配置为在运行后显示测试结果，则会显示测试结果。
如果 QuickTest 配置为在运行后显示测试结果，则会显示测试结果。
重试
- QuickTest 尝试再次执行该步骤。
如果该步骤成功，则运行会继续。
如果该步骤成功，则运行会继续。
跳过
- QuickTest 跳过引发错误的步骤，然后从下一步骤继续运行。
调试
- QuickTest 暂停运行以便对测试或组件进行调试。
可以执行本章描述的任何调试操作。在调试之后，可以从测试或组件停止的那一步开始继续运行会话，也可以使用单步命令来控制运行会话的其余部分。
可以执行本章描述的任何调试操作。在调试之后，可以从测试或组件停止的那一步开始继续运行会话，也可以使用单步命令来控制运行会话的其余部分。
帮助
- 对于显示的错误消息，打开 QuickTest 故障排除帮助。在查看“帮助”主题之后，可以在错误消息框中选择另一个按钮。
详细信息
- 将消息框扩展为显示其他有关错误的信息。
blnDone=Window("Flight Reservation").Dialog("Flights Table").Exist
counter=1
While Not blnDone
Wait (2)
blnDone=Window("Flight Reservation").Dialog("Flights Table").Exist
counter=counter+1
If counter=10 then
blnDone=True
End if
Wend
5. ExecuteFile "c:\test.vbs"
6. msgbox Environment.Value("home")
7.请教不将测试结果记录到日志的语句。
对于已知是错误的验证点，在测试报告中能否记录通过，或者根本不记录呢？
5. ExecuteFile "c:\test.vbs"
6. msgbox Environment.Value("home")
7.请教不将测试结果记录到日志的语句。
对于已知是错误的验证点，在测试报告中能否记录通过，或者根本不记录呢？
Reporter.Filter = NewMode
The mode can be .e of the following values:
Mode
De.ion
De.ion
0 or
rfEnableAll Default. All reported events are displayed in the Test Results.
1 or rfEnableErrorsAndWarnings .ly event with a warning or fail status are displayed in the Test Results.
2 or
rfEnableErrorsOnly .ly events with a fail status are displayed in the Test Results.
3 or
rfDisableAll No events are displayed in the Test Results.
8.库中不需要有对象存在也可执行：
Dim aaa,bbb
aaa="Login"
bbb="OK"
Dialog("Title:="&aaa).Activate
Dialog("Title:="&aaa).WinButton("text:="&bbb).Click
9.setting的应用举例
If Setting.Exists("Tester Name") Then
Setting.Remove ( "Tester Name")
End If
rfEnableAll Default. All reported events are displayed in the Test Results.
1 or rfEnableErrorsAndWarnings .ly event with a warning or fail status are displayed in the Test Results.
2 or
rfEnableErrorsOnly .ly events with a fail status are displayed in the Test Results.
3 or
rfDisableAll No events are displayed in the Test Results.
8.库中不需要有对象存在也可执行：
Dim aaa,bbb
aaa="Login"
bbb="OK"
Dialog("Title:="&aaa).Activate
Dialog("Title:="&aaa).WinButton("text:="&bbb).Click
9.setting的应用举例
If Setting.Exists("Tester Name") Then
Setting.Remove ( "Tester Name")
End If
Setting.Add "Tester Name", "Mark Train"
Setting("Tester Name") ="hello"
MsgBox Setting("Tester Name")
10.qtp 关键字头＋空格（技巧）
Setting("Tester Name") ="hello"
MsgBox Setting("Tester Name")
10.qtp 关键字头＋空格（技巧）
本文转自 fish_yy 51CTO博客，原文链接：http://blog.51cto.com/tester2test/137339，如需转载请自行联系原作者
