Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];

Вниз

Помогите отправить SMS с помощь программы   Найти похожие ветки 

 
Александр   (2004-01-31 16:39) [0]

Помогите отправить SMS с помощь программы. Я пытаюсь, но не получается что-то?????
nmhttp1.HeaderInfo.Referer:="www.beeonline.ru";
nmHTTP1.Get("http://www.beeonline.ru/sms/sent.html?Posted=1&To=+79059134911&Msg=СООБЩЕНИЕ&count=9&SMSHour=1&SMSMinute=16 &SMSDay=12&SMSMonth=11&SMSYear=2003");


 
Александр   (2004-01-31 16:39) [0]

Помогите отправить SMS с помощь программы. Я пытаюсь, но не получается что-то?????
nmhttp1.HeaderInfo.Referer:="www.beeonline.ru";
nmHTTP1.Get("http://www.beeonline.ru/sms/sent.html?Posted=1&To=+79059134911&Msg=СООБЩЕНИЕ&count=9&SMSHour=1&SMSMinute=16 &SMSDay=12&SMSMonth=11&SMSYear=2003");


 
Дима   (2004-02-01 11:00) [1]

Неправельный запрос

Надо мутить чтото вроде этого :

POST /portal/comm/send_sms/simple_send_sms.sms HTTP/1.1
Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*
Accept-Language: ru
Content-Type: application/x-www-form-urlencoded
User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; Билл ГЕЙц - ЛОХ; MyIE2)
Host: 127.0.0.1
Content-Length: 177
Connection: Keep-Alive
Cache-Control: no-cache

deferto=&adv_year=&send=send&confirm_key=D1qFhsBdtZ&confirm_code=7284&destination_number_from=ordinary&network_code=6&ph one=5811808&message=body&mlength=152&phone_answer_number=


 
Дима   (2004-02-01 11:00) [1]

Неправельный запрос

Надо мутить чтото вроде этого :

POST /portal/comm/send_sms/simple_send_sms.sms HTTP/1.1
Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*
Accept-Language: ru
Content-Type: application/x-www-form-urlencoded
User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; Билл ГЕЙц - ЛОХ; MyIE2)
Host: 127.0.0.1
Content-Length: 177
Connection: Keep-Alive
Cache-Control: no-cache

deferto=&adv_year=&send=send&confirm_key=D1qFhsBdtZ&confirm_code=7284&destination_number_from=ordinary&network_code=6&ph one=5811808&message=body&mlength=152&phone_answer_number=


 
Александр   (2004-02-01 13:01) [2]

Диман! Всё это конечно прикольно, но хотелось бы понять, как конкретно пользоваться всем этим. Я бы был !очень! признателен тебе, если бы ты это привёл к более конкретному виду, чтобы можно было этим использовать! Т.е. как отправить конкретное сообщение на конкретный номер. Спасибо заранее!!!!!!!


 
Александр   (2004-02-01 13:01) [2]

Диман! Всё это конечно прикольно, но хотелось бы понять, как конкретно пользоваться всем этим. Я бы был !очень! признателен тебе, если бы ты это привёл к более конкретному виду, чтобы можно было этим использовать! Т.е. как отправить конкретное сообщение на конкретный номер. Спасибо заранее!!!!!!!


 
WM.DIGGER ©   (2004-02-02 08:12) [3]

Александр, Дима имел ввиду сокетное соединение и отправка приведённого им запроса ...
Берёшь компонент ClientSocket (далее CL) и пишешь ...

CL.host := "www.beeonline.ru";
CL.port := 80;
CL.Active := true; // установили соединение с сервером

// отправка
for i := 0 to количество строк do
begin
 S := " здесь по очереди строки, которые указал Дима " + #13 + #10;
 Cl.Socket.SendText(S);
end;

! После строки Cache-Control: no-cache идёт отправка строки s := "." + #13 + #10; В строке Content-Length: указывается размер данных (длинна самой длинно нижней строки с запросом) ...

Ну,а в конец CL.Active := false; :))))


 
WM.DIGGER ©   (2004-02-02 08:12) [3]

Александр, Дима имел ввиду сокетное соединение и отправка приведённого им запроса ...
Берёшь компонент ClientSocket (далее CL) и пишешь ...

CL.host := "www.beeonline.ru";
CL.port := 80;
CL.Active := true; // установили соединение с сервером

// отправка
for i := 0 to количество строк do
begin
 S := " здесь по очереди строки, которые указал Дима " + #13 + #10;
 Cl.Socket.SendText(S);
end;

! После строки Cache-Control: no-cache идёт отправка строки s := "." + #13 + #10; В строке Content-Length: указывается размер данных (длинна самой длинно нижней строки с запросом) ...

Ну,а в конец CL.Active := false; :))))


 
SMILik ©   (2004-02-02 12:16) [4]

Думается мне, что simple_send_sms.sms содержит какую-то заморочку с картинками :) такую защиту от спама... отсюда вопрос - а не надо ли случайно ловить то, что от нас хочет услышать сервер ???


 
SMILik ©   (2004-02-02 12:16) [4]

Думается мне, что simple_send_sms.sms содержит какую-то заморочку с картинками :) такую защиту от спама... отсюда вопрос - а не надо ли случайно ловить то, что от нас хочет услышать сервер ???


 
Wm.DIGGER ©   (2004-02-03 08:17) [5]

to SMILik Так точно! Я уже проверил!
to Александр Не получится через них отправить у них "картинка" висит! Поэтому и не отправляется !


 
Wm.DIGGER ©   (2004-02-03 08:17) [5]

to SMILik Так точно! Я уже проверил!
to Александр Не получится через них отправить у них "картинка" висит! Поэтому и не отправляется !


 
Александр   (2004-02-03 10:00) [6]

Вы уж простите меня за мои глупые вопросы, но я чёто не совсем всё понял. Ну вот я написал:
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
s:string;
begin
ClientSocket1.host := "www.beeonline.ru";
ClientSocket1.port := 80;
ClientSocket1.Active := true; // óñòàíîâèëè ñîåäèíåíèå ñ ñåðâåðîì

// îòïðàâêà
for i := 0 to 1 do
begin
S := "POST /portal/comm/send_sms/simple_send_sms.sms HTTP/1.1
Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*
Accept-Language: ru
Content-Type: application/x-www-form-urlencoded
User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; Áèëë ÃÅÉö - ËÎÕ; MyIE2)
Host: 127.0.0.1
Content-Length: 177
Connection: Keep-Alive
Cache-Control: no-cache" + #13 + #10"

deferto=&adv_year=&send=send&confirm_key=D1qFhsBdtZ&confirm_code=7284&destination_number_from=ordinary&network_code=6&ph  one=5811808&message=body&mlength=152&phone_answer_number=
";

ClientSocket1.Socket.SendText(S);
ClientSocket1.Active := false;

end;

end;

Но чёто я непонимаю: 1. Какого типа должна быть S?
2. В данном примере Димы "Билл ГЕЙц - ЛОХ" - это я так потял сама SMS
3. Номер телефона я так понял надо вводить в самом конце после строчки deferto=&adv_year=&send=send&confirm_key=D1qFhsBdtZ&confirm_code=7284&destination_number_from=ordinary&network_code=6&ph  one=5811808&message=body&mlength=152&phone_answer_number= № телефона ?????? или нет?????
4. Несовсем понял выражение: "длинна самой длинно нижней строки с запросом"??? -это в смысле ДЛИННА СООБШЕНИЯ, т.е. количество символов сообщения или нет???????
5 И ещё посмотри пожалуйста помоему я тут всякой фигни на делал. Напешите если не трудно как должно быть???? Ещё раз спосибо за ваш отзыв!!!!!!!!!!!!!!!!!!!!!!!!!!!


 
Александр   (2004-02-03 10:00) [6]

Вы уж простите меня за мои глупые вопросы, но я чёто не совсем всё понял. Ну вот я написал:
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
s:string;
begin
ClientSocket1.host := "www.beeonline.ru";
ClientSocket1.port := 80;
ClientSocket1.Active := true; // óñòàíîâèëè ñîåäèíåíèå ñ ñåðâåðîì

// îòïðàâêà
for i := 0 to 1 do
begin
S := "POST /portal/comm/send_sms/simple_send_sms.sms HTTP/1.1
Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*
Accept-Language: ru
Content-Type: application/x-www-form-urlencoded
User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; Áèëë ÃÅÉö - ËÎÕ; MyIE2)
Host: 127.0.0.1
Content-Length: 177
Connection: Keep-Alive
Cache-Control: no-cache" + #13 + #10"

deferto=&adv_year=&send=send&confirm_key=D1qFhsBdtZ&confirm_code=7284&destination_number_from=ordinary&network_code=6&ph  one=5811808&message=body&mlength=152&phone_answer_number=
";

ClientSocket1.Socket.SendText(S);
ClientSocket1.Active := false;

end;

end;

Но чёто я непонимаю: 1. Какого типа должна быть S?
2. В данном примере Димы "Билл ГЕЙц - ЛОХ" - это я так потял сама SMS
3. Номер телефона я так понял надо вводить в самом конце после строчки deferto=&adv_year=&send=send&confirm_key=D1qFhsBdtZ&confirm_code=7284&destination_number_from=ordinary&network_code=6&ph  one=5811808&message=body&mlength=152&phone_answer_number= № телефона ?????? или нет?????
4. Несовсем понял выражение: "длинна самой длинно нижней строки с запросом"??? -это в смысле ДЛИННА СООБШЕНИЯ, т.е. количество символов сообщения или нет???????
5 И ещё посмотри пожалуйста помоему я тут всякой фигни на делал. Напешите если не трудно как должно быть???? Ещё раз спосибо за ваш отзыв!!!!!!!!!!!!!!!!!!!!!!!!!!!


 
Александр   (2004-02-04 08:51) [7]

Удалено модератором
Примечание: Создание пустых сообщений ...


 
Александр   (2004-02-04 08:51) [7]

Удалено модератором
Примечание: Создание пустых сообщений ...


 
Maksss   (2004-02-04 17:12) [8]

var
i:integer;
s:string;
begin
ClientSocket1.host := "www.beeonline.ru";
ClientSocket1.port := 80;
ClientSocket1.Active := true;

//это должно быть в событии когда приконнектиться сокет
s1:="deferto=&adv_year=&send=send&confirm_key=D1qFhsBdtZ&confirm_code=7284&destination_number_from=ordinary&network_code =6&ph  one=5811808&message=body&mlength=152&phone_answer_number=";
S := "POST /portal/comm/send_sms/simple_send_sms.sms HTTP/1.1"+#13#10+
"Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*"+#13#10+
"Accept-Language: ru"+#13#10+
"Content-Type: application/x-www-form-urlencoded"+#13#10+
"User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)"+#13#10+
"Content-Length: "+length(s1)+#13#10+
"Connection: Keep-Alive"+#13#10+
"Cache-Control: no-cache" + #13#10#13#10";
ClientSocket1.Socket.SendText(S);

а при cl.read нуна дисконнектить
ClientSocket1.Active := false;


 
Maksss   (2004-02-04 17:12) [8]

var
i:integer;
s:string;
begin
ClientSocket1.host := "www.beeonline.ru";
ClientSocket1.port := 80;
ClientSocket1.Active := true;

//это должно быть в событии когда приконнектиться сокет
s1:="deferto=&adv_year=&send=send&confirm_key=D1qFhsBdtZ&confirm_code=7284&destination_number_from=ordinary&network_code =6&ph  one=5811808&message=body&mlength=152&phone_answer_number=";
S := "POST /portal/comm/send_sms/simple_send_sms.sms HTTP/1.1"+#13#10+
"Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*"+#13#10+
"Accept-Language: ru"+#13#10+
"Content-Type: application/x-www-form-urlencoded"+#13#10+
"User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)"+#13#10+
"Content-Length: "+length(s1)+#13#10+
"Connection: Keep-Alive"+#13#10+
"Cache-Control: no-cache" + #13#10#13#10";
ClientSocket1.Socket.SendText(S);

а при cl.read нуна дисконнектить
ClientSocket1.Active := false;


 
Александр   (2004-02-05 10:50) [9]

А где? В каком месте писать само сообщение????????


 
Александр   (2004-02-05 10:50) [9]

А где? В каком месте писать само сообщение????????


 
Александр   (2004-02-05 13:04) [10]

Удалено модератором
Примечание: Создание пустых сообщений ...


 
Александр   (2004-02-05 13:04) [10]

Удалено модератором
Примечание: Создание пустых сообщений ...


 
Woodpecker ©   (2004-02-05 15:21) [11]

Удалено модератором
Примечание: Разборки в чате устраиваем ...


 
Woodpecker ©   (2004-02-05 15:21) [11]

Удалено модератором
Примечание: Разборки в чате устраиваем ...


 
Александр   (2004-02-05 18:06) [12]

Удалено модератором
Примечание: Разборки в чате устраиваем ...


 
Александр   (2004-02-05 18:06) [12]

Удалено модератором
Примечание: Разборки в чате устраиваем ...


 
Александр   (2004-02-06 08:00) [13]

Удалено модератором
Примечание: Создание пустых сообщений ...


 
Александр   (2004-02-06 08:00) [13]

Удалено модератором
Примечание: Создание пустых сообщений ...


 
Александр   (2004-02-06 21:35) [14]

SMS так и немогу отправить!


 
Александр   (2004-02-06 21:35) [14]

SMS так и немогу отправить!


 
DeadMeat ©   (2004-02-07 01:31) [15]

Удалено модератором
Примечание: Прикольная последовательность... :)


 
DeadMeat ©   (2004-02-07 01:31) [15]

Удалено модератором
Примечание: Прикольная последовательность... :)


 
Александр   (2004-02-09 15:15) [16]

SMS так и немогу отправить!

Чё-то не выходит????


 
Александр   (2004-02-09 15:15) [16]

SMS так и немогу отправить!

Чё-то не выходит????


 
Александр   (2004-02-12 11:45) [17]

Ну так чё sms никто не умеет отправлять?????????


 
Александр   (2004-02-12 11:45) [17]

Ну так чё sms никто не умеет отправлять?????????


 
vrv   (2004-03-14 15:30) [18]

Всем привет !
Мне тоже понадобилось отправить sms ни сотовый но у меня немного другая проблема ... Мне нужно отправить на МегаФон и к то же Кавказкий )))) и ни как не могу найти в инете тако сервис (без картинок) .... Если кто знает плиз подскажите )))
А на МТС и Билайн - я уже реализовал и при чем таким способом как и было описано выше ....


 
vrv   (2004-03-14 15:30) [18]

Всем привет !
Мне тоже понадобилось отправить sms ни сотовый но у меня немного другая проблема ... Мне нужно отправить на МегаФон и к то же Кавказкий )))) и ни как не могу найти в инете тако сервис (без картинок) .... Если кто знает плиз подскажите )))
А на МТС и Билайн - я уже реализовал и при чем таким способом как и было описано выше ....


 
S@shka ©   (2004-03-15 12:10) [19]

Могу подсказать, но отправка платная.
http://smst.smstechno.com


 
S@shka ©   (2004-03-15 12:10) [19]

Могу подсказать, но отправка платная.
http://smst.smstechno.com



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

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

Наверх




Память: 0.55 MB
Время: 0.043 c
14-1082021325
Stas
2004-04-15 13:28
2004.05.09
QNX система работающая в реальном времени


1-1082562444
ламеррр
2004-04-21 19:47
2004.05.09
как отменить with


4-1079858504
tytus
2004-03-21 11:41
2004.05.09
Как перехватить сообщения WM_VSCROLL и WM_HSCROLL?


1-1082356834
_новый_
2004-04-19 10:40
2004.05.09
TSaveDialog


3-1081756474
Назаров Евгений
2004-04-12 11:54
2004.05.09
SQL Запрос





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский