How to get the all broken link on a web page with vb scripting, Not with check points

[Amit Kumar]

Please share your idea guys. need help on this...

Thanks,
Amit

[Ganesh muralidharan]

http://www.automationrepository.com/2012/03/how-to-identify-broken-links-using-qtp/?utm_source=feedburner&utm_medium=email&utm_campaign=Feed%3A+automationrepository%2Ffeeds+%28Automation+Repository%29

Thanks to Anish

--
--
You received this message because you are subscribed to the Google
"QTP - HP Quick Test Professional - Automated Software Testing"
group.
To post to this group, send email to Mercu...@googlegroups.com
To unsubscribe from this group, send email to
MercuryQTP+...@googlegroups.com
For more options, visit this group at
http://groups.google.com/group/MercuryQTP?hl=en
 
---
You received this message because you are subscribed to the Google Groups "QTP - HP Quick Test Professional - Automated Software Testing" group.
To unsubscribe from this group and stop receiving emails from it, send an email to mercuryqtp+...@googlegroups.com.
For more options, visit https://groups.google.com/groups/opt_out.
 
 

--
Regards,


Ganesh Muralidharan
'God Never Forgets'

[Akhalesh Yadav]

SCENARIO NAME :Check all broken links
'DESCRIPTION :This code Check all links in any web page
'PRECONDITIONS :This Assume that when click on Link the new page will
open on current window but not in new window
'AUTHOR :  Akhalesh
'*****************************

******************************************
systemutil.run "iexplore","http://www.google.com"
Set oDesc = Description.Create()
' Retrieve HTML tag
oDesc("html tag").Value = "A"
Set rc = Browser("title:=.*").Page("title:=.*").ChildObjects(oDesc)
num = rc.Count()       'get the number of link in a page
For i=0 to num-1
Set rc = Browser("title:=.*").Page("title:=.*").ChildObjects(oDesc)
ref = rc(i).GetROProperty("href")      'get the “href”propety of the i th link
names=rc(i).getroproperty("name")
Browser("title:=.*").Page("title:=.*").link("text:=.*","index:="&i).click
'click on i th link
Browser("title:=.*").sync
title1=Browser("title:=.*").getRoproperty("title")      'get the tile
of the target page
MsgBox title1
Browser("title:=.*").navigate(ref)  'Navigates to the url taken from
“href” property
Browser("title:=.*").sync
title2=Browser("title:=.*").getRoproperty("title") 'get the tile of
the tNavigated page
MsgBox title2
If title1=title2 Then   'condition to check for the targetted page and
Navigated page
Reporter.ReportEvent 0, "Navigated To Correct Page",""&title1
'Reports if correct
Print "Link navigated to correct page..." &names
else
'Reporter.ReportEvent 1,"hhh",&title1,"",&title2
print "Link did't navigated to correct page......." & names
msgbox "hi"
End If
Browser("title:=.*").navigate "www.google.com"   'Navigates back to main page
Browser("title:=.*").Sync
next

Thanks...

Akhalesh Yadav

We Value What We Do......

Akhalesh yadav
+919555717928
+919310680659

[Amit Kumar]

Thanks a lot Ganesh...

On Thu, May 16, 2013 at 3:18 PM, Ganesh muralidharan <mgkg...@gmail.com> wrote: