Cheat Engine

[AwayTheWInd]

my keyboard hook isnt working and the function: KeyboardProc isnt being called.

Option Explicit On
Public Delegate Function KeyboardDelegate(ByVal idHook As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Class Scanner
Public Const WH_KEYBOARD_LL = 13&
Public Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal ncode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As KeyboardDelegate, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Public hHook As Long

Public Function KeyboardProc(ByVal idHook As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
'if idHook is less than zero, no further processing is required
If idHook < 0 Then
'call the next hook
KeyboardProc = CallNextHookEx(hHook, idHook, wParam, lParam)
Else
If GetAsyncKeyState(16) Then
Button1.Text = "A"
End If
'call the next hook
KeyboardProc = CallNextHookEx(hHook, idHook, wParam, lParam)
End If
End Function

Private Sub Scanner_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
UnhookWindowsHookEx(hHook)
End Sub

Private Sub Scanner_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
hHook = SetWindowsHookEx(WH_KEYBOARD_LL, AddressOf KeyboardProc, System.Runtime.InteropServices.Marshal.GetHINSTANCE(System.Reflection.Assembly.GetExecutingAssembly.GetModules()(0)).ToInt32, AppDomain.GetCurrentThreadId())
End Sub
End Class

[hcavolsdsadgadsg]

WH_KEYBOARD, not WH_KEYBOARD_LL

[Zerith]

.NET Doesn't support global hooks, so you better just set a KeyDown even for all the controls:

[samuri25404]

[Zerith]

Well, I read somewhere it's not possible, so I googled some and I saw this: