WinTask - IsBroswerBusy()

'

' IsBrowserBusy - Check if the browser is busy or not

'

' Author: Joe Strazzere

'

' Return 0 if browser is busy, 1 if browser is not busy

'

Function IsBrowserBusy()

Local MyStatus$

MyStatus$=Capture$("IEXPLORE.EXE|msctls_statusbar32||1",0,1)

' May need to revise this line, depending on your needs

If (Left$(MyStatus$,4) = "Done") Or (Left$(MyStatus$,8) = "Internet") Then

IsBrowserBusy = 1

else

IsBrowserBusy = 0

Endif

EndFunction

i=0

   While i< 30

MsgFrame(Str$(IsBrowserBusy())+" "+Capture$("IEXPLORE.EXE|msctls_statusbar32||1",0,1),1,1,1)

i=i+1

Wend

---

I'm Joe Strazzere and I'm currently a Director of Quality Assurance. I like to lead, to test, and occasionally to write about leading and testing.