set desc=description.create
desc("micclass").value="Link"
set getalllink=browser("name:=Google").page("title:=Google").childobjects(desc)
linkcnt=getalllink.count
print "no of link is "&linkcnt
for i=0 to getalllink.count-1
link_name=getalllink(i).getroproperty("name")
link_url=getalllink(i).getroproperty("url")
msgbox "Link Name is "&link_name &" it's URL"& " "&link_url
next
No comments:
Post a Comment