worldbest  | Дата: Четверг, 31.10.2013, 21:48 | Сообщение # 1 | 
Сообщений: 65 |
 |
| Урок предназначен прежде всего для пользователей, которые знакомы с delphi.
Для начала запустим delphi.
На форме: 2 bitbtn, 1 label.
Кинем с вкладки "Additional" 2 BitBtn.
У BitBtn в левой менюшке "Object Inspector" где Caption, оставим поле пустым
вот так:
Как я сделал красивые кнопки?
1.Создаем картинку с надписью Enable и еще одну с Exit.
2. ]Формат должен быть .bmp
3. В delphi у BitBtn в левой менюшке "Object Inspector" тыкаем Glyph, Load. И загружаем картинку.
Еще уберем окно программы для этого у Form1 в Object Inspector
где BorderStyle поставим значение bsNone.
Теперь сделаем программу немного прозрачной. У Form1 где AlphaBlend ставим значение True, а AlphaBlendValue пишем 220
Кинем на форму Label с вкладкиStandart.
В Object Inspector,в Caption напишем: secrets-samprp.at.ua
И в Font выбираем размер, шрифт, цвет.
Как вы поняли при нажатии на secrets-samprp.at.ua будет открываться этот сайт.
С дизайном готово, приступим к кодингу,
Два раза нажимаем на кнопку Enable.
пишем: Код var h:hwnd; // переменные
begin
h:=findwindow(nil,'GTA:SA:MP'); // находим окно Gta
PostMessage(h,WM_SETFOCUS,0,0); // направляем сообщение окну
sleep(200); // ожидание
keybd_event(Ord('W'), 0, 0, 0); // Нажимаем клавишу W
sleep(200); // ожидание
keybd_event(VK_RETURN, 0, 0, 0); // Нажимаем клавишу Enter
sleep(200); // ожидание
keybd_event(VK_RETURN, 0, KEYEVENTF_KEYUP, 0); // отпускаем клавишу enter
Примечание: var всегда перед begin.
У Form1 во вкладке Events тыкаем на OnClose и пишем после begin
Код [UnRegisterHotKey(handle,81);
Тыкаем два раза по самой форме и пишем после begin
Код RegisterHotKey(handle,81, 0, 81);
Для кнопки Exit. Пишем после begin
Тыкаем два раза по Label и пишем после begin
Код ShellExecute(application.Handle,'Open','http://cheat-master.ru',Nil,Nil,SW_SHOWDEFAULT);
Теперь компилируем программу, нажимаем на F9.
Программа запустилась.
Заходим в GTA. Тыкаем Alt+enter. уменьшаем размер окна. Заходим в меню. В программе тыкаем Enable. В GTA выходим из меню и наш игрок бегает!
-
Забыл добавить. В uses это самый вверх кода, нужно написать Shellapi
|
|
|
|