ICQ модуль

[CxC]

не работает скрипт вида:

Code: Select all

Program oppapa;

begin
        ICQConnect('456', '123');
        If Connected  Then  AddToSystemJournal('Коннект есть');      
        ICQSendText('123', 'test');
end.

с wait тоже не работает

где ошибка? Версия стелса последняя

[drabadan]

не работает скрипт вида:

Code: Select all

Program oppapa;

begin
        ICQConnect('456', '123');
        If Connected  Then  AddToSystemJournal('Коннект есть');      
        ICQSendText('123', 'test');
end.

с wait тоже не работает

где ошибка? Версия стелса последняя

кстати да, вспомнил, там не все строками указывается. Я сейчас на работе, скрипта рабочего нету, он дома лежит. Доберусь, покажу где-кто.
А хотя, сейчас, можно глянуть в файле для делфей...

вотъ

Code: Select all

procedure TICQ.Connect(UIN : Cardinal; Password : String); 
begin
  Script_ICQ_Connect(UIN, PChar(Password));
end;

procedure TICQ.SendText(DestinationUIN : Cardinal; Text : String);
begin
  Script_ICQ_SendText(DestinationUIN,PChar(Text));
end;

думаю, что тут все понятно.

[CxC]

судя по гайдам - номер без кавычек, но так не компилируется (

[CxC]

Code: Select all

Program oppapa;

begin
        ICQConnect(456, '123');
        If Connected  Then  AddToSystemJournal('Коннект есть');      
        ICQSendText(123, 'test');
end.

12:54:28:290 [...]: Compiling
12:54:28:305 [...]: Compiler: [Error] (C:\Program Files\Windows Defender\ru-RU\UO\Stealth\icq тест.sc at 4:31): Type mismatch
12:54:28:308 [...]: Compiling failed
12:54:28:311 [...]: Script icq тест.sc stopped successfuly

[drabadan]

Code: Select all

Program oppapa;

begin
        ICQConnect('456', '123');
        If Connected  Then  AddToSystemJournal('Коннект есть');      
        ICQSendText(123, 'test');
end.

уот так уот попробуй. Должно сработать

[CxC]

Code: Select all

Program oppapa;

begin
        ICQConnect('456', '123');
        If Connected  Then  AddToSystemJournal('Коннект есть');      
        ICQSendText(123, 'test');
end.

13:03:55:258 [...]: Compiling
13:03:55:273 [...]: Compiler: [Error] (C:\Program Files\Windows Defender\ru-RU\UO\Stealth\icq тест.sc at 6:33): Type mismatch
13:03:55:276 [...]: Compiling failed
13:03:55:278 [...]: Script icq тест.sc stopped successfuly

=)

[drabadan]

открыл дропбокс!

Code: Select all

procedure SendMsg_ICQ(str : String);
begin
    if not ICQConnected then
        ICQConnect('11111111', 'тряляляляляляляля');
    if ICQConnected then
        ICQSendText('1111111', str)
    else
        AddToSystemJournal('No icq connection, failed to send message!');   
end;

вот это работает.

[CxC]

Code: Select all

Program SendMsg_ICQ;
begin
    if not ICQConnected then
        ICQConnect('123', 'ggggg');
    if ICQConnected then
        ICQSendText('759', 'fffffffff')
    else
        AddToSystemJournal('No icq connection, failed to send message!');   
end.

выходит на else. Ася 100% рабочая и пароли правильные. С работы можешь потестить? может в последних версиях нахимичили чего

[drabadan]

у меня тоже уходит в элсэ. Почему, кто кому зачем!
Гаспадин Vizit0r рассказывай, чо каво...

[Vizit0r]

я что-то не понял, у вас аська мгновенно коннектится?
ждать кто будет?

[drabadan]

я что-то не понял, у вас аська мгновенно коннектится?
ждать кто будет?

Code: Select all

14:15:24:531 []: Compiling
14:15:24:578 []: Compiled succesfully
14:15:24:578 []: No icq connection, failed to send message!
14:15:49:593 []: No icq connection, failed to send message!

25 секунд...

Code: Select all

14:17:02:500 []: Compiling
14:17:02:515 []: Compiled succesfully
14:17:02:531 []: No icq connection, failed to send message!
14:18:02:531 []: No icq connection, failed to send message!

1 минута...

[CxC]

drabadan, опередил

а вообще, зачем ждать?
if ICQConnected не работает?

[Vizit0r]

при переезде на новую версию дельфей забыл в одном месте поменять исходник, из-за чего асевый модуль падал.

[drabadan]

при переезде на новую версию дельфей забыл в одном месте поменять исходник, из-за чего асевый модуль падал.

так все, жаба цыцькы дала или будет детям счастье?

[Vizit0r]

ну, кому аська нужна прямо сейчас - стучитесь в аську, скину исправленый стелс.
Кому не срочно - ждут следующего обновления.