Code: Select all
Program oppapa;
begin
ICQConnect('456', '123');
If Connected Then AddToSystemJournal('Коннект есть');
ICQSendText('123', 'test');
end.
где ошибка? Версия стелса последняя
Code: Select all
Program oppapa;
begin
ICQConnect('456', '123');
If Connected Then AddToSystemJournal('Коннект есть');
ICQSendText('123', 'test');
end.
кстати да, вспомнил, там не все строками указывается. Я сейчас на работе, скрипта рабочего нету, он дома лежит. Доберусь, покажу где-кто.CxC wrote:не работает скрипт вида:с wait тоже не работаетCode: Select all
Program oppapa; begin ICQConnect('456', '123'); If Connected Then AddToSystemJournal('Коннект есть'); ICQSendText('123', 'test'); end.
где ошибка? Версия стелса последняя
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;
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
Code: Select all
Program oppapa;
begin
ICQConnect('456', '123');
If Connected Then AddToSystemJournal('Коннект есть');
ICQSendText(123, 'test');
end.
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
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;
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.
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!
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!
так все, жаба цыцькы дала или будет детям счастье?Vizit0r wrote:при переезде на новую версию дельфей забыл в одном месте поменять исходник, из-за чего асевый модуль падал.