![]() |
![]() |
![]() |
|
СМС | ☑ | ||
---|---|---|---|---|
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, не поддерживает "НомерАбонента@почтовыйсервер провайдера". Вот я и извращаюсь, чтобы охватить всех клиентов.
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |