7.7 Отправка сообщений из 1С 7.7

Тема в разделе "Конфигурирование на платформе "1С:Предприятие 7.7"", создана пользователем djyarilo, 6 июн 2013.

  1. TopicStarter Overlay
    djyarilo
    Offline

    djyarilo Опытный в 1С

    Регистрация:
    18 апр 2011
    Сообщения:
    435
    Симпатии:
    0
    Баллы:
    26
    На сайте 1с-pro нашел код отправки смс, только ошибку выдает про конец процедуры, подскажите что не так?
    Код:
    Function ExecuteScript(TextScript,NameFunction)
    ScrptCtrl = CreateObject("MSScriptControl.ScriptControl");
    ScrptCtrl.Language = "vbscript";
    ScrptCtrl.AddCode(TextScript);
    Return ScrptCtrl.Run(NameFunction);
    EndFunction
    Процедура Отправить()
    TextScript="
    |Sub SendSMS
    |Dim objIE
    |Dim objDoc
    |Dim objForm
    |
    |Set objIE = CreateObject(""InternetExplorer.Application"")
    |objIE.Visible = False
    |objIE.Silent  = False
    |objIE.Navigate(""http://www.beeline.ru/sms/index.wbp"")
    |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");
    КонецПроцедуры
  2. Tiger86
    Offline

    Tiger86 Модераторы Команда форума Модератор

    Регистрация:
    24 мар 2011
    Сообщения:
    6.407
    Симпатии:
    108
    Баллы:
    104
    а текст ошибки где?
  3. TopicStarter Overlay
    djyarilo
    Offline

    djyarilo Опытный в 1С

    Регистрация:
    18 апр 2011
    Сообщения:
    435
    Симпатии:
    0
    Баллы:
    26
    ScrptCtrl.AddCode(TextScript);
    {C:\USERS\1CSPEC\DESKTOP\ОТПРАВКАСМС.ERT(4)}: Ошибка компиляции Microsoft VBScript: Предполагается наличие окончания инструкции
  4. TopicStarter Overlay
    djyarilo
    Offline

    djyarilo Опытный в 1С

    Регистрация:
    18 апр 2011
    Сообщения:
    435
    Симпатии:
    0
    Баллы:
    26
    Может какие то dll нужно установить или еще что? переменная телфон, я сделал числом, а сообщение строкой, ну вдруг по этим причинам
  5. TopicStarter Overlay
    djyarilo
    Offline

    djyarilo Опытный в 1С

    Регистрация:
    18 апр 2011
    Сообщения:
    435
    Симпатии:
    0
    Баллы:
    26
    Вообще какой программой можно проверить скрипт? просто я думаю, допустим код рабочий написать в текстовый документ,а открыть его программой которая может считывать такое. а в код уже передать и номер и текст
  6. TopicStarter Overlay
    djyarilo
    Offline

    djyarilo Опытный в 1С

    Регистрация:
    18 апр 2011
    Сообщения:
    435
    Симпатии:
    0
    Баллы:
    26
    Короче более мене разобрался, но такое не прокатит, потому что на серверах отправки смс везде с картинки нужно вводить код