旧博客转帖关于qtp的一些脚本

 

 

'更改首頁
Set WshShell = CreateObject("WScript.Shell")
WshShell.RegWrite "HKEY_CURRENT_USER/Software/Microsoft/Internet Explorer/Main/Start Page"," http://www.baidu.com","REG_SZ"

Select Case Link_res

Case true
Reporter.ReportEvent micFail,"設為首頁Link檢查","設為首頁後Link未消失！"
WshShell.RegWrite "HKEY_CURRENT_USER/Software/Microsoft/Internet Explorer/Main/Start Page"," http://www.baidu.com","REG_SZ"

Case false
WshShell.RegWrite "HKEY_CURRENT_USER/Software/Microsoft/Internet Explorer/Main/Start Page"," http://www.baidu.com","REG_SZ"

 

'最小化QTP以保證點擊Link的動作可以執行
Dim objQTPwin
Set objQTPwin=GetObject("","QuickTest.Application")
objQTPwin.WindowState="Minimized"
set objQTPwin=Nothing

'由於不支持直接Click的方法，使用模擬鼠標點選所取到的“設為首頁”Link的坐標位置
GetX=Browser("Yahoo!奇摩").Page("Yahoo!奇摩").Link("設為首頁").GetROProperty("abs_x")
GetY=Browser("Yahoo!奇摩").Page("Yahoo!奇摩").Link("設為首頁").GetROProperty("abs_y")
Set devicereplay = CreateObject("Mercury.DeviceReplay")
Devicereplay.MouseClick GetX,GetY, 0 
Browser("Yahoo!奇摩").Dialog(Win_Dialog).WinButton(Button_yes).Click

测试搜索结果的另外一种思路

CloseIEAll
Systemutil.Run "iexplore.exe","http://tw.yahoo.com"            '打开IE 

Browser("Yahoo!奇摩").Page("Yahoo!奇摩").WebEdit("p").Set "Yahoo"
Browser("Yahoo!奇摩").Page("Yahoo!奇摩").WebButton("網頁搜尋").Click

Str = Browser("Yahoo!奇摩").Page("Yahoo!奇摩").WebElement("Result").GetROProperty("outerhtml")            '得到Html源码

Num = 1
Spos = 0
Epos = 0

Spos = instr(1,Str,"<A class=yschttl")

While Spos
    Epos = instr(Spos,Str,"</A>")
    TempStr = mid(Str,Spos,Epos-Spos)

    HyperLink = GetHyperLink(TempStr)
    Title = GetTitle(Right(TempStr,Len(TempStr)-Len(HyperLink)-23))

    Reporter.ReportEvent micDone,"HyperLink " & Num & ":",HyperLink
    Reporter.ReportEvent  micDone,"Title " & Num & ":",Title

    Num=Num+1
    
    Spos = instr(Epos,Str,"<A class=yschttl")
Wend

Sub CloseIEAll          '关闭所有IE

    Set desc=description.Create
    desc("micclass").value="Browser"
    Set List=Desktop.ChildObjects(desc)
    Maxindex=List.count-1
    For i=0 to Maxindex
         Hwnd=List(i).GetRoProperty("hwnd")
         systemutil.CloseProcessByHwnd Hwnd
    Next
    
End Sub

Public Function GetHyperLink(TempStr)

    int Startpos = 0
    int Endpos = 0
    Startpos = instr(1,TempStr,"""")
    Endpos = instr(Startpos+1,TempStr,">")
    
    GetHyperLink = mid(TempStr,Startpos+1,Endpos-Startpos-1)
    
End Function

Public Function GetTitle(TempStr)

    Str1 = "<B>"
    Str2 = "</B>"
    LenStr1 = Len(Str1)
    LenStr2 = Len(Str2)

    '去掉Str1
    TitlePos = instr(1,TempStr,Str1)
    While TitlePos
        TempStr = mid(TempStr,1,TitlePos - 1) & mid(TempStr,TitlePos + LenStr1,Len(TempStr )- LenStr1-TitlePos+1)
        TitlePos = instr(1,TempStr,Str1)
    Wend

    '去掉Str2
        TitlePos = instr(1,TempStr,Str2)
    While TitlePos
        TempStr = mid(TempStr,1,TitlePos - 1) & mid(TempStr,TitlePos + LenStr2,Len(TempStr )- LenStr2-TitlePos+1)
        TitlePos = instr(1,TempStr,Str2)
    Wend

    GetTitle = TempStr
    
End Function

写入测试报告

If  expection  = result Then

Reporter.ReportEvent 0, "校验", "pass" 
    else
Reporter.ReportEvent 1, "校验",  result &"is not equal " &expection
End If