Browser("Access Denied").Page("Access Denied").Sync
Browser("Access Denied").Navigate "http://moodysnet/AccessDenied.aspx"
set x= Browser("Access Denied").Page("Access Denied").Object.all.tags("img")
If not x.length<0 Then
msgbox x(0).src
End If
set x= Browser("Access Denied").Page("Access Denied").Object.all.tags("html")
If not x.length<0 Then
msgbox x(0).xmlns
End If
set x= Browser("Access Denied").Page("Access Denied").Object.all.tags("form")
If not x.length<0 Then
msgbox x(0).name &vbnewline & x(0).method &vbnewline & x(0).action &vbnewline & x(0).id
End If
No comments:
Post a Comment