QTP WebBrowser &Page控件

写在前面：以前喜欢用笔或者word记录工作中学习到的一些知识，但是有时换工作或者换项目后，发现有些资料就不再那么方便查看。用笔记录只是对当时有用，对于后续的查看，很不方便。电子文档的记录，亦是如此，在换公司或者换电脑，装系统过程中，难免有文档的丢失。于是，在2015年的最后一天，想到了在CSDN上记录自己的学习以及回忆曾经的经验。对于以后的工作也是一种帮助，同时也督促自己对这件事的坚持。

前段时间，重新拿起已经丢掉2年的QTP，再次打开书，练习控件的识别使用。碍于一直没有Windows 项目方面的实际经验，这里也只是学学，跟着书本练习各种web 控件。
看了相关的QTP与Selenium+Python的自动化测试，两者有共同之处。
下面就前段时间看过的Web控件的测试，做过的总结，粘贴到此。
测试环境：
Win7 OS 64位
Version: UFT 12

一、测试需求
前置条件: 用户没有登录FishC 网站
1. 进入FishC首页后，在URL网址地址栏输入FishC论坛地址，测试它可以成功进入论坛，如图1

2. 由于用户没有登录，所以在该页面进行论坛登录的操作，验证其登录是否成功，如图2

二、自动化测试用例

三、测试过程
1.添加测试对象库
过程：
1) Ctrl+R 或者如图4

2) 紧接着 Add Objects to Local….

3) 如上所示，得到此的所有对象库

2.添加测试脚本

'Step 1-------------------------
SystemUtil.Runwww.fishc.com               <comment 1>
Browser("鱼C工作室-免费编程视频教学|编程技术交流|C语言教学|汇编").Navigate “http://bbs.fishc.com/forum.php “ <comment 2>
Browser("鱼C工作室-免费编程视频教学|编程技术交流|C语言教学|汇编").Page("鱼C工作室-免费编程视频教学|编程技术交流|C语言教学|汇编").Sync:wait 3    <comment 3>
checkURL=Trim(Browser("鱼C工作室-免费编程视频教学|编程技术交流|C语言教学|汇编").Object.LocationURL) <comment 4>
If checkURL="http://bbs.fishc.com/forum.php" Then
    Reporter.ReportEvent micPass,"Step1","Passed"
Else
    Reporter.ReportEvent micFail,"Step 1","Failed"
End If      <comment 5>
Browser("鱼C工作室-免费编程视频教学,编程技术交流,C语言教学,汇编").Close
'Step 2---------------------
Browser("鱼C工作室-免费编程视频教学|编程技术交流|C语言教学|汇编").Page("鱼C工作室-免费编程视频教学,编程技术交流,C语言教学,汇编").Link("登录").Click
Browser("鱼C工作室-免费编程视频教学|编程技术交流|C语言教学|汇编").Page("登录 - 鱼C论坛 - Powered by").WebEdit("username").Set "alu****"
Browser("鱼C工作室-免费编程视频教学|编程技术交流|C语言教学|汇编").Page("登录 - 鱼C论坛 - Powered by").WebEdit("password").Set "*****"
wait 5
Dim Input
Input=InputBox("请输入验证码:")
Browser("鱼C工作室-免费编程视频教学|编程技术交流|C语言教学|汇编").Page("登录 - 鱼C论坛 - Powered by").WebEdit("seccodeverify").Set Input
Browser("鱼C工作室-免费编程视频教学|编程技术交流|C语言教学|汇编").Page("登录 - 鱼C论坛 - Powered by").WebElement("登录").Click
'Step 3------------------------------
Browser("鱼C工作室-免费编程视频教学|编程技术交流|C语言教学|汇编").Refresh:wait 3   <comment 6>
oExit=Browser("鱼C工作室-免费编程视频教学|编程技术交流|C语言教学|汇编").Page("鱼C工作室-免费编程视频教学,编程技术交流,C语言教学,汇编").Link("退出").Exist(4)
msgbox oExit   '用于检测oExit的输出
If oExit Then
    Reporter.ReportEvent micPass,"Step 3","Passed"
Else
    Reporter.ReportEvent micFail,"Step 3","Falied"
End If

3.执行测试脚本
运行F5 键即可
四、测试报告
测试结果,如图4

五、注解解释
comment 1
SystemUtil 是一个保留对象，它 有很多方法。Run方法不仅可以打开网页，还可以打开客户端程序。如果是打开网页，这个方法的作用是新建一个浏览器Tab，而不是跳转网页。
comment 2
Navigate用法是在当前窗口中直接跳到其他页面
comment 3
Sync可以保证当前页面的工作完全结束，然后再去做后续的事情。
comment 4
Object.LocationURL 得到该对象的URL
comment 5
If Else 主要用于checkpoint，判断结果是否正确。
六、问题
这里定义一个变量Input，用于手动输入验证码，那么如何自动识别验证码？
Dim Input
Input=InputBox(“请输入验证码:”)

写在后面:
CSDN上传图片太麻烦，不能像word那样直接copy过来。