X
تبلیغات
رایتل

دلفی : ارسال پیام در ICQ

1386/06/23 ساعت 11:13

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 (Win98; 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;

نظرات (1)
1386/07/11 ساعت 21:56
خیلی مفیده لطفا ادامه بدید
امتیاز: 0 0
برای نمایش آواتار خود در این وبلاگ در سایت Gravatar.com ثبت نام کنید. (راهنما)

نام :
ایمیل :
وب/وبلاگ :
ایمیل شما بعد از ثبت نمایش داده نخواهد شد