December 1, 2005 - WinTask - IsWindowVisible

'
' IsWindowVisible
'

' "user32" Alias "IsWindowVisible" (ByVal hwnd As Long) As Long

shell("notepad")
UseWindow("NOTEPAD.EXE|Edit|Untitled - Notepad|1",1)
SendKeys("")

hwnd=GetWindowHandle("NOTEPAD.EXE|Button|&Find Next",1)
a = External("user32","IsWindowVisible", hwnd)
msgbox("Visibility Status for Find Next button is : "+Str$(a),,"IsWindowVisible")

hwnd=GetWindowHandle("NOTEPAD.EXE|Button|Cancel",1)
a = External("user32","IsWindowVisible", hwnd)
msgbox("Visibility Status for Cancel button is : "+Str$(a),,"IsWindowVisible")

SendKeys("fxn")