как отправить сообщение на icq?

Discussion in 'Песочница' started by donetsk, 31 Jul 2006.

  1. donetsk

    donetsk Elder - Старейшина

    Joined:
    30 Jan 2006
    Messages:
    158
    Likes Received:
    14
    Reputations:
    2
    можно ли как либо отрпавить сообщения на 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 \'
     
    #1 donetsk, 31 Jul 2006
    Last edited: 31 Jul 2006
  2. makarov04546

    makarov04546 New Member

    Joined:
    22 Dec 2015
    Messages:
    1
    Likes Received:
    0
    Reputations:
    0
    можно ли как либо отрпавить сообщения на icq челе мыло?можно ли как либо отрпавить сообщения на icq челе мыло?можно ли как либо отрпавить сообщения на icq челе мыло?