'
' HTMLDisabled - Checks if an HTML button is disabled
'
' When the button is disabled, HTMLDisabled returns 1, otherwise it returns 0
'
' Author: Joe Strazzere
'
Function HTMLDisabled(Descriptor$)
#ActionTimeout=3
#IgnoreErrors=1
ret=ClickHTMLElement(Descriptor$,right)
#IgnoreErrors=0
#ActionTimeout=30
If ret = 0 then
UseWindow(Top$(),TopInstance())
SendKeys("<Esc>",noactivate)
HTMLDisabled = 0
Else
HTMLDisabled = 1
EndIf
EndFunction
UsePage("Page Title")
MsgBox(HTMLDisabled("A[HREF= 'http://blahblahblah']"))
