my code is like this:
set obj=Browser("name:=Blackboard.*").Page("title:=Blackboard.*").Frame("name:=main.*").object.all.tags("IMG")
msgbox obj.length
For each element in obj
s1=element.nameProp
If Browser().Page().Frame().Image("file name:="&s1,"index:=0").exist(0) then
If Browser().Page().Frame().Image("file name:="&s1,"index:=0").Object.complete="True" then
msgbox "pass"
else
msgbox "fail"
end if
end if
Next
Wednesday, December 16, 2009
Subscribe to:
Post Comments (Atom)

No comments:
Post a Comment