Последние ответы
Тема Раздел
Используем API Lineage 2 с помощью Engine.dll... Программирование
Пишем бота для Lineage 2 [Delphi] #1 Программирование
Продам DownloaderBot [Торговля] Продажа
Все варианты обхода защит в одной теме! Актуальные уязвимости Lineage 2
Прямые руки или обход Smart Guard? Актуальные уязвимости Lineage 2
Как работать с потоками Delphi? Программирование
Куплю обход защиты СГ [Торговля] Продажа
Страница 1 из 11
Форум Lineage 2 » Вмешательство в внутриигровой процесс » Программы для Lineage 2 » Программирование » Автокликер мышки Lineage 2 (Delphi) (Исходник автокликера мыши для Lineage 2 на Delphi)
Автокликер мышки Lineage 2 (Delphi)
Дата: Чт, 30.06.2016, 12:22
Администратор Сообщений: 143 Статус: Offline

Приветствую всех! Сегодня я поделюсь небольшим куском кода, по написанию обычного автокликера мышки для Lineage 2 на Delphi.

Определение координатов:

Код
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer);
begin
Label1.Caption:= IntToStr(X);
Label2.Caption:= IntToStr(Y);

Запоминание и сохранение:

Код
uses
IniFiles;


Код
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;  Shift: TShiftState);
var
Ini: Tinifile;
begin
if ( [ssCtrl]= Shift) and (Key = 49) then begin
Ini:=TiniFile.Create(extractfilepath(paramstr(0))+'Settings.ini');  
Ini.WriteString('Ctrl+1','X',Label1.Caption);
Ini.WriteString('Ctrl+1','Y',Label2.Caption);  
Ini.Free;

Открытие файла:

Код
procedure TForm1.FormCreate(Sender: TObject);
var  Ini: Tinifile;
begin
if FileExists('Settings.ini') then begin
Ini:=TiniFile.Create(extractfilepath(paramstr(0))+'Settings.ini');  
Label1.Caption:=Ini.ReadString('Ctrl+1','X','');  
Label2.Caption:=Ini.ReadString('Ctrl+1','Y','');  
Ini.Free
end
else
showmessage('Файл не найден');
end;

Код клавиш 49 - 1, 50 - 2, 51 - 3



Зарегистрируйся!:)

Добавить в Skype
Форум Lineage 2 » Вмешательство в внутриигровой процесс » Программы для Lineage 2 » Программирование » Автокликер мышки Lineage 2 (Delphi) (Исходник автокликера мыши для Lineage 2 на Delphi)
Страница 1 из 11
Поиск: