Перейти к содержимому

Фотография
- - - - -

Alt_B Buffer

buffer alt_b парсинг bypass

Лучший Ответ pups, 27 Июнь 2019 - 02:19

мне обычно, для альтб, хватает такой функции: function BypassALTB(cb: string): boolean; var RegExp: TRegExpr; SL: TStringList; i: integer; bps: string; begin Result:= true; RegExp:= TRegExpr.Create; SL:= TStringList.Create; RegExp.Expression:= '(<a *... Перейти к сообщению


  • Авторизуйтесь для ответа в теме
Сообщений в теме: 2

#1
dareokon

dareokon
  • 32
    27
    А что, если...
    • Lvl 20
    • Пользователь

помогите сделать авто бафф с альт б  вот кусок  кода который выдаёт при парсинге командой Print(Engine.CBText);

 

<br1><button value="Set Warrior" action="bypass 586110639"  bypass  меняется после нажатия - закрытия  то есть Я могу отловить bypass  и отправить но, как заставить адреналин отлавливать и отправлять  ....  ???

 

пробовал скрипт из темы Работа с динамическими bypass'ами. Регулярные выражения

не чего не происходит....

 

uses SysUtils, Classes, RegExpr;  // подключили модуль RegExpr
 
function Bypass(dlg: string): boolean;
var
  RegExp: TRegExpr;
  SL: TStringList;
  i: integer;
  bps: string;
begin
  Result:= true;                                            // задаем результат по умолчанию
  RegExp:= TRegExpr.Create;                                 // инициализируем объекты для дальнейшей работы
  SL:= TStringList.Create;
  
  RegExp.Expression:= '(<a *(.+?)</a>)|(<button *(.+?)>)';  // задаем регэксп на поиск всех возможных bypass'ов 
  if RegExp.Exec(Engine.DlgText) then                       // если нашлелся нужный шаблон, то
    repeat SL.Add(RegExp.Match[0]);                         // заполняем наш список такими совпадениями
    until (not RegExp.ExecNext);                            // пока не закончатся шаблоны
 
  for i:= 0 to SL.Count-1 do begin                          // теперь пробегаемся по нашему списку
    if (Pos(dlg, SL[ i ]) > 0) then begin                     // если в i-ой строке нашелся искомый текст, то
      RegExp.Expression:= '"bypass -h *(.+?)"';             // ищем шаблон текста c bypass'ом
      if RegExp.Exec(SL[ i ]) then                            // и если нашли, то копирем из него интересующий нас кусок
        bps:= TrimLeft(Copy(RegExp.Match[0], 12, Length(RegExp.Match[0])-12));
    end;
  end;
  
  Print(bps);                                               // распечатываем конечный вариант bypass'а
  if (Length(bps) > 0) then Engine.BypassToServer(bps);     // если его длина > 0, то отправляем на сервер
  
  RegExp.Free;                                              // не забываем освобождать память
  SL.Free;
end;
 
begin
  Bypass('Empower');
end.

  • 0

D@reokon


#2
pups

pups

мне обычно, для альтб, хватает такой функции:

function BypassALTB(cb: string): boolean;
var
  RegExp: TRegExpr;
  SL: TStringList;
  i: integer;
  bps: string;
begin
  Result:= true;                                           
  RegExp:= TRegExpr.Create;                                
  SL:= TStringList.Create;

  RegExp.Expression:= '(<a *(.+?)</a>)|(<button *(.+?)>)';  
  if RegExp.Exec(Engine.cbText) then                     
    repeat SL.Add(RegExp.Match[0]);                        
    until (not RegExp.ExecNext);                           

  for i:= 0 to SL.Count-1 do begin                        
    if (Pos(cb, SL[ i ]) > 0) then begin                   
      RegExp.Expression:= '"bypass *(.+?)"';            
      if RegExp.Exec(SL[ i ]) then                          
        bps:= TrimLeft(Copy(RegExp.Match[0], 9, Length(RegExp.Match[0])-9));
    end;
  end;

  Print(bps);                                              
  if (Length(bps) > 0) then Engine.BypassToServer(bps);     

  RegExp.Free;                                             
  SL.Free;
end;

  • 1

#3
dareokon

dareokon
  • 32
    27
    А что, если...
    • Lvl 20
    • Пользователь

во я пося ......  скрипт запускаю в одном окне а смотрю в другое  :xd:  спс ЧЕЛОВЕЧИЩЕ  :)


Сообщение отредактировал dareokon: 27 Июнь 2019 - 11:03

  • 0

D@reokon




Темы с аналогичным тегами buffer, alt_b, парсинг, bypass

Количество пользователей, читающих эту тему: 0

0 пользователей, 0 гостей, 0 анонимных

Rawr.pro - Сделано с для игроков.