Форум: "Сети";
Текущий архив: 2002.07.29;
Скачать: [xml.tar.bz2];

Вниз

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;

---

← →
snoup   (2002-05-16 22:14) [9]

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

---

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

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

---

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

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

---

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

Форум: "Сети";
Текущий архив: 2002.07.29;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.005 c