Имя: Пароль:
1C
 
СМС
0 BigBoy
 
29.01.06
20:56
Скачал с сайта http://1c.proclub.ru/ пример кода, отправляющего из 1С СМС.

Function ExecuteScript(TextScript,NameFunction)    
   ScrptCtrl    = CreateObject("MSScriptControl.ScriptControl");    
   ScrptCtrl.Language            = "vbscript";    
   ScrptCtrl.AddCode(TextScript);    
   Return ScrptCtrl.Run(NameFunction);
EndFunction

Процедура Отправить()    
   Сообщение="Вот оно";  
   Телефон=555555555;
   TextScript="    
   |Sub SendSMS    
   |Dim objIE    
   |Dim objDoc    
   |Dim objForm
   |    
   |Set objIE = CreateObject(""InternetExplorer.Application"")    
   |objIE.Visible = False    
   |objIE.Silent  = False    
   |objIE.Navigate(""http://www.spb.mts.ru/sendform_sms.htm"")    
   |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
   |";    
   ExecuteScript(TextScript,"SendSMS");
КонецПроцедуры

Но система ругается "ScrptCtrl.AddCode(TextScript);    
{Документ.ЗаявлениеСМС.Форма.Модуль(64)}: Ошибка компиляции Microsoft VBScript: Предполагается наличие окончания инструкции"

Кто-нибудь делал подобное. В чем моя ошибка .
1 BigBoy
 
30.01.06
04:45
Алло
2 Морозов Александр
 
30.01.06
04:51
И тебе алло добрый человек...
3 RomaKRSK
 
30.01.06
06:30
В строке |objIE.Navigate(""http://www.spb.mts.ru/sendform_sms.htm"")    
могут быть проблемы
4 Череп
 
30.01.06
07:43
Ну друг ты даёшь! Разве не знаешь что на сайтах отправки смс уже давно защита от хакеров стоит в виде просьбы ввести код написанный на картинке. Это чтоб нельзя было написать скрипт отправляющий СМС автоматически. Так что если ты сам не договоришься с оператором, то врятли сможешь отправлять СМСки скриптом.
5 Sonic_vlad
 
30.01.06
08:42
многие операторы поддерживают отправку СМС когда им приходит письмо
6 BigBoy
 
30.01.06
09:42
Спасибо за мнения.
(4)На сайте моего оператора нет защиты. Пробовал другие адреса, один черт, ругается в том же месте.

(5)Я хотел только через скрипт.
7 Sonic_vlad
 
30.01.06
09:54
(6) так и шли скриптом письмо
типа "НомерАбонента@почтовыйсервер провайдера"
8 Samosval
 
30.01.06
10:51
не взлетит ...
железку купил лучше стоит копейки ... (нокию 5110 к примеру)
9 PaulBC
 
30.01.06
11:01
(0) К 1с прикручивать не пробовал, а сам скрипт отработал на ура с моим оператором. Только пришлось посмотреть/вставить идентификаторы формы отправки смс на сайте оператора и ее элементов.
10 BigBoy
 
30.01.06
13:20
(7)У нас 2 оператора. Один из них, Теле 2, не поддерживает "НомерАбонента@почтовыйсервер провайдера". Вот я и извращаюсь, чтобы охватить всех клиентов.