Stealth Client Forum

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);