ICQ

← →
NLO © (2004-05-14 08:17) [0]

Всем здарово.
Вот говарят что можно отаслать ICQ соабщение вот так

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;

Извените меня за такой глупый вопрос
но что
надо писать
в
Edit1,Edit2,Edit3.

Зарание спасибо.

← →
-=IVA=- (2004-06-02 11:10) [1]

На сколько я понял
Edit1 = Твой ник (имя)
Edit2 = Твой Email
Edit3 = На какой номер отсылать

ЗЫ: Я могу и ошибиться.
В любом случае - эксперементируй, в коде более менее все ясно.

← →
Algol (2004-06-02 11:30) [2]

Тело запроса не мешало бы закодировать (HTTPEncode)

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