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.