ICQKID 2 -- нагло врет!
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
ICQKID 2 -- нагло врет! - 2007-05-03 22:38:36.756666
|
|
|
demb
Сообщений: 18
Оценки: 0
Присоединился: 2006-11-26 10:40:38.793333
|
Че за фигня?
http://www.xakep.ru/magazine/xs/063/108/5.asp
Тут пример icq-бота на icqkid.
-Добавил форму, поставил интервал таймера, откомпилил.
-На деле пишит что приконектилась, но врет.
-а сообщения вообще не отсылает!
Использовал библиотеки icqkid(2) как crazy так и root.
В чем может быть проблема?
ЗЫ:Фаервол ловит что вылезает в нет
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Memo1: TMemo;
Timer1: TTimer;
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
procedure icq_activate_connect(uin:string; passw:string; icqserver:string; port:integer);
stdcall; external 'icqkid.dll'
procedure icq_msg_put(duin:string; sendmsg:shortstring);
stdcall; external 'icqkid.dll'
procedure icq_msg_get(ruin, msg: PChar);
stdcall; external 'icqkid.dll'
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
icq_activate_connect('99922679', '*******', 'login.icq.com', 5190);
Memo1.Lines.Add('Connected :]');
Timer1.Enabled := True;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
icq_msg_put('644881', 'TEST!!!');
Memo1.Lines.Add('Message send');
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
ruin,msg:PChar;
begin
GetMem(ruin, 512);
GetMem(msg, 512);
try
icq_msg_get(ruin, msg);
Memo1.Lines.Add(ruin+' '+msg);
Memo1.Lines.Add('msg'+ msg);
finally
FreeMem(ruin);
FreeMem(msg);
end;
end;
end.
|
|
|
|
|
RE: ICQKID 2 -- врет! - 2007-05-03 22:42:36.963333
|
|
|
blacksun
Сообщений: 2360
Оценки: 0
Присоединился: 2006-09-27 03:05:59.350000
|
Завязывай ты юзать компоненты "для всего подряд" .. ппц, уже и асю в компонент запихали .. что дальше? пол винды компонентом идти будте?
Вот мануал по созданию аси на делфи:
ч.1: http://delphiworld.narod.ru/base/icq2000_1.html
ч.2: http://delphiworld.narod.ru/base/icq2000_2.html
ч.3: http://delphiworld.narod.ru/base/icq2000_3.html
ч.4: http://delphiworld.narod.ru/base/icq2000_4.html
ч.5: http://delphiworld.narod.ru/base/icq2000_5.html
ч.6: http://delphiworld.narod.ru/base/icq2000_6.html
ч.7: http://delphiworld.narod.ru/base/icq2000_7.html
ч.8: http://delphiworld.narod.ru/base/icq2000_8.html
ч.9: http://delphiworld.narod.ru/base/icq2000_9.html
ч.10: http://delphiworld.narod.ru/base/icq2000_10.html
А кто сказал что все будет так просто?
|
|
|
|
|
RE: ICQKID 2 -- врет! - 2007-05-03 22:46:21.043333
|
|
|
demb
Сообщений: 18
Оценки: 0
Присоединился: 2006-11-26 10:40:38.793333
|
Да такая у мя уже написана, надо именно на длл-ке, чтоб сама смогла скачаться в случае
повторной "модификации" протокола.
Делаю сеть свою, что из инста можно было лазить по компам.
|
|
|
|
|
RE: ICQKID 2 -- нагло врет! - 2007-05-03 23:19:29.320000
|
|
|
rgo
Сообщений: 7170
Оценки: 281
Присоединился: 2004-09-25 05:14:25
|
quote:
ORIGINAL: demb
ЗЫ:Фаервол ловит что вылезает в нет
а ты хочешь чтобы не ловил? или чего?
|
|
|
|
|
RE: ICQKID 2 -- нагло врет! - 2007-05-03 23:21:48.120000
|
|
|
demb
Сообщений: 18
Оценки: 0
Присоединился: 2006-11-26 10:40:38.793333
|
quote:
ORIGINAL: rgo
quote:
ORIGINAL: demb
ЗЫ:Фаервол ловит что вылезает в нет
а ты хочешь чтобы не ловил? или чего?
хочу чтоб ее не только фаервол видел, но и я:
читай-она сообщения не шлет
|
|
|
|
|
RE: ICQKID 2 -- нагло врет! - 2007-05-04 00:01:45.806666
|
|
|
alexbozhko
Сообщений: 1024
Оценки: 0
Присоединился: 2005-11-24 13:35:34
|
А фаервол мессаги не давит?
Да и вообще, не фаервалл нужно использовать в качестве проверки того, идет-ли она в сеть.
для этого сниффера есть.
|
|
|
|
|
|
