Адреналин: автологин

Заработай шерингом

Навигация

+ -

Скачать игры

Сейчас на сайте

25.04.2024

Aloha123

00:30:49

24.04.2024

Yaposhka

1 день

24.04.2024

V1ad

1 день

22.04.2024

Apollo

3 дней

19.04.2024

Samurai97

5 дней

Показать статистику

Последние фото

Game of Blocks : WesterosCraft and Game of Thrones

Game of Blocks : Wes...
Альбом: Скриншоты

Вынос трёх пати куполом
Альбом: Скриншоты

Альбом: Флора

Последние видео

Видео THE WORLD LIVE - since 2008 | earthTV : So thank you for the many views of this stream, please enjoy the original classic television version of THE WORLD LIVE, first uploaded here for you in 2008 with just 7 locations.

Онлайн камеры: THE WORLD LIVE - since 2008 | earthTV

$Видео The Best Of Norway's Railway Cab Views : I\$

Онлайн камеры: The Best Of Norway's Railway Cab Views

Видео 130 LIVE World Cameras : 130 LIVE World Cameras, Relaxing Music, Map, Daily Timelapse - Your Armchair Travel

Онлайн камеры: 130 LIVE World Cameras

Наша кнопочка

Код:

<a href="http://faq7.ru/" target="_blank"><img border="0" src="http://faq7.ru/images/banner88.gif" width="88" height="31" alt="FAQ7.ru"></a>

RSS каналы

RU CLICKSРусский трафик

О нет! Где JavaScript?
У Вашего браузера отключен JavaScript или он просто не поддерживает JavaScript. Пожалуйста включите JavaScript на Вашем веб-браузере для нормального просмотра данного веб-сайта,
или обновите свой браузер на поддерживаемый JavaScript; Firefox, Safari, Opera, Chrome или Internet Explorer не ниже, чем версия 6.

Автор темы: Warhangel
ID темы: 2263

Информация о теме:

Имеются 1 сообщений по данной теме, которая была просмотрена 3202 раз.

Просмотр темы

Главная страница

Регистрация

Поиск

Форум » Игровые форумы » Lineage » Боты и скрипты

Просмотр темы

Текущий рейтинг: (Всего: 0 голосов)

Поиск в этой теме

Опции темы

Адреналин: автологин

Warhangel

Опубликовано 28-01-2020 18:19

Супер Администратор

Сообщений: 2689
Вас поблагодарили: 23
раз(а) в 23 сообщениях
Зарегистрирован: 24.03.10
Со дня регистрации: 5146

Откуда: Россия

Скрыть награды

header=[Награда №1] body=[Медаль Создателя]

Автологин, проверка по Скрипт проверяет онлайна "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)

« Предыдущая тема | Следующая тема »

Перейти на форум:

Последние объявления

Фото	Заголовок	Город	Размещено
	Филиал «КЧХК» АО «ОХК «УРАЛХИМ» в Кирово-Чепецке реализует неликвиды • Хозяйство - Сырье и материалы Цена: 1 1	Киров	Вчера в 21:00:04 (на 1 месяц)
	АО «Карельский окатыш», АО «Олкон» и ООО «Яковлевский ГОК» продают неликвиды • Хозяйство - Сырье и материалы Цена: 1 1	Другой	18.04.2024 (на 1 месяц)
	АО «Обуховский завод» реализует неликвиды • Хозяйство - Сырье и материалы Цена: 1 1	Санкт-Петербург	29.03.2024 (на 1 месяц)

Облако тегов тем форума

Sape, Linkfeed, амперсанд и PHP-Fusion, Доказано что у Чемпионов Фракции есть агро, Counter-Strike: Global Offensive - CG и геймплейный трейлеры, Новости mmorpg, Evangelion - вольный баянистый пересказ, Квест на Elder, Квест на Elemental Summoner, Квест на профессию Sword Muse для Sword Singer, Квест «Руины каллидонов», Квест на Grand Khavatari, В русской версии игры появился новый период минимальной подписки, Легенды Кунг-Фу: открыт второй сервер Змея, Самые полезные соки, Банки ОАЭ и Саудовской Аравии успешно протестировали цифровую валюту Aber, Следующий Fanfest пройдет 24-26 марта 2011 года

Game новости

Game сервисы

Инфо сервисы