+- Micro Focus QTP (UFT) Forums (https://www.learnqtp.com/forums)
+-- Forum: Micro Focus UFT (earlier known as QTP) (https://www.learnqtp.com/forums/Forum-Micro-Focus-UFT-earlier-known-as-QTP)
+--- Forum: VB Scripting/Descriptive Programming (https://www.learnqtp.com/forums/Forum-VB-Scripting-Descriptive-Programming)
+--- Thread: check broken link in a page (/Thread-check-broken-link-in-a-page)
check broken link in a page - deveshbhatt29 - 01-18-2014
I created a script that will check broken link in a page means valid url is that or not but i am not getting a url which one is call by javascript. Error is show in attachment
'Find out all the links in the page using ChildObjects
Code:
Set oLink = Description.Create
oLink("micclass").Value = "Link"
Set oAllLinks = Browser("title:=.*").Page("title:=.*").ChildObjects(oLink)'Find out the count of links
Code:
iTotalLinks = oAllLinks.Count
msgbox iTotalLinks'Loop through all the links to find if the link is broken or not
Code:
For i=0 to iTotalLinks - 1
a = oAllLinks(i).GetROProperty("name")
' print a
'Find out the url for the link
sURL = oAllLinks(i).GetROProperty("url")
sText = oAllLinks(i).GetROProperty("text")
' print sText & " : " & sURL
' aURL = oAllLinks(x).GetROProperty("a href")
'If sURL = url and href Then
Set objWinHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
print sText & " : " & sURL
objWinHTTP.Open "GET", sURL,False
objWinHTTP.SetRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MyApp 1.0; Windows NT 5.1)"'Send the Request to the Server and capture the response
Code:
objWinHTTP.Send
iReturnVal = objWinHTTP.Status
'Find out if the Link exists or is broken
If iReturnVal = 200 Then
'msgbox "Link - " & sURL & " Exists"
Reporter.Reportevent micPass, "links","links exist :"&sURL
'print sURL
ElseIf iReturnVal = 404 Then
'msgbox "Link - " & sURL & " is Broken"
Reporter.ReportEvent micFail, "links","404 Error:"&sURL
'print sURL
Else
msgbox "Code" - iReturnVal
End If
' End If
Set objWinHTTP = Nothing
Next