Уведомление при появлении капчи

[wilmor]

Что-то не получается, ввел скрипт, Каптча ввиде цифры на екране, и надо ввести верную.

 

[wilmor]

А можна сделать скрипт, который при вылете каптчи релогает окно?Каптча появилась он релогнул, зашел без каптчи бот дальше фармит.

 

[Plgv]

У меня постоянно этот звук брынчит и все, когда есть капча, когда ее нет, с интервалом в секунду, в чем проблема может быть?

 

[Paseles]

hi peoples maybe can help for this captcha
Посмотреть вложение 99f0c6925a3678f612afd0857d8e4bf9470 (2).bmp

 

[Ivanius]

@Paseles, Exilium captcha - skype me to buy.

 

[Donny]

У меня постоянно этот звук брынчит и все, когда есть капча, когда ее нет, с интервалом в секунду, в чем проблема может быть?

Тоже с этим столкнулся. Два действия в одной процедуре вместе работать не хотят - одно почему-то юзается по кд.
Делал себе звуковое уведомление + мерцание окна, т.к. играю в несколько окон.

procedure CAPTCHAKEK;
var Captcha:string;
function SetForegroundWindow(hwnd: integer) : Boolean; stdcall;
external 'user32.dll';

begin
while (true) do
begin
Captcha := Engine.DlgText;
if (Pos('ОТКЛЮЧЕНЫ', Captcha) <> 0) then
engine.blinkwindow(true);
// SetForegroundWindow(Engine.GameWindow);
Delay(3000);
end;
end;

procedure CAPTCHASOUND;
var Captcha:string;

begin
while (true) do
begin
Captcha := Engine.DlgText;
if (Pos('ОТКЛЮЧЕНЫ', Captcha) <> 0) then
playsound('Sounds/chicken.wav');
Delay(3000);
end;
end;

begin
script.newthread(@CAPTCHAKEK);
script.newthread(@CAPTCHASOUND);
end.

Также можно сделать разворачивание окна вместо мерцания.

 

[AvA]

@Donny, как не странно,но на некоторых проектах звук пропадает,а на других пиликает

 

[Donny]

Прошу прощения, очень затупил. Школьный паскаль забывается.
Совсем вылетело из головы, что после then можно поставить begin.
Поэтому и работала только одна строка после условия.
Фикс:

procedure captchaalarm;
 var Captcha:string;

 function SetForegroundWindow(hwnd: integer) : Boolean; stdcall;
 external 'user32.dll';

 begin
 while (true) do
 begin
    Captcha := Engine.DlgText;
    if (Pos('ОТКЛЮЧЕНЫ', Captcha) <> 0) then
    begin
    engine.blinkwindow(true);
      playsound('Sounds/chicken.wav');
//  	SetForegroundWindow(Engine.GameWindow);
      end;
    Delay(3000);
    end;
 end;

begin
script.newthread(@captchaalarm);
end.

 

[оrxidey]

Как и было сказано, ввела скрипт:
var Captcha:string;
begin
while (true) do
begin
Captcha := Engine.DlgText;
if (Pos('ОТКЛЮЧЕНЫ', Captcha) <> 0) then
PlaySound('Sounds/hp.wav',false);
Delay(1800);
end;
end.

Звуковой файл проигрывается постоянно при пуске скрипта. Даже когда капчи нет.

 

[оrxidey]

У Донни та же проблема. Скрипт также орет даже без капчи.

 

[112]

а если приходит в френд чат текст с вопросом если в течении 5 мин не отвечаеш тюрьма 500мин
?

 

[djwar]

Lvl 26 Пользователь а если приходит в френд чат текст с вопросом если в течении 5 мин не отвечаеш тюрьма 500мин ?

Уважаемый речь как понимаю о Lineage-game? Есть продвижение в решении этого вопроса? Я пробовал колдовать с скриптом на оповещение через TMessageType = mtFriend, но как я понимаю mtFriend это чат через MSN сообщение, а на этом сервере это реализовано по другому(. Есть идеи други?

 

[xbn3141]

адреналин на скрипт не ругается но звук играет всегда

 

[Gidropon]

После того как скрипт обнаружил капчу включается звук и его уже не отключить.

 

[djwar]

Разобрался с примером который приходит в френд. месс.. У кого так на сервере, делаем скрипт через TMessageType = mtFriend. Только я настроил, как поставили смартгвард и убрали эту проверку ))

 

[BreadfanLock]

function SetForegroundWindow(hWnd : cardinal): boolean; stdcall; external 'user32.dll';

var
hWnd:cardinal;

//BringWindowToTop

begin
while true do begin
delay(2000);
hWnd:=Engine.BotWindow;//Engine.GameWindow;
print('switch to botwindow '+User.Name+' : '+hWnd.toString+'');
SetForegroundWindow(hWnd);
delay(2000);
hWnd:=Engine.GameWindow;
print('switch to clientwindow '+User.Name+' : '+hWnd.toString+'');
SetForegroundWindow(hWnd);
end;
end.


код работает, переключаясь между окном клиента и адреналином. НО - лишь до момента, пока фокус не будет переключен на какое-либо постороннее окно (браузер\плеер и т.п.). После этого лишь мигают кнопки на панели задач. В видимом куске окна адреналина - видно что продолжается вывод hWnd окон.
Иными словами - как решить задачу "...An application cannot force a window to the foreground while the user is working with another window. Instead, Windows flashes the taskbar button of the window to notify the user..."

Выполнил пока через "свернуть-развернуть", но как-то это вроде неправильно...

function ShowWindow(hWnd:cardinal;nCmdShow:integer): boolean; stdcall; external 'user32.dll';

const
  SW_RESTORE = 9;
  SW_FORCEMINIMIZE = 11;

var
  hWnd:cardinal;
  
begin
 while true do begin
  delay(2000);
  hWnd:=Engine.GameWindow;
  print('switch to botwindow '+User.Name+' : '+hWnd.toString+'');
  ShowWindow(hWnd,SW_FORCEMINIMIZE);
  delay(500);
  ShowWindow(hWnd,SW_RESTORE);
 end;
end.

 

[Lexan322]

@igor2086,
есть скрипт на обход капчи ?