Joe Strazzere - All Things Quality

December 1, 2005 - WinTask - HTMLDisabled

Posted in WinTask

'
' 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


<- Last Page :: Next Page ->

About Me

A gathering place for information and ideas about Quality Assurance, Testing, and other useful topics.

Search This Site

RSS Feed

Subscribe

Categories

Friends
Life
QA
Sports
Tools
WinTask
Work in General

Links

Home
View my profile
Archives
Email Me
SQAForums.com

Friends

aalhait
jimhazen
philk10
JakeBrake
PeteNairn

What I'm Reading Now