December 1, 2005 - WinTask - HTMLDisabled

'
' 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("",noactivate)
  HTMLDisabled = 0
 Else
  HTMLDisabled = 1
 EndIf
EndFunction

UsePage("Page Title")
MsgBox(HTMLDisabled("A[HREF= 'http://blahblahblah']"))

Any comments on this article?
Email Me