| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

snoup ©   (2002-05-16 20:40:00) 

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

---

Slym   (2002-05-17 09:28:00) [1]

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

---

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

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

---

snoup   (2002-05-16 22:14:00) [3]

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

---

Song   (2002-05-16 22:08:00) [4]

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

---

snoup   (2002-05-16 21:58:00) [5]

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

---

Fly`   (2002-05-16 21:34:00) [6]

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

---

Song   (2002-05-16 21:31:00) [7]

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

---

Fly`   (2002-05-16 21:26:00) [8]

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

---

Song   (2002-05-16 21:05:00) [9]

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

---

snoup   (2002-05-16 20:54:00) [10]

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

---

Song   (2002-05-16 20:44:00) [11]

Брочь 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.dllHTTP/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;


---

Наверх