Форум: "Сети";
Текущий архив: 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.036 c