Page 1 of 1
ICQ модуль
Posted: 22.01.2014 12:01
by CxC
не работает скрипт вида:
Code: Select all
Program oppapa;
begin
ICQConnect('456', '123');
If Connected Then AddToSystemJournal('Коннект есть');
ICQSendText('123', 'test');
end.
с wait тоже не работает
где ошибка? Версия стелса последняя
Re: ICQ модуль
Posted: 22.01.2014 12:18
by drabadan
CxC wrote:не работает скрипт вида:
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;
думаю, что тут все понятно.
Re: ICQ модуль
Posted: 22.01.2014 12:24
by CxC
судя по гайдам - номер без кавычек, но так не компилируется (
Re: ICQ модуль
Posted: 22.01.2014 12:27
by 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
Re: ICQ модуль
Posted: 22.01.2014 12:32
by drabadan
Code: Select all
Program oppapa;
begin
ICQConnect('456', '123');
If Connected Then AddToSystemJournal('Коннект есть');
ICQSendText(123, 'test');
end.
уот так уот попробуй. Должно сработать
Re: ICQ модуль
Posted: 22.01.2014 12:36
by 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
=)
Re: ICQ модуль
Posted: 22.01.2014 12:40
by 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;
вот это работает.
Re: ICQ модуль
Posted: 22.01.2014 12:47
by 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% рабочая и пароли правильные. С работы можешь потестить? может в последних версиях нахимичили чего
Re: ICQ модуль
Posted: 22.01.2014 12:54
by drabadan
у меня тоже уходит в элсэ. Почему, кто кому зачем!
Гаспадин Vizit0r рассказывай, чо каво...
Re: ICQ модуль
Posted: 22.01.2014 15:28
by Vizit0r
я что-то не понял, у вас аська мгновенно коннектится?
ждать кто будет?
Re: ICQ модуль
Posted: 22.01.2014 15:47
by drabadan
Vizit0r wrote:я что-то не понял, у вас аська мгновенно коннектится?
ждать кто будет?
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 минута...
Re: ICQ модуль
Posted: 22.01.2014 15:51
by CxC
drabadan, опередил
а вообще, зачем ждать?
if ICQConnected не работает?
Re: ICQ модуль
Posted: 22.01.2014 17:17
by Vizit0r
при переезде на новую версию дельфей забыл в одном месте поменять исходник, из-за чего асевый модуль падал.
Re: ICQ модуль
Posted: 22.01.2014 17:20
by drabadan
Vizit0r wrote:при переезде на новую версию дельфей забыл в одном месте поменять исходник, из-за чего асевый модуль падал.
так все, жаба цыцькы дала или будет детям счастье?
Re: ICQ модуль
Posted: 22.01.2014 17:29
by Vizit0r
ну, кому аська нужна прямо сейчас - стучитесь в аську, скину исправленый стелс.
Кому не срочно - ждут следующего обновления.