Форум: "Сети";
Текущий архив: 2003.11.03;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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]

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

---

← →
Rouse_   (2003-09-07 10:59) [7]

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

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

---

← →
LOX   (2003-09-07 14:57) [8]

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

---

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

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

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

---

Страницы: 1 вся ветка

Форум: "Сети";
Текущий архив: 2003.11.03;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.011 c