7.7 Отправка SMS-сообщений

Вот простой пример отправки СМС используя IE через сайт оператора

Код:

Функция ВыполнитьСкрипт(Стр,Имя)	
Скрипт= CreateObject("MSScriptControl.ScriptControl");	
Скрипт.Language	= "vbscript"; 	
Скрипт.AddCode(Стр);	
Возврат Скриптl.Run(Имя);
КонецФункции

Процедура Отправить()	
Стр="	
|Sub SendSMS	
|Dim objIE
|Dim objDoc	
|Dim objForm	
|	
|Set objIE = CreateObject(""InternetExplorer.Application"")	
|objIE.Visible = False	
|objIE.Silent  = False	
|objIE.Navigate(""Ссылка на форму отправки на сайте оператора"")	
|While objIE.ReadyState < 4	
|Wend	
|Set objDoc = objIE.Document	
|Set objForm= objDoc.Forms(0)
|objForm.elements(""To"").value  = 7"""+Телефон+"""	
|objForm.elements(""Msg"").value = """+СокрЛП(Сообщение)+"""	
|objForm.submit()	
|Set objForm = Nothing	
|Set objDoc  = Nothing	
|Set objIE   = Nothing	|End Sub	
|";    

ВыполнитьСкрипт(Стр,"SendSMS");
КонецПроцедуры

В архиве пример библы для отправки СМС через подключенный к компу телефон