check broken link in a page

[deveshbhatt29]

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