Подскажите с реализацией отстука в icq

[tizzy]

Всем доброго времени суток . Делаю скрипт на палировщика, не могу реализовать функцию отстука в icq.

Code: Select all

ICQConnect(123456789,55555555 : String)

- это как я понял отвечает за непосредственный коннект к icq

Code: Select all

procedure ICQSendText(тут уин куда стучать, Text : String)

- вот это непосредственно функция отстука

Code: Select all

begin
while not dead do
begin
FindType(Man, Ground);
if FindCount > 0 then
begin 
AddToSystemJournal('нашли_мужика');
ICQConnect(123456789,55555555 : String)
ICQSendText(тут уин куда стучать, Text : String)
PlayWav('D:\stealth\morse.wav');
end 
else 
FindType(Woman, Ground);
if FindCount > 0 then
begin
AddToSystemJournal('нашли_бабу');
ICQConnect(123456789,55555555 : String)
ICQSendText(тут уин куда стучать, Text : String)
PlayWav('D:\stealth\morse.wav');
end;
end;
end.

вот так нет отстука, помогите

[chernysh]

Code: Select all

ICQConnect(123456789,55555555 : String)
ICQSendText(тут уин куда стучать, Text : String)

А что это за формат?

Надо так:

Code: Select all

ICQConnect('123456789','55555555')
ICQSendText('здесь уин', 'текст для отправки')

[tizzy]

Все заработало

[chernysh]

НУ конечно заработает.

На будущее, если в документации написано, чтото типа connect(a, b: String) или some_function(b: Word) - это значит, что функция принимает параметры таких типов.
String - это текстовая строка, и т.п

[Vizit0r]

вообще-то ася коннектится НЕ моментально. и слать текст сразу после коннекта без задержки - значит почти наверняка слать его в никуда.

[shinma]

)) надо новую функцию IcqWaitOnline(integer:ms):bool;

[Vizit0r]

достаточно ивент icqconnect (или как там его) отслеживать.