Page 1 of 1
Подскажите с реализацией отстука в icq
Posted: 18.02.2013 13:32
by 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.
вот так нет отстука, помогите
Re: Подскажите с реализацией отстука в icq
Posted: 18.02.2013 13:45
by chernysh
Code: Select all
ICQConnect(123456789,55555555 : String)
ICQSendText(тут уин куда стучать, Text : String)
А что это за формат?
Надо так:
Code: Select all
ICQConnect('123456789','55555555')
ICQSendText('здесь уин', 'текст для отправки')
Re: Подскажите с реализацией отстука в icq
Posted: 18.02.2013 14:03
by tizzy
Все заработало
Re: Подскажите с реализацией отстука в icq
Posted: 18.02.2013 14:13
by chernysh
НУ конечно заработает.
На будущее, если в документации написано, чтото типа connect(a, b: String) или some_function(b: Word) - это значит, что функция принимает параметры таких типов.
String - это текстовая строка, и т.п
Re: Подскажите с реализацией отстука в icq
Posted: 18.02.2013 23:39
by Vizit0r
вообще-то ася коннектится НЕ моментально. и слать текст сразу после коннекта без задержки - значит почти наверняка слать его в никуда.
Re: Подскажите с реализацией отстука в icq
Posted: 19.02.2013 6:31
by shinma
)) надо новую функцию IcqWaitOnline(integer:ms):bool;
Re: Подскажите с реализацией отстука в icq
Posted: 19.02.2013 10:45
by Vizit0r
достаточно ивент icqconnect (или как там его) отслеживать.