Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.07.29;
Скачать: CL | DM;

Вниз

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;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.01 c
1-95382
Fissher
2002-07-15 20:09
2002.07.29
Снова я со своим ComboBox-ом !!!


3-95191
Pro
2002-07-05 13:28
2002.07.29
помогите несложный запрос составить


14-95534
Fredericco
2002-07-02 11:21
2002.07.29
У меня созрел вопрос про Сокеты.


14-95522
Anatoly Shkodin
2002-07-02 20:42
2002.07.29
О VisiBroker


14-95555
Serg_2002
2002-07-03 10:00
2002.07.29
Мастера, мне не до смеха!!! Вопрос по ИнтернетЕксплореру