Witam piszę bota do gry.
Muszę założyć hook na myszkę w obrembie okna bota jednak wszelkie próby zakończyły się fiskiem. Próbowałem tak:
Jednak to nie działa. Jak mogę to zrobić.
Z góry dzięki.
Muszę założyć hook na myszkę w obrembie okna bota jednak wszelkie próby zakończyły się fiskiem. Próbowałem tak:
Kod:
unit MouseHook;
interface
uses
Windows,
Messages,dialogs;
const
WM_GOTCLICK=WM_USER+572;
var
hhk :HHOOK;
FormHandle: THandle;
x,y: integer;
function CreateHook(HWnd: THandle):boolean ;stdcall;
implementation
function MouseProc(nCode : integer; WPARAM : wParam; LPARAM :lParam) :lresult;stdcall;
begin
if (wparam=WM_LBUTTONDOWN) or (wparam=WM_NCLBUTTONDOWN) then
begin
x:= lo(lparam);
y:= hi(lparam);
end;
Result:=CallNextHookEx(hhk, nCode, wParam,
lParam);
end;
function CreateHook(HWnd: THandle):boolean ;stdcall;
begin
hhk:=SetWindowsHookEx(WH_MOUSE, MouseProc, HInstance,0);
result:= true;
end;
procedure KillHook; stdcall;
begin
UnhookWindowsHookEx(hhk);
hhk:=0;
end;
procedure CloseDLL(Reason:Integer);
begin
if Reason=DLL_PROCESS_DETACH then
KillHook;
end;
end.
Z góry dzięki.