Простая капча "Продолжить"

SARCAZM · 25 Авг 2015

На многих мелких серверах ставят такую капчу.

Код:

Begin
while true do begin
Engine.BypassToServer('00', True) ;
Engine.DlgSel('Продолжить');
Delay(1000);
end;
end.

nazar55 · 22 Окт 2015

на моем сервачке капча с вариантами ответа.. как сделать чтобы мигало окно л2 когда она вискакивает ?

KoJInak · 9 Янв 2016

@SARCAZM,

Работает на http://linestorm.ru/ (включать нужно скрипт после того как её в ведешь сам)

FuNExperT · 9 Апр 2016

Нормальный скрипт при заточке часто ету капчу ставят! большое спс тому кто написал!

ssezz · 2 Окт 2016

Немного допилил предложенный вариант.
Происходит проверка окна, и только потом ответ.
На моем сервере при постоянном спаме байбапаса появлась новая капча и заточка блокировалась.

var Captcha:string;
begin
while true do
begin
delay(500) ;
if Captcha <> Engine.DlgText then
begin
Captcha := Engine.DlgText;
if (Pos('Превышен', Captcha) <> 0) then
Engine.BypassToServer('00', True);
Delay(1800);
end;
end;
end.

sonik56rus · 21 Окт 2016

Здравствуйте! Подскажите пожалуйста, я очень далек от скриптов... играю на сервере присутствует капча. Имеется данный файл где указанны байпасы...

Что сделать что бы тыкал? Признаюсь, к сожалению использую ломанный адреналин.

adr.bot · 21 Окт 2016

@sonik56rus,

Код:

uses sysutils,classes;

function Buff(value:string):boolean;
var
  s:string;
  bypass:string;
  i:integer;
  b:boolean;
  mass:array [1..100] of string;
  Obj: TL2Buff;
begin
  s:=Engine.DlgText;
  b:=true;
  i:=1;
  while b do
  begin
    Delete(s,1,Pos('<button',s)-1);
    mass[i]:=Copy(s,1,Pos('>',s));
    Delete(s,1,Length(mass[i]));
    inc(i);
    if Pos('<button',s) = 0 then
      b:=false;
  end;
  for i:=1 to 100 do
    if mass[i] <> '' then
        if Pos(value,mass[i]) <> 0 then
        begin
          bypass := mass[i];
          delete(bypass,1,pos('action="',bypass)+17);
          bypass:=Copy(bypass,1,pos('"',bypass)-1);
          break;
        end;
    Engine.ByPassToServer(bypass);
end;

var
p1,p2:pointer;
action:tl2action;
begin
  while true do begin
  action:= engine.waitaction([ladlg], p1,p2);
    if (action = ladlg ) then
    if pos('You Are Bot', engine.dlgtext) <> 0 then begin
    delay(1500);
    Buff('I''M NOT BOT!!!');
    end;
  end;
end.

sonik56rus · 21 Окт 2016

@adr.bot, огромное спасибо, сейчас проверю!

sonik56rus · 21 Окт 2016

@adr.bot, к сожалению, что-то не так. автоматически клацнулась кнопка я бот, и меня благополучно кикнуло...

stirlic · 8 Ноя 2016

@adr.bot, скрипт работает, только еще бы после того как он сработал нажимал бы крестик в окошке капчи, а то если нажимаешь на кнопку которую уже нажал скрипт всё равно выкидывает.

losik · 13 Мар 2017

Доброго времени суток! Ребята поделитесь скриптом на обход капчи на linestorm.ru

ilovekotik · 14 Мар 2017

@losik, На самом деле да, сегодня начала играть, уже настроился на легкую адену но вот эта капча..... Help

mrCaxarok · 15 Мар 2017

@losik,

за скриптом пиши скайп zeus.bot

Reliable · 15 Мар 2017

@ilovekotik,
в вк мне отпишите https://vk.com/reliable88помогу за пивко))))

Простая капча "Продолжить"

SARCAZM

Это что за покемон?

nazar55

KoJInak

Изгнан

FuNExperT

ssezz

sonik56rus

adr.bot

sonik56rus

sonik56rus

stirlic

losik

ilovekotik

mrCaxarok

Reliable