Ребят помогите скриптом для Адрика против этой капчи [IMG][/IMG]
Если не ошибся, должно получится.
Цитата:
uses SysUtils;
var tmpDialog,tmpString:string;
var posCaptcha, num1, count:integer;
begin
while Engine.Status = lsOnline do begin
tmpDialog := Engine.DlgText;
if (Pos('Активирован штраф', tmpDialog) <> 0) then
begin
tmpString:='';
tmpDialog:='';
tmpDialog:=Engine.DlgText;
posCaptcha:=pos('<font color=LEVEL>',tmpDialog);
posCaptcha:=posCaptcha+19;
while not (tmpDialog[posCaptcha] = ' ') do begin
tmpString:=tmpString + tmpDialog[posCaptcha];
posCaptcha:=posCaptcha + 1;
end;
num1:=StrToInt(tmpString);
print(IntToStr(resultNum));
Engine.BypassToServer('00 '+IntToStr(resultNum), True);
count:=count+1;
print ('Капча выскакивала -->'+IntToStr(count)+'<-- раз, но мы ее обошли =)');
end;
Delay (888);
end;
end.
[/IMG]
