Please помагите, как программно послать сообщение на определённый

← →
snoup © (2002-05-16 20:40) [0]

Please помагите, как программно послать сообщение на определённый UIN?????

← →
Song © (2002-05-16 20:44) [1]

Брочь 3 эдита и 1 мемо и TClientSocket
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;

← →
snoup © (2002-05-16 20:54) [2]

>Song
Спасибо огромное за код но плиз скажите какой едит соотвецтвует чему???? А то я малость не понимаю!

← →
Song © (2002-05-16 21:05) [3]

Edit1 - От кого (имя)
Edit2 - От кого (мыло)
Edit3 - Кому (UIN)
Memo1 - Сообщение

← →
Fly` © (2002-05-16 21:26) [4]

Во... а еще встречный вопрос, если можна.
Можно ли СМСки посылать програмно ?

← →
Song © (2002-05-16 21:31) [5]

Нет ничего невозможного.

← →
Fly` © (2002-05-16 21:34) [6]

а как ?... какие адреса нужны и порты ?... и можно ли это бесплатно делать ?...

← →
snoup © (2002-05-16 21:58) [7]

>Song
Сорри за моё ламерство, но скажите какой ип писать у клиента!???

← →
Song © (2002-05-16 22:08) [8]

Host:="wwp.mirabilis.com";
Port:=80;

>Song
Спасибо огромное вы мне помогли!

← →
Новенький в Делфи (2002-05-16 23:01) [10]

2 Fly.. насчёт СМС, ищешь в инете сайт который этим бесплатно занимается, пишешь прогу, которая бы отправляла на этот сайт нужную инфу в нужном виде и готово:)

← →
Slym (2002-05-17 09:28) [11]

www.aist.tck.ru - пейдж гейт
На форме есть скрытое поле, идентифицирующее загруженную страничку (динамически создается), отправляешь левый form_id и он тебе фак У :(
Как с этим бороться?

Please помагите, как программно послать сообщение на определённый Найти похожие ветки