Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Bot para juego (https://www.clubdelphi.com/foros/showthread.php?t=70738)

kdemia 08-11-2010 21:49:49

Bot para juego
 
que tal estoy haciendo un automatizador para un juego que supongo que muchos de ustedes conoceran, el MU Online, bueno el tema es el siguiente el bot se activa y desactiva con los F's eso ya esta hecho, lo hice con los hook, tmb debe mandar señales de teclas lo cual tambien ya está hecho, el problema lo tengo cuando mando clicks via codigo, es como q hace un click creo yo pero como que el mu no lo acepta osea no hace nada con ese click, ak dejo el codigo para uqe vean:

Este es uno que no funciona, la operacion FindWindows funciona ya que lo trae al frente y no devuelve 0.. el problema esta en hacer el click, le meti dos sleep creyendo que por ahi iba muy rapido pero tmp.
Código SQL [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Window:HWnd;
  WindowRect: TRECT;
  X,Y: integer;
begin
  Window:=FindWindow(nil, 'MU');
  if Window <> 0 then
  begin
    GetWindowRect(Window, WindowRect);
    X:= Mouse.CursorPos.X - WindowRect.Left;
    Y:= Mouse.CursorPos.Y - WindowRect.Top;
    if (Window <> GetForegroundWindow()) then
      SetForegroundWindow(Window);
    sleep(5);
    SendMessage(Window, WM_LBUTTONDOWN, MK_LBUTTON, X or (Y shl 16));
    sleep(5);
    SendMessage(Window, WM_LBUTTONUP, 0, X or (Y shl 16));
  end;
end;

Este es el otro codigo en el cual hago anteriormente un setcursorpos a dnd me interesa y dsp mando esto:
Código SQL [-]
    Windows.mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
    Windows.mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);

Saludos y Gracias de antemano


La franja horaria es GMT +2. Ahora son las 17:30:52.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi