Скачать: CL | DM;

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)

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.04 c