15:44 | 28.03.2024
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Форум » Lineage 2 » Adrenalin бот » Скрипты для Adrenalin » Ввод каптчи и парсинг
Ввод каптчи и парсинг
Sonik · Offline · Дата: Суббота, 05.12.2015, 15:06 | Сообщение # 1

  • Подполковник
  • Сообщений: 143
 
3
 
Парсинг - самый элементарный пример - для понимания, также можно парсить байпасы у бафера...
Код
var 
  str1, str2, str3: string;
  P: Integer;
begin
      str1 := 'email-login@mail.ru'; // Наш пример email адреса
      str2 := '@'; // До этого символа мы будем потом вырезать логин
      P := Pos(str2, str1) - 1; // Узнали длину строки от начала до символа '@'. В нашем примере это будет 11
      str3 := Copy(str1, 0, P); // Теперь в переменной str3 хранится наш логин без '@mail.ru'
      print(str3); // Выводим результат
end.


А это готовая каптча с вводом на Разоре
Код
var InpStr, TxtOut :string; //объявление строковых переменных
var TxtPoint :integer; //объявление Числа
Begin

while true do begin //начало цикла
  InpStr:=engine.dlgtext; //закидываем текст окна в строковую переменную
  TxtPoint:=Pos('L>999', InpStr); //находим позицию необходимого для отправки куска
  TxtOut:=('00 '+Copy(InpStr, TxtPoint+2, 5)); //формируем строку ответа
  if copy(TxtOut, 4, 1)='9' then
    begin
    Engine.BypassToServer(TxtOut); //отправка результата
    end else print('no antibot now'); // необязательный вывод в лог
Delay(15000); //задержка
end;
end.

Форум » Lineage 2 » Adrenalin бот » Скрипты для Adrenalin » Ввод каптчи и парсинг
  • Страница 1 из 1
  • 1
Поиск: