QTP常见操作方法

1.【QTP】打开多个页面,多浏览器之间操作打开多个页面,多浏览器之间操作
SystemUtil.Run "iexplore.exe"
SystemUtil.Run "iexplore.exe"  
Browser("CreationTime:=0").Navigate "http://www.baidu.com"
Browser("CreationTime:=1").Navigate "http://www.baidu.com"
Browser("CreationTime:=0").Page(":=").WebEdit("xxxxxx").Set "admin"

Browser("CreationTime:=1").Page(":=").WebEdit("xxxxxx").Set "admin"

2.【QTP】隐含内容init同步测试对象init同步测试对象同步测试对象：
Browser("百度一下，你就知道").Page("百度一下，你就知道").WebEdit("wd").init
分析：
Obj.init方法为QTP的隐藏方法，在帮助文档中没有任何介绍，用于重新同步页面上的测试对象。可以通过使用VS2008改装过的Debug引擎来查看此方法。

3.【QTP】自动关闭msgbox之前网上找到的一段小代码，能解决无人值守时，msgbox的处理。
Set WshShell = CreateObject("Wscript.Shell")
WshShell.Popup "等待5秒后关闭",5,"Title"

4.【QTP】页面滚动条WinScrollBar对象操作WinScrollBar对象是指滚动条对象，可以使用其中的Set、NextLine、NextPage、PreLine、PrevPage这几个方法来模拟用户拖动滚动条的动作，例如，下面的脚本模拟用户单击Excel应用程序中的滚动条，让其向下滚动1行。另外，也可以模拟用户拖动滚动条，让其向下滚动1页，例如，下面的代码。还可以使用Set方法来把滚动条设置在某个位置，如下面的脚本所示。可以使用GetROProperty方法先获取ScrollBar的maxscrollpos属性，取得可滚动的最大范围，再根据这个值来决定设置滚动条的位置，这样可避免使用Set方法设置的位置超出范围，例如，下面的脚本把滚动条设置在中间位置。
下面就是操作的脚本：
'名称：ScrollBarUp
'作用：滚动条向上
'参数：Obj：需要滚动的对象；otimes：滚动的次数
'使用：ScrollBarUp(Browser("Browser").Page("Page"),6)
Function ScrollBarUp(Obj,otimes)
 On Error Resume Next
 
 Dim i
 For i = 1 To otimes
  Obj.Object.body.doScroll("scrollbarUp")
 Next
 
 Err.Clear
 On Error Goto 0
End Function
 
 
'—————————————————————————————————————————
'名称：ScrollBarDown
'作用：滚动条向下
'参数：Obj：需要滚动的对象；otimes：滚动的次数
'使用：ScrollBarDown(Browser("Browser").Page("Page"),6)
Function ScrollBarDown(Obj,otimes)
 On Error Resume Next
 
 Dim i
 For i = 1 To otimes
  Obj.Object.body.doScroll("scrollbarDown")
 Next
 
 Err.Clear
 On Error Goto 0
End Function

5.【QTP】判断是否只有一个浏览器
判断是否只有一个浏览器的脚本，很使用的脚本
objBrowser = Browser("CreationTime:=-1").Exist(0.5)
If objBrowser Then
    msgbox "只存在一个浏览器"
Else
    msgbox "存在0个或多个浏览器"   
End If

6.【QTP】QTP debug插件-PowerDebug 下载powerdebug
PowerDebug原本是一款由印度大师Tarun开发的用于增加QTP debug功能的收费工具。目前该工具已经完全免费开放给大家使用，并且已经更新至PowerDebug V2.10版本。
链接：http://pan.baidu.com/s/1hqeMFIG 密码：6lr9

7.【QTP】QTP各版本下载
QTP的各个版本的下载，放在了网盘中，如果有链接不能正常使用，请留言。
PS：QTP从11.5开始更名为UFT了，所以不要问我是不是放错了~
QTP 10.0
下载：http://pan.baidu.com/s/1sj58rt7
QTP 11.0
下载：http://pan.baidu.com/s/1ntC2duh
QTP 11.5
下载：http://pan.baidu.com/s/1c0kucCS
QTP 12.0
下载：http://pan.baidu.com/s/1mg0YKJm

8.【QTP】QTP11版本以上无限试用批处理
有人觉得QTP11无限试用每个月需要执行一到两次比较麻烦的话，可以试试下面的批处理：
假设我QTP安装的是默认路径，那批处理可以写成：
del "C:\Users\All Users\SafeNet Sentinel" /S /Q
ping -n 10 127.0.0.1>nul
"C:\Program Files\HP\QuickTest Professional\bin\instdemo.exe"
路径根据自己的实际情况改，然后保存到文本文件，然后后缀名改为 .bat 就可以了
下次只要双击一下，就搞定了。
如果还觉得麻烦，那就给自己电脑设置一个计划任务吧，比如每周自动执行qtpbat

9.