I want use that dll:
Code: Select all
Global Dim Backup.b(5)
Procedure HookedMouse_Event(a,b,c,d)
MessageBox_(0,"mouse_eveit hooked","Title",0)
;ProcedureReturn 0
EndProcedure
Procedure HookedSetCursorPos(a,b)
MessageBox_(0,"SetCursorPos hooked","Title",0)
; ProcedureReturn 0
EndProcedure
Procedure HookedKeybd_Event(a,b,c,d)
MessageBox_(0,"keybd_event hooked","Title",0)
;ProcedureReturn 0
EndProcedure
Procedure Hook(library$,function$,HookedProcAddr)
dwAddr=GetProcAddress_(GetModuleHandle_(library$),function$)
ReadProcessMemory_(GetCurrentProcess_(),dwAddr,@Backup(0),6,@readbytes)
Dim a.b(6) : a(0)=$E9 : a(5)=$C3 : dwCalc=HookedProcAddr-dwAddr-5
CopyMemory(@dwCalc,@a(1),4)
WriteProcessMemory_(GetCurrentProcess_(),dwAddr,@a(0),6,@written)
EndProcedure
Hook("C:\WINDOWS\system32\user32.dll","mouse_event",@HookedMouse_Event())
Hook("C:\WINDOWS\system32\user32.dll","SetCursorPos",@HookedSetCursorPos())
Hook("C:\WINDOWS\system32\user32.dll","keybd_event",@HookedKeybd_Event())
If i place path to that dll in HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Windows\AppInit_DLLs and then i can't load my windows OS

where is my mistake?
sorry for my bad english
