• Home
 · 
• Windows System Services
 · 
• This code shows how to Lock or Unlock any Window on Win95/98/NT

This code shows how to Lock or Unlock any Window on Win95/98/NT

This code shows how to Lock or Unlock any Window on Win95/98/NT

API Declarations


' CaptiveX TM. '
' Writen by nofx (op-ivy) '
'http://www.sharpnet.net/~nofx/'
'or visit us on EFNET #captivex'
' P.S. '
' Have Fun '


#If Win32 Then
Declare Function EnableWindow& Lib "user32" (ByVal hWnd As Long, ByVal fEnable As Long)
Declare Function FindWindow& Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String)
#Else
Declare Function EnableWindow% Lib "user" (ByVal hWnd As Integer, ByVal aBOOL As Integer)
Declare Function FindWindow% Lib "user" (ByVal lpClassName As Any, ByVal lpWindowName As Any)
#End If 'WIN32



Rate This code shows how to Lock or Unlock any Window on Win95/98/NT

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Dim lFndWnd As Long
Dim lDisEnWnd As Long

lFndWnd = FindWindow(vbNullString, WindowName$) 'Finds the Window Name
lDisEnWnd = EnableWindow(lFndWnd, ByVal EnabOrDisab&) 'Disables all mouse and keyboard input to the specified window.
                                                      'In ByVal EnabOrDisab& you either enter: 0 to Disable Window or 1 to Enable it.
End Function