Скачать: CL | DM;

Вопрос об отправке сообщений по сети   Найти похожие ветки 

← →
Bellf ©   (2004-08-12 11:02) [0]

Хочу написать программу которая отправляла бы сообщения в сети на известный адрес в Аське
Подскажите примерно как можно из программы отослать сообщение на Аську

или дайте ссылку где это описано

---

← →
Colonel   (2004-10-10 15:56) [1]

Попробуй вот это.
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 + " &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;

---

← →
bboy   (2004-10-20 23:53) [2]

А другого способа отправки мессаги на аську нету ?!?!?!
чёт твой вообщем работать не хочет...

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.023 c