Check all links of a website

[sia sharma]

Hi all,

i want to check whether all links of my web site are working fine using qtp
i have used standard checkpoint and selected an option check broken links
the code generated -

link check for google site

Code:

Browser("Google").Page("Google").Check CheckPoint("Google")

it is giving a fail result

is there any other way in qtp to find out the broken links
thanks
sia

[ssvali]

Try the below code

Code:

Set alllinkob = Description.Create() alllinkob("micclass").value ="Link" Set objAlllinkObj = Browser("Google").Page("Google").ChildObjects(alllinkob) For a =0 to objAlllinkObj.count-1 url = objAlllinkObj(a).getroproperty("url") call geturlstatus(url ) Next Public Function geturlstatus(url ) On Error Resume Next Call ClearBrowserCache() Set webService = nothing Set webService= CreateObject("Microsoft.XMLHTTP") ' Create an xmlhttp object webService.open "GET", url, False ' Opens the connection to the remote server webService.Send pagestatus = webService.status If pagestatus < 200 or pagestatus >399 Then print "In valid request" & pagestatus &"" & url geturlstatus = 0 else geturlstatus = 1 print "valid request"& pagestatus &"" & url End If Set webService = nothing err.clear End Function