donetsk
31.07.2006, 11:20
можно ли как либо отрпавить сообщения на icq челе мыло?
пробовал вот так:
######@pager.icq.com
или
######@icq.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 \'
пробовал вот так:
######@pager.icq.com
или
######@icq.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 \'