Forum in READ ONLY mode! All questions and discussions on Discord official server, invite link: https://discord.gg/VxsGzJ7

Помощь с аськой

тут можно задать вопрос по скриптингу
Post Reply
Az_Rieil
Neophyte
Neophyte
Posts: 34
Joined: 21.05.2014 17:18

Помощь с аськой

Post by Az_Rieil »

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
.
Что означает? Функция не умеет ничего возвращать если нет соединения?
Post Reply