January 1, 2005

WinTask - IsWindowEnabled

'
' IsWindowEnabled
'
' Author: Joe Strazzere
'

' "user32" Alias "IsWindowEnabled"
' (ByVal hwnd As Long) As Long
shell("notepad")
UseWindow("NOTEPAD.EXE|Edit|Untitled - Notepad|1",1)
SendKeys("<F3>")
hwnd=GetWindowHandle("NOTEPAD.EXE|Button|&Find Next",1)
a = External("user32","IsWindowEnabled", hwnd)
msgbox("Enabled Status for Find Next button is : "+Str$(a),,"IsWindowEnabled")
hwnd=GetWindowHandle("NOTEPAD.EXE|Button|Cancel",1)
a = External("user32","IsWindowEnabled", hwnd)
msgbox("Enabled Status for Cancel button is : "+Str$(a),,"IsWindowEnabled")
SendKeys("<Esc><Alt>fxn")