Имя: Пароль:
1C
1C 7.7
v7: Отправить Http pзапрос из 1с?
0 Longdimm
 
12.11.12
08:36
Как это можно сделать?
Надо отправить строку
https://www.smsdirect.ru/submit_message?login=ччч&pass=ччч&from=мояфирма&to=79122456456&text=Тестовое сообщение отправка
1 vde69
 
12.11.12
08:38
2 Longdimm
 
12.11.12
08:39
Ну и? Я уже искал, ничего не отправляется((
3 Longdimm
 
12.11.12
08:39
WinHttp=СоздатьОбъект("WinHttp.WinHttpRequest.5.1");
   WinHttp.Option(2,"Windows-1251");                  
   WinHttp.Open("POST","https://www.smsdirect.ru/submit_message?login=ччч&pass=ччч&from=мояфирма&to=79122456456&text=Тестовое сообщение отправка",0);
4 Longdimm
 
12.11.12
08:54
Может быть у кого нибудь есть рабочий пример отправки подобного запроса?
5 Longdimm
 
12.11.12
09:32
IE=СоздатьОбъект("InternetExplorer.Application");
   IE.Visible = 1;
   IE.Navigate ("https://www.smsdirect.ru/submit_message?login=ччч&pass=ччч&from=мояфирма&to=79122456456&text=Тестовое сообщение отправка");

Cделал вот так.
Но эксплоэр пишет что ошибка 500. Жму на обновить - отправляет нормально.
6 Longdimm
 
12.11.12
09:38
HTTP 500 Internal Server Error - вот такая ошибка!
7 Нева
 
12.11.12
09:42
А в ответ сервер что передает?
8 Longdimm
 
12.11.12
09:43
Так просто ошибка 500 и все. Ничего не передает.
9 Longdimm
 
12.11.12
09:44
А через мазиллу нормально если даже вбить просто в строку в IE - Ошибка. Жму обновить- отправляется. Через мазиллу - все сразу отправляется.
10 Нева
 
12.11.12
09:45
Что по факту сервер возвращает или что должен возвращать? Передав запрос что ты хочешь получить?
11 Нева
 
12.11.12
09:48
+(10) для чего ты запрос отправляешь?
12 Longdimm
 
12.11.12
09:49
Я хочу чтобы просто выполнился данный запрос. Он вернет число,но это не важно так как выполняться будет в скрытом режиме.

т.е мне надо чтобы как будто я открыл браузер и ввел туда строку эту.
и все.
13 Longdimm
 
12.11.12
09:49
При выполнении этого запроса будет отправка СМС сообщения!
14 Нева
 
12.11.12
09:52
ХТТПЗапрос =СоздатьОбъект("WinHttp.WinHttpRequest.5.1");
ХТТПЗапрос.Open("GET", УРЛ, 0);
   
Попытка
ХТТПЗапрос.Send();
Исключение
Сообщить("Не удалось отправить запрос","!");
Возврат;
КонецПопытки;

УРЛ- твоя строка
15 Нева
 
12.11.12
09:54
Запрос=CreateObject("Microsoft.XMLHTTP");
Запрос.Open("GET", УРЛ, 0,"","");
Запрос.Send();
16 dk
 
12.11.12
09:56
17 Longdimm
 
12.11.12
12:39
Спасибо огромное! Все получилось!