HackEvents

Public Const GWL_WNDPROC = -4
Global lpPrevWndProc As Long
 
'-PUT THIS PART IN A MODULE-------------

Function WindowProcedure(ByVal hw As Long, ByVal uMsg As _
  Long, ByVal wParam As Long, ByVal lParam As Long) As _
  Long
  Select Case uMsg
 'Cases comes from WinSPY
    Case 513: Form1.Text1.Text = _
         "WWW.Planet-Source-Code.com - for al your code"
    Case 516: Form1.Text1.Text = _
         "This example is from PLANET SOURCE CODE"
         WindowProcedure = -1 
        '= If you click Then WindowProcedure gets the 
        'command and not the Textbox
      Exit Function
    Case Else
    End Select
  WindowProcedure = CallWindowProc(lpPrevWndProc, hw, _
  uMsg, wParam, lParam)
End Function

Public Sub Hook()
  lpPrevWndProc = SetWindowLong(Form1.Text1.hwnd, GWL_WNDPROC, _
                  AddressOf WindowProcedure)
End Sub

Public Sub Unhook()
  Dim temp As Long
  temp = SetWindowLong(Form1.Text1.hwnd, GWL_WNDPROC, lpPrevWndProc)
End Sub

'-PUT THIS IN FORM1, Create a COMMAND1, COMMAND2, TEXT1

Private Sub Command1_Click()
    Hook
End Sub

Private Sub Command2_Click()
    Unhook
End Sub

'----RUN IT AND SEE IT. 
'((((DO NOT FORGET TO PRESS COMMAND2 IF EXIT)))

Private Sub Command1_Click()
 'Search for TEXT1.HWND and change this to 
 'any control of your project or the handler 
 'of a windows control if you know it.
End Sub

Private Sub Command2_Click()
  Unhook ' It disables the connection to a control
End Sub Name: 
Disable Popup menu, Hack, Events, AddressOf, Hook
Description:this DISABLE THE POPUP screen of all 
control where you RIGHTCLICK on This program can 
Disable, Hack, Create Events and all kind of stuff 
For whole Microsoft Windows If you know the Handler 
of the Control. It makes a HOOK whith that control 
and it is yours because you can give it Input but 
also can Get it's output. 
NOT TELLING MORE BUT YOU CAN RULE ALL CONTROLS IN WINDOWS

By: Michiel Schermer

Returns:
EVERYTHING YOU WANT FROM EVERY CONTROL. 
I have used -1 for it and the HANDLER of a textbox 
(FORM1.TEXT1.HWND) but that can by ANYTHING

Assumes:
VERY, VERY EASY CODE BUT LOOKS LONG BUT THAT IS 
ONLY DOC. (in green in VB)
This code can by used If by anybody even if you 
have no experience but the chooces For this source 
are so big that you can Do anything With it like 
Hack'ing passwords because if you know the handler 
of the control where you must Type a password than 
you can send feedback to it and can also can Get 
the output of it but that you must found out yourself 
because i'm not a hacker but a programmer and not 
stealing programs. Have respect for software 
developers and pay for it. This is only the thrue that 
it can be done.
It used the commands like in WINSPY. 
I used the RIGHT = (513) and LEFT (516) MouseButtonPress
REMEMBER that the values are in HEX. To convert use a 
HexCalcutor (HEXWORKSHOP got one) --

Side Effects:
VERY, VERY EASY CODE BUT LOOKS LONG BUT THAT IS ONLY DOC. 
(in green in VB)
Your system can Do a bit strange after you run it and 
have Exit the program but this is normal if:
WRONG HANDLER, CONTROL is Destroyed or that kind of stuff.
To fix that restart your computer and run it again 
(RESTART PC = Reset Memory)

Public Declare Function FlashWindow Lib "user32" _
(ByVal hwnd As Long, ByVal Invert As Long) As Long
Public Declare Function CallWindowProc Lib "user32" _
Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, _
ByVal hwnd As Long, ByVal Msg As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long
Public Declare Function SetWindowLong Lib "user32" _
Alias "SetWindowLongA" (ByVal hwnd As Long, _
ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Public Const GWL_WNDPROC = -4
Global lpPrevWndProc As Long

'-PUT THIS PART IN A MODULE-------------

Function WindowProcedure(ByVal hw As Long, ByVal uMsg As _
Long, ByVal wParam As Long, ByVal lParam As Long) As _
Long
Select Case uMsg
'Cases comes from WinSPY

Case 513: Form1.Text1.Text = _
"WWW.Planet-Source-Code.com - for al your code"
Case 516: Form1.Text1.Text = _
"This example is from PLANET SOURCE CODE"
WindowProcedure = -1
'= If you click Then WindowProcedure gets the

'command and not the Textbox

Exit Function
Case Else
End Select
WindowProcedure = CallWindowProc(lpPrevWndProc, hw, _
uMsg, wParam, lParam)
End Function

Public Sub Hook()
lpPrevWndProc = SetWindowLong(Form1.Text1.hwnd, GWL_WNDPROC, _
AddressOf WindowProcedure)
End Sub

Public Sub Unhook()
Dim temp As Long
temp = SetWindowLong(Form1.Text1.hwnd, GWL_WNDPROC, lpPrevWndProc)
End Sub

'-PUT THIS IN FORM1, Create a COMMAND1, COMMAND2, TEXT1

Private Sub Command1_Click()
Hook
End Sub

Private Sub Command2_Click()
Unhook
End Sub

'----RUN IT AND SEE IT.

'((((DO NOT FORGET TO PRESS COMMAND2 IF EXIT)))

Private Sub Command1_Click()
'Search for TEXT1.HWND and change this to

'any control of your project or the handler

'of a windows control if you know it.

End Sub

Private Sub Command2_Click()
Unhook ' It disables the connection to a control
End Sub Name:
Disable Popup menu, Hack, Events, AddressOf, Hook
Description:this DISABLE THE POPUP screen of all
control where you RIGHTCLICK on This program can
Disable, Hack, Create Events and all kind of stuff
For whole Microsoft Windows If you know the Handler
of the Control. It makes a HOOK whith that control
and it is yours because you can give it Input but
also can Get it's output.
NOT TELLING MORE BUT YOU CAN RULE ALL CONTROLS IN WINDOWS

By: Michiel Schermer

Returns:
EVERYTHING YOU WANT FROM EVERY CONTROL.
I have used -1 for it and the HANDLER of a textbox
(FORM1.TEXT1.HWND) but that can by ANYTHING

Assumes:
VERY, VERY EASY CODE BUT LOOKS LONG BUT THAT IS
ONLY DOC. (in green in VB)
This code can by used If by anybody even if you
have no experience but the chooces For this source
are so big that you can Do anything With it like
Hack'ing passwords because if you know the handler
of the control where you must Type a password than
you can send feedback to it and can also can Get
the output of it but that you must found out yourself
because i'm not a hacker but a programmer and not
stealing programs. Have respect for software
developers and pay for it. This is only the thrue that
it can be done.
It used the commands like in WINSPY.
I used the RIGHT = (513) and LEFT (516) MouseButtonPress
REMEMBER that the values are in HEX. To convert use a
HexCalcutor (HEXWORKSHOP got one) --

Side Effects:
VERY, VERY EASY CODE BUT LOOKS LONG BUT THAT IS ONLY DOC.
(in green in VB)
Your system can Do a bit strange after you run it and
have Exit the program but this is normal if:
WRONG HANDLER, CONTROL is Destroyed or that kind of stuff.
To fix that restart your computer and run it again
(RESTART PC = Reset Memory)