Code: Select all
program x;
var
str,uin,pass : String;
i : Byte;
begin
uin:='123';
pass:='321';
repeat
ICQConnect(uin,pass);
wait(5000);
until ICQConnected;
UOsay('ICQ+');
str:='start';
for i:=0 to 255 do
begin
ICQSendText(uin,IntToStr(i));
wait(5000);
end;
repeat
ICQDisconnect;
wait(5000);
until not ICQConnected;
UOsay('ICQ-');
end.
Один раз текст таки дошел, но был единичный случай.
И речь идет об клиенте аськи а не стелсовом журнале.
И второе - добавил
Code: Select all
ICQDisconnect;
wait(5000);
.Exception: Access violation at address 006EE8AC in module 'Stealth.exe'. Read of address 00000052
Что означает? Функция не умеет ничего возвращать если нет соединения?