Отправка SMS через web-сервис turbosms.com.ua (SOAP)

На этом сайте уже видел реализации отправки СМС через  turbosms.com.ua , но там отправка сделана через mysql-connector .

Возможно, кому-то так и удобнее, но что делать тем, у кого порты нужные закрыты и наружу только HTTP смотрит ?  — Ответ: отправлять СМС по SOAP TurboSMS.

И чтобы не тратить ваше время на изучение документации на их сайте делюсь обработкой, в которой реализованы следующие методы:

1. Auth — авторизирует пользователя на сервере
2. GetCreditBalance — возвращает остаток на счёте пользователя
3. SendSMS — отправляет сообщения
4. GetMessageStatus — возвращает статус доставки сообщения

C HTTP работаю через WinHttp.WinHttpRequest.5.1, поэтому код процедур легко можно переписать и для 7.7 :

Функция Auth(ТурбоЛогин,ТурбоПароль,Прокси)
ВинХТТП =Новый COMОбъект("WinHttp.WinHttpRequest.5.1");
Если ЗначениеЗаполнено(Прокси) Тогда
ВинХТТП.SetProxy(2,Прокси);
КонецЕсли;
ВинХТТП.Open("POST","http://turbosms.in.ua/api/soap.html",0);
sXML =
"<soapenv:Envelope xmlns:soapenv=""http://schemas.xmlsoap.org/soap/envelope/"" xmlns:tur=""http://turbosms.in.ua/api/Turbo"">
| <soapenv:Header/>
| <soapenv:Body>
|    <tur:Auth>
|       <!--Optional:-->
|       <tur:login>"+СокрЛП(ТурбоЛогин)+"</tur:login>
|       <!--Optional:-->
|       <tur:password>"+СокрЛП(ТурбоПароль)+"</tur:password>
|    </tur:Auth>
| </soapenv:Body>
|</soapenv:Envelope>";

ВинХТТП.Send(sXML);
Если Найти(ВинХТТП.ResponseText(),"Вы успешно авторизировались")>0 Тогда
Возврат ВинХТТП.getResponseHeader("Set-Cookie");
Иначе
Возврат "";
КонецЕсли;
КонецФункции


Функция GetCreditBalance(Прокси,Куки)
ВинХТТП =Новый COMОбъект("WinHttp.WinHttpRequest.5.1");
Если ЗначениеЗаполнено(Прокси) Тогда
ВинХТТП.SetProxy(2,Прокси);
КонецЕсли;
ВинХТТП.Open("POST","http://turbosms.in.ua/api/soap.html",0);
sXML =
"<soapenv:Envelope xmlns:soapenv=""http://schemas.xmlsoap.org/soap/envelope/"" xmlns:tur=""http://turbosms.in.ua/api/Turbo"">
|<soapenv:Header/>
| <soapenv:Body>
|  <tur:GetCreditBalance/>
| </soapenv:Body>
|</soapenv:Envelope>";
ВинХТТП.setRequestHeader ("COOKIE", Куки);
ВинХТТП.Send(sXML);
Возврат ПарситьСтроку(ВинХТТП.ResponseText(),"<ns1:GetCreditBalanceResult>","</ns1:GetCreditBalanceResult>");
КонецФункции