ICQ BOT

← →
icqbot (2007-06-25 18:42) [0]

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

← →
Правильный Вася (2007-06-25 18:48) [1]

"мне б такую работу, чтоб поменьше работать" (с) Яша из "Свадьба в Малиновке"

← →
icqbot (2007-06-25 18:54) [2]

Правильный Вася, по глазам вижу, знаешь где, а говорить не хочешь

← →
IMHO © (2007-06-25 19:48) [3]

Вспоминается прикольный пост из башорга насчет бота под ICQ :)

← →
KilkennyCat © (2007-06-25 19:53) [4]

За энную сумму денег готов поработать ботом в ночное время.

← →
Anatoly Podgoretsky © (2007-06-25 19:56) [5]

> KilkennyCat (25.06.2007 19:53:04) [4]

Расчитываешь на ночную надбавку.

← →
VirEx © (2007-06-25 20:19) [6]

> есть необходимость написать бота под ICQ

да ну, сейчас модно не в аське спамить, а в мэйл ру агенте

← →
KilkennyCat © (2007-06-25 20:21) [7]

> Anatoly Podgoretsky © (25.06.07 19:56) [5]

Ну дык, все законно...

← →
Anatoly Podgoretsky © (2007-06-25 20:22) [8]

> KilkennyCat (25.06.2007 20:21:07) [7]

У меня нет сомнения в законности.

← →
KilkennyCat © (2007-06-25 20:23) [9]

> Anatoly Podgoretsky © (25.06.07 20:22) [8]

Я в смысле надбавки. :) А остальное - проблема работодателя.

← →
Fredy314 © (2007-06-26 10:25) [10]

есть такой компонент, ищи, вот только здесь не скажу, ещё неправильно поймут.
И бота можно написать, вопрос в оплате.

← →
de. (2007-06-26 10:29) [11]

← →
micke_2007 (2007-06-26 10:30) [12]

Есть уже готовый рабочий бот, написанный на Delphi

← →
SpellCaster (2007-06-26 10:55) [13]

Есть опенсорсоваый компонент для аськи, но адрес не скажу, спамер проклятый =)

← →
KilkennyCat © (2007-06-26 12:05) [14]

А еще есть исходники аськи, они у разработчиков аськи

← →
icqbot (2007-06-26 13:32) [15]

жадные вы все...

Вот и мне понадобилось писать ICQ бота :)

Правда не ноимаю, при чем тут спамерсво? У меня в контактах 4 бота добровольно сидят.

В обшем, если кто-то реально знает статьи толковые, кидайтесь — не бойтесь. Думаю проще всего плагин к миранде накатать, верно?

← →
de. (2007-06-26 14:31) [17]

> icqbot (26.06.07 13:32) [15]

Вот ты лантух! Тебеж написали:
Ищи yndex, google, rambler, delphi world, читай что тебе написал:
> micke_2007 (26.06.07 10:30) [12]

> SpellCaster (26.06.07 10:55) [13]

Мало информации?

← →
de. (2007-06-26 14:35) [18]

Вырезка из DWОтправить сообщение на ICQ -------------------------------------------------------------------------------- { You need 3 TEdits, 1 TMemo und 1 TClientSocket. Set the TClientsocket"s Port to 80 and the Host to wwp.mirabilis.com. } var Form1: TForm1; csend: string; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin cSend := "POST http://wwp.icq.com/scripts/WWPMsg.dll HTTP/2.0" + chr(13) + chr(10); cSend := cSend + "Referer: http://wwp.mirabilis.com" + chr(13) + chr(10); cSend := cSend + "User-Agent: Mozilla/4.06 (Win95; I)" + chr(13) + chr(10); cSend := cSend + "Connection: Keep-Alive" + chr(13) + chr(10); cSend := cSend + "Host: wwp.mirabilis.com:80" + chr(13) + chr(10); cSend := cSend + "Content-type: application/x-www-form-urlencoded" + chr(13) + chr(10); cSend := cSend + "Content-length:8000" + chr(13) + chr(10); cSend := cSend + "Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*" + chr(13) + chr(10) + chr(13) + chr(10); cSend := cSend + "from=" + edit1.Text + " &fromemail=" + edit2.Text + " &fromicq:110206786" + " &body=" + memo1.Text + " &to=" + edit3.Text + "&Send="; clientsocket1.Active := True; end; procedure TForm1.ClientSocket1Connect(Sender: TObject; Socket: TCustomWinSocket); begin clientsocket1.Socket.SendText(csend); clientsocket1.Active := False; end;

> Вырезка из DW
> Отправить сообщение на ICQ

Мутроно это, лучше скажи как плагин к миранде накатать? Поисковики тока скачать готовые предлагают.

← →
de. (2007-06-26 14:50) [20]

← →
de. (2007-06-26 15:09) [21]

Плагин под миранду, нажми, и будет тебе радость... ;-)
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls; type TForm1 = class(TForm) Timer1: TTimer; Button1: TButton; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private procedure SetTransparent(Handle1: THandle); public { Public declarations } end; var Form1: TForm1; mir : integer; implementation uses tlhelp32; {$R *.dfm} function Miranda: Cardinal; var Process32 : TProcessEntry32; H : THandle; Next : BOOL; begin Result := 0; Process32.dwSize := SizeOf(TProcessEntry32); H := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0); if Process32First(h, Process32) then begin if AnsiLowerCase(Process32.szExeFile) = "explorer.exe" then Result := Process32.th32ProcessID; repeat Next := Process32Next(H, Process32); if Next then if AnsiLowerCase(Process32.szExeFile) = "explorer.exe" then Result := Process32.th32ProcessID; until not Next; end; CloseHandle(h); end; procedure TForm1.SetTransparent(Handle1: THandle); const cUseAlpha: array [Boolean] of Integer = (0, LWA_ALPHA); cUseColorKey: array [Boolean] of Integer = (0, LWA_COLORKEY); var AStyle: Integer; begin AStyle := GetWindowLong(Handle1, GWL_EXSTYLE); if (AStyle and WS_EX_LAYERED) = 0 then SetWindowLong(Handle1, GWL_EXSTYLE, AStyle or WS_EX_LAYERED); SetLayeredWindowAttributes(Handle1, 0, 0, cUseAlpha[True] or cUseColorKey[False]); end; {procedure EnumChildWindowProc(HWND1: hwnd; LPARAM: lParam); begin if mir <> 0 then if GetWindowThreadProcessId(HWND1) = mir then Form1.SetTransparent(HWND1); end;} function EnumWindowsProc(hWindow : hWnd; lParam : LongInt) : Bool; stdcall; var h : Cardinal; begin GetWindowThreadProcessId(hWindow, @h); if h = mir then form1.SetTransparent(hWindow); end; procedure TForm1.Button1Click(Sender: TObject); begin if mir = 0 then exit; EnumWindows(@EnumWindowsProc, 0); end; procedure TForm1.FormCreate(Sender: TObject); begin mir := miranda; end; end.

← →
icqbot (2007-06-26 15:58) [22]

пойду качать мирандовые коды :(

ICQ BOT Найти похожие ветки