RU CLICKSРусский трафик
О нет! Где
JavaScript ?
У Вашего браузера отключен JavaScript или он просто не поддерживает JavaScript. Пожалуйста
включите JavaScript на Вашем веб-браузере для нормального просмотра данного веб-сайта,
или
обновите свой браузер на поддерживаемый JavaScript;
Firefox ,
Safari ,
Opera ,
Chrome или
Internet Explorer не ниже, чем версия 6.
Информация о теме:
Имеются 1 сообщений по данной теме,
которая была просмотрена 3204 раз.
Просмотр темы
Текущий рейтинг: (Всего: 0 голосов )
Опубликовано 28-01-2020 18:19
Супер Администратор
Сообщений: 2689
Вас поблагодарили: 23 раз(а) в 23 сообщениях
Зарегистрирован: 24.03.10
Со дня регистрации: 5147
Откуда: Россия
Скрыть награды
Автологин, проверка по Скрипт проверяет онлайна "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 - Реклама - Архив
- Техничка
Последние объявления
7 правил счастливой жизни , LucasArts анонсирует новую игру по вселенной Star Wars , А знаете ли вы, что , “Я его любила, а он оказался альфонсом” , Торговля и эскроу , Разные сонники , Профессиональный Майнинг , Обновление - 29.02.2012 , Элитные грузовики , Интересные факты о сексе в Древнем Риме , Игровая платформа Steam отказалась от Биткоина , Про майнинг , Не отображаются все сообщения в Skype , 1503 А.D. , Движок I-Novae и ММО Infinity
Oтзывы и предложения для FAQ7.ru