循序渐进学习QTP--初级篇
      我们使用QTP的目的是想用它来执行重复的手动测试，主要是用于回归测试和测试同一软件的新版本。因此你在测试前要考虑好如何对应用程序进行测试，例如要测试那些功能、操作步骤、输入数据和期望的输出数据等。
      强烈建议你按照版主oldsidney 写的 Tutorial_oldsidney_cn.pdf 文件来认认真真、从头到尾地执行一遍，包括录制脚本、分析脚本、增加check point、Split Action等。我想这会减少你在学习QTP过程中的不少困惑和疑虑。
      这篇文档对如何使用QTP写的非常详细，是QTP初学者的经典教材。我就是看了这篇文档后才对QTP的整个测试流程有了一个初步的认识。在此，我对oldsidney表示感谢。
      注意： 
      1，确保你的IE运行正常，依次点击菜单 查看 --> 工具栏，一定要上网助手等插件卸载掉，特别3721这个垃圾网站和其它拦截广告的插件（它也把测试过程中弹出的窗口当成广告，一样会拦截的！）！
      2，如果是按照Tutorial_oldsidney_cn.pdf 文件 中的订购飞机票的例子来练习 QTP的使用，那么只需选择Web 插件就可以了。如果是测试其它的应用程序或系统，就要根据需要来选择相应的插件了。

循序渐进学习QTP---中级篇

录制该实例时，出现过很多问题，里面有个很奇怪问题“Cannot find the "Agent name must be at least 4 characters long." object's parent "Login" (class Dialog). Verify that parent properties match an object currently displayed in your application.”，一直认为是不识别对象，又是改语句的，又是增加虚拟对象，都没一个成功，最后才查出是代码问题，少判断了"Flight Reservations"是否存在情况？导致跑到正确登录时候出问题。

最终代码如下：

'应用QTP自带订票系统
'应用六个不同登录情况测试用例
'检验弹出提出信息是否正确

Dim i      
Dim istatus     '预期值变量
Dim outvalue    '实际值变量

For i=1 to datatable.GetSheet("Action1").getrowcount     '循环从1到Action1最后一行

Dialog("Login").WinEdit("Agent Name:").Set DataTable("username", dtLocalSheet)
Dialog("Login").WinEdit("Password:").SetSecure DataTable("password", dtLocalSheet)
Dialog("Login").WinButton("OK").Click

If Dialog("Login").Dialog("Flight Reservations").Exist Then
 '插入输出检查点,参数化outmsg
 Dialog("Login").Dialog("Flight Reservations").Static("Agent name must be at least 4 characters long.").Output CheckPoint("Agent name must be at least 4 characters long.")
    istatus=datatable("status",dtlocalSheet)  '将预期值status赋予变量istatus
 outvalue=datatable("outmsg",dtlocalSheet)  '将实际值outmsg赋予变量outvalue
 If  istatus <> outvalue Then
  reporter.ReportEvent 1,"登录功能测试","预期值为"+istatus+"，实际值为"+outvalue  
 else
  reporter.ReportEvent 0,"登录功能测试","登录成功！"
 End If
Dialog("Login").Dialog("Flight Reservations").WinButton("确定").Click

else
Window("Flight Reservation").Close
End If

datatable.getsheet("Action1").setnextrow  '获取Action1下一行数据
Next