If browser("Title:=.*").exist then
browser("Title:=.*").close
End if
SystemUtil.Run "IEXPLORE.EXE", "www.google.com"
wait(3)
Set desco = Description.Create
desco("micclass").value = "Link"
set Lcount = browser("Title:=.*").page("Title:=Google").ChildObjects(desco)
MsgBox Lcount.count
For i=0 to Lcount.count-1
print i&" = "& Lcount(i).getroproperty("Name")
Next
browser("Title:=.*").close
End if
SystemUtil.Run "IEXPLORE.EXE", "www.google.com"
wait(3)
Set desco = Description.Create
desco("micclass").value = "Link"
set Lcount = browser("Title:=.*").page("Title:=Google").ChildObjects(desco)
MsgBox Lcount.count
For i=0 to Lcount.count-1
print i&" = "& Lcount(i).getroproperty("Name")
Next
No comments:
Post a Comment