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

← →
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]

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

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