unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ScktComp;
type
TForm1 =
class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Memo1: TMemo;
clientsocket1: Tclientsocket;
procedure ClientSocket1Connect(Sender: TObject; Socket: TCustomWinSocket);
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
csend:
string;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
cSend := '
POST [url]http://wwp.icq.com/scripts/WWPMsg.dll[/url] 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;
end.