用QTP实现WEB页面链接扫描功能-自动化测试

　　该函数实现用QTP脚本检查任何一个网页所有链接是否有效的功能。实际上，QTP自带一个对 WEB page里的链接进行检查的checkpoint，但是不能自定义扩展和编辑;这里Sincky演示一个自定义的函数，模拟某个网页的每个链接发送 HTTP请求、再检查HTTP响应结果来实现对该网页所有链接进行正确性扫描的过程。代码请见：

　　'==========================================================================

　　' Name: CheckAllLinkReachable

　　' Summary: CheckAllLinkReachable

　　' Parameters:

　　' strBrowser: browser name

　　' strPage: page name

　　' strURLPattern: URL pattern you wan't to check. such as: ^http.*

　　' Return: None

　　'==========================================================================

　　Function CheckAllLinkReachable(strBrowser, strPage, strURLPattern)

　　Dim blnReachable

　　blnReachable = True

　　Set objXML = CreateObject("Msxml2.XMLHTTP")

　　' Get all link on the page

　　Set objDes = Description.Create

　　objDes("micclass").Value = "Link"

　　Set objLinkList = Browser(strBrowser).Page(strPage).ChildObjects(objDes)

　　For i = 0 To objLinkList.Count() - 1

　　' Create XML HTTP Object

　　strURL = objLinkList(i).GetROProperty("href")

　　If RegExpTest(strURLPattern, strURL) Then

　　objXML.Open "POST", strURL, false

　　objXML.Send

　　' msgbox objXML.responseText

　　print (objLinkList(i).GetROProperty("href") & " Ready State:" & objXML.readyState & " Status: " & objXML.status)

　　If objXML.status <> "200" Then

　　blnReachable = False

　　End If

　　objXML.abort()

　　End If

　　Next

　　Set objXML = Nothing

　　CheckAllLinkReachable = blnReachable

　　End Function

　　以上内容为大家介绍了自动化测试中的用QTP实现WEB页面链接扫描功能，本文由多测师亲自撰写，希望对大家有所帮助。了解更多自动化测试相关知识：https://www.aichudan.com/xwzx/