{codecitation class="brush: pascal; gutter: false;" width="600px"}

Обменяю 7-значный UIN ICQ на два 6-значных.

{

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 '