Сообщения на аску

← →
LOX © (2003-09-05 21:28) [0]

А как написать прогу которая отправляет сообщения на аску.

← →
Rouse_ © (2003-09-06 08:38) [1]

Вот так можно послать сообщение:

{ 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;

Желаю успехов

← →
ruslan_as © (2003-09-06 09:46) [2]

Простите за невежество, но что писать в Edit1 - 3?

← →
ruslan_as © (2003-09-06 10:02) [3]

Пишу так
Edit1 - Имя
Edit2 - свою почту
Edit3 - номер Аськи

В ответ Asynchronus socket error 10060

← →
SkyN © (2003-09-06 11:25) [4]

есть компонента TIcqClient смотреть на http://www.cobans.net
или разбираться с протоколом

← →
SkyN © (2003-09-06 11:27) [5]

и ещё компаненты
http://www.delphimaster.ru/cgi-bin/faq.pl?ook=1&id=988618936&n=20

← →
LOX © (2003-09-06 17:52) [6]

Плиз, приведите работающий пример, мне это ОЧЕНЬ нужно.

В первом свой ник
Во втором мыло
> " &fromicq:110206786" - это меняем на свой UIN
В третьем UIN реципиента

Желаю успехов

Это я понял. но у меня это непашет

← →
AndreyAs (2003-09-08 10:29) [9]

Сообщение из рссылки этого сайта:

ICQ2000 Сделай Сам :)
( http://www.delphimaster.ru/cgi-bin/links.pl?get=1022300644)
Сайт для тех, кто интересуется протоколами ICQ.
Описана работа протокола ICQ2000a (ICQv7),
Подробно-комментированные исходные коды для Delphi-5 прилагаются.

Сообщения на аску Найти похожие ветки