HTML:
<html>
<body>
<center>
<font color="FFDE00">Активирован штраф на награду с мобов!</font>
<br>Введите этот код,<br>=== <font color=LEVEL>5107</font> ===<br> для снятия штрафа: <br><edit var="pwd" width=60 length="5"><br><br>
<button value="Ok" action="bypass -h 00 $pwd" width=40 height=15 back="sek.cbui94" fore="sek.cbui92">
</center>
</body>
</html>
Использовал скрип от SARCAZM:
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(num1));
Engine.BypassToServer('00 '+IntToStr(num1), True);
count:=count+1;
print ('Капча выскакивала -->'+IntToStr(count)+'<-- раз, но мы ее обошли =)');
end;
Delay (888);
end;
end.
Но вся фишка в чем, перед запуском скрипта, как раз вылезла капча в клиенте и я запусти его, но она не исчезает, просто меняются цифры капчи на другие и все и так до бесконечности. Как мой, очень скудный разум в программировании понимает, то скрипт отправляет не тот ответ и так по кругу, подскажите пожалуйста.
<html>
<body>
<center>
<font color="FFDE00">Активирован штраф на награду с мобов!</font>
<br>Введите этот код,<br>=== <font color=LEVEL>5107</font> ===<br> для снятия штрафа: <br><edit var="pwd" width=60 length="5"><br><br>
<button value="Ok" action="bypass -h 00 $pwd" width=40 height=15 back="sek.cbui94" fore="sek.cbui92">
</center>
</body>
</html>
Использовал скрип от SARCAZM:
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(num1));
Engine.BypassToServer('00 '+IntToStr(num1), True);
count:=count+1;
print ('Капча выскакивала -->'+IntToStr(count)+'<-- раз, но мы ее обошли =)');
end;
Delay (888);
end;
end.
Но вся фишка в чем, перед запуском скрипта, как раз вылезла капча в клиенте и я запусти его, но она не исчезает, просто меняются цифры капчи на другие и все и так до бесконечности. Как мой, очень скудный разум в программировании понимает, то скрипт отправляет не тот ответ и так по кругу, подскажите пожалуйста.
