RU CLICKSРусский трафик
О нет! Где
JavaScript ?
У Вашего браузера отключен JavaScript или он просто не поддерживает JavaScript. Пожалуйста
включите JavaScript на Вашем веб-браузере для нормального просмотра данного веб-сайта,
или
обновите свой браузер на поддерживаемый JavaScript;
Firefox ,
Safari ,
Opera ,
Chrome или
Internet Explorer не ниже, чем версия 6.
Информация о теме:
Имеются 1 сообщений по данной теме,
которая была просмотрена 3205 раз.
Просмотр темы
Текущий рейтинг: (Всего: 0 голосов )
Опубликовано 28-01-2020 18:19
Супер Администратор
Сообщений: 2689
Вас поблагодарили: 23 раз(а) в 23 сообщениях
Зарегистрирован: 24.03.10
Со дня регистрации: 5148
Откуда: Россия
Скрыть награды
Автологин, проверка по Скрипт проверяет онлайна "CheckMove"
function ShellExecuteW(hwnd: integer; lpOperation, lpFile, lpParameters, lpDirectory: PChar; nShowCmd: integer): integer; stdcall;
external 'Shell32.dll';
const
/////////////////////////////////////////////////////////////////////// ////////////////////////////
/////////////////////////////////////////////////////////////////////// ///////////////////////////
//--------------------------------------НАСТРОЙКИ СКРИПТА----------------------------------------//
LOGIN = 'ваш логин тут'; // логин аккаунта
PASSWORD = 'ваш пароль тут'; // пароль аккаунта
GAMEPATH = 'C:\game\L2\system\l2.exe'; // путь в l2.exe которую надо запускать
DELAY_CHECK = 2; // задержка проверки в секундах
DELAY_LOAD_CLIENT = 10; // задержка перед запуском игры в секундах
DELAY_LOAD_INGAME = 15; // задержка на вход в игру в секундах (после выбора персонажа)
/////////////////////////////////////////////////////////////////////// ///////////////////////////
/////////////////////////////////////////////////////////////////////// ///////////////////////////
//---------------------------------------НАЧАЛО СКРИПТА-----------------------------------------//
var
CountReload: integer;
function CheckMove: boolean;
var
x, y : integer;
begin
result := false;
x := user.x;
y := user.y;
engine.moveto(user.x + 1, user.y + 1, user.z);
delay (500);
if not (user.x = x) and not (user.y = y) then begin
result := true;
end;
end;
procedure ReloadWindow;
begin
Engine.FaceControl(0, false);
Delay(300);
Engine.GameClose;
Delay(1000);
ShellExecuteW(0, 'open', PChar(GAMEPATH), nil, nil, 0);
Delay(DELAY_LOAD_CLIENT * 1000);
Engine.EnterText(LOGIN);
Engine.UseKey('Tab');
Delay(500);
Engine.EnterText(PASSWORD);
Delay(500);
Engine.UseKey('Enter');
Delay(2000);
Engine.UseKey('Enter');
Delay(2000);
Engine.UseKey('Enter');
Delay(5000);// задержка на вход в окно выбора персонажа
Engine.UseKey('Enter');
Delay(DELAY_LOAD_INGAME * 1000);
end;
procedure ReloadMonitorThread;
begin
while delay(DELAY_CHECK*1000) do begin
if CheckMove then begin
Engine.Msg('[RELOAD MONITOR]','проверка успешна - мы в игре', $008000);
end
else begin
inc(CountReload);
Engine.Msg('[RELOAD MONITOR]','проверка провалена - окно вылетело', $0000FF);
Engine.Msg('[RELOAD MONITOR]','выполняю перезапуск окна', $0000FF);
ReloadWindow;
end;
end;
end;
begin
Engine.Msg('[RELOAD MONITOR]','скрипт запущен', $008000);
script.newthread(@ReloadMonitorThread);
end.
Здесь присутствуют: 1 (пользователей: 0, гостей: 1)
Перейти на форум:
- Игровые форумы -- Lineage --- Серверная --- Лаборатория --- Боты и скрипты --- Квесты и гайды -- Aion --- Серверная --- Квесты и гайды -- World of Warcraft --- Серверная --- Квесты и гайды -- Tera --- Серверная --- Квесты и гайды -- Archeage -- EVE online -- Diablo 3 -- Сounter-strike -- Point Blank -- Minecraft - Mmorpg и online -- Серверная -- Обзоры серверов -- Квесты и гайды -- Лаборатория -- Реклама - PC -- Чит коды -- Квесты и гайды - Консоли - Другие игры - Торговля
- События и встречи - Аниме - Музон - Видео - Софт - Железо - Мобильники - Финансы - Интернет -- Социальные сети -- Blockchain - Операционные системы -- Windows -- Linux - Программирование -- PHP -- C++ -- PERL -- Java -- Flash - Юмор - Отношения - За рулем - Спорт - Здоровье - Культура и наука - Непознанное -- Сонники -- Эзотерика - Религия - Природа - Кулинария - Дизайн
- Флуд -- For English - speaking users - Реклама - Архив
- Техничка
Последние объявления
Фумигация , Универсальный кабель LMcable подходит для iPhone и Android , Intel переносит релиз процессоров Ivy Bridge на апрель 2012 , Золото в ArcheAge Aion WOW Lineage 2 KAROS и другие игровые валюты! , Муравьиная ферма, гелевый муравейник-аквариум antworks , War of Immortals: состоялся релиз , Осады. , ЦБ Ямайки запустит собственную цифровую валюту в 2022 году , Самая длинная документальная программа в мире , Тесты пробитий танков World of Tanks , Выдвинута новая гипотеза о происхождении Тунгусского метеорита , Банк Индии заблокировал средства полиции от продажи конфискованных криптовалют , Изменение шрифта и его размера в файле Interface.xdat , Квест на профессию Shillien Saint для Shillien Elder , Crytek продемонстрировала возможности Free SDK CryEngine 3 с обновлением 3.4
Oтзывы и предложения для FAQ7.ru