Програмно заставить VBA рассылать SMS через мобильный телефон

@IvanOK · Регистрация: 25.06.2011

Студворк — интернет-сервис помощи студентам

Есть моб. телефон ....., через отдельний браузер можно посалать смс, как подлючить браузер к VBA, или же как работат брузер по отсилке смс.....может есть какие то варианти еть, над етим долблю голову уже 8 дней....

@R Dmitry · 15.11.2011, 20:51

Не по теме:

Они друг друга нашли :friends:

@Ципихович Эндрю · 15.11.2011, 20:55

Вот Вы скажите в Ворде, Экселе на ВЭБ странице кнопка на которой указан номер телефона, нажал спросило с какого номера позвонить, то есть с памяти взять и набрать номер, это разве не интересно?
Это что задача века?

magirus · 15.11.2011, 21:11

Сообщение от Ципихович Эндрю

с какого номера позвонить

а они все на вас зарегистрированы, подключены GSM модулем к компу?

@Ципихович Эндрю · 15.11.2011, 21:15

конечно!
так для этого же и бьюсь вывести их список
Так для этого же если что-то не так пошло прога должна сама сказать, мол извините у Вас ...

@IvanOK · 16.11.2011, 12:19 **[ТС]**

Сообщение от Памирыч

IvanOK,
Ципихович Эндрю,
Кто кому тут помогает?

а какая разница?
Лутше помогите правильно создать(подать) ат команду на отправку смс;
Кодировку уже понял...

Добавлено через 9 часов 41 минуту
Ципихович Эндрю,

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Dim Comm1 As New MSComm
 
Sub proba()
 
If Comm1.PortOpen = False Then
'Íàñòðàèâàåì ïîðò
  Comm1.CommPort = 1
  Comm1.Settings = "9600,N,8,1"
  Comm1.Handshaking = comNone
  Comm1.InputLen = 0
  Comm1.InBufferSize = 40
  Comm1.OutBufferSize = 40
  Comm1.RThreshold = 0
  
'Îòêðûâàåì ïîðò
  Comm1.PortOpen = True
End If
 
  Worksheets("Ëèñò1").Cells(1, 1) = "ïîðò â³äêðèòî"
  
  Comm1.Output = Chr(27)             ' î÷èùàºì áóôåð
  
 Comm1.Output = "AT+CMGS=18" & Chr(34) & "> 0011000C918390878363350000AA0441E19008(Ctrl+Z)" & Chr(34) & vbCr
 
 Otvet4 = Comm1.Input
 Worksheets("Ëèñò1").Cells(1, 7) = Otvet4
  
End Sub

Добавлено через 16 минут
1. походу здесь нужна задержка в проге так как она не успевает получить ответ.....
2.правильна ли отправляю ат команду на отправку смс..... в кодировке уже разобрался

@Ципихович Эндрю · 16.11.2011, 15:11

Вы сказали:

Сообщение от IvanOK

есть ответ модема о модели толеофона т.п .

Я попросил выложить код, Вы выложили и где в нём видно, чтобы Вы получили

Сообщение от IvanOK

ответ модема о модели толеофона т.п .

??????????
также просил

Сообщение от Ципихович Эндрю

сделайте по человечески как у всех
Dim MSComm1 As MSComm
Set MSComm1 = New MSComm

разницы конечно нет, называйте как хотите, просто чтобы было одинаково и двигаться дальше, а где:
Set MSComm1 = New MSComm
не хотите создавать объект
???????????

@IvanOK · 16.11.2011, 15:28 **[ТС]**

Ципихович Эндрю, вот файл в нем есть все ответи

@Ципихович Эндрю · 16.11.2011, 15:37

что можно сказать, спасибо, буду проверять завтра на работе, а можно ссылку откуда эту инфу Вы взяли?
у меня всё чуть-чуть по другому

@IvanOK · 16.11.2011, 17:39 **[ТС]**

Ципихович Эндрю, есть золотие слова....думай куме думай.....а ето все сам склепал.... у и ат команди нашел........

@Ципихович Эндрю · 16.11.2011, 17:43

Сообщение от IvanOK

склепал

и что СМС отправили??

@IvanOK · 16.11.2011, 18:26 **[ТС]**

Ципихович Эндрю, как правильно подать ат ком. незнаю

@Ципихович Эндрю · 16.11.2011, 18:35

посмотрите
уже готовое - по результатам дайте ответ

Памирыч · 16.11.2011, 18:54

Комментарий модератора

Ципихович Эндрю, пора перечитать правила, что-то многовато нарушений за последнее время.
Еще одно, любое, пусть даже в первый раз, и тобой заинтересуются всерьез.

@IvanOK · 16.11.2011, 19:26 **[ТС]**

Ципихович Эндрю, хорош проект. но смс не отправляет можно сам код увидеть....

Добавлено через 1 минуту
Памирыч,
в чем мои нарушения.....правила времени нет читать....извени

Памирыч:
К тебе претензий не было

От Almiqui : а у меня немножко есть - лучше найти время , чтобы почитать правила форума. Дружнее жить будем

@Ципихович Эндрю · 16.11.2011, 19:32

может не правильно используете?
насколько я знаю он (исходник) наверное в дельфях
есть тема в инете "Библиотека GSM Library. Щоб снять вопросы по приему/отправке СМС через модемы GSM", попробуйте связаться с автором
потом отпишитесь

@IvanOK · 16.11.2011, 21:20 **[ТС]**

Ципихович Эндрю, ок. У тебя шото получилось?

magirus · 16.11.2011, 21:30

Комментарий модератора

Сообщение от IvanOK

правила времени нет читать

дык я щас организую, сколько надо времени?
три дня хватит?

@IvanOK · 17.11.2011, 20:54 **[ТС]**

есть у кого то описание фунций к ком порту в ВБА

raxper · 17.11.2011, 23:32

...а причем тут VBA?

@IvanOK · 18.11.2011, 02:32 **[ТС]**

raxp, можна и без...

Добавлено через 12 минут
и так шо у меня получилось:
1.получить ответ о заряде батереи;
2.модель тел.;
3.счет на балансе;
4.уровень сигнала;
и т.д. но отправить смс-ето проблема...дошел до того, что ответ - неверний код PDU

Новые блоги и статьи Все статьи Все блоги /
Nekobox - outbounds[0].transport: unknown transport type: raw damix 01.10.2026 Фикс ошибки Правым кликом по серверу -> отладочная информация -> edit Заменить "net": "raw", на "net": "tcp", Нажать кнопку reload.	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .
Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .

@IvanOK 693 / 99 / 10 Регистрация: 25.06.2011 Сообщений: 718

	Програмно заставить VBA рассылать SMS через мобильный телефон 21.10.2011, 12:46. Показов 27310. Ответов 103 Метки нет (Все метки) Есть моб. телефон ....., через отдельний браузер можно посалать смс, как подлючить браузер к VBA, или же как работат брузер по отсилке смс.....может есть какие то варианти еть, над етим долблю голову уже 8 дней.... 0

@R Dmitry
	15.11.2011, 20:51
	Не по теме: Они друг друга нашли :friends: 0

@Ципихович Эндрю 1713 / 580 / 76 Регистрация: 10.04.2009 Сообщений: 9,337
	15.11.2011, 20:55
	Вот Вы скажите в Ворде, Экселе на ВЭБ странице кнопка на которой указан номер телефона, нажал спросило с какого номера позвонить, то есть с памяти взять и набрать номер, это разве не интересно? Это что задача века? 0

@Ципихович Эндрю 1713 / 580 / 76 Регистрация: 10.04.2009 Сообщений: 9,337
	15.11.2011, 21:15
	конечно! так для этого же и бьюсь вывести их список Так для этого же если что-то не так пошло прога должна сама сказать, мол извините у Вас ... 0

@Ципихович Эндрю 1713 / 580 / 76 Регистрация: 10.04.2009 Сообщений: 9,337
	16.11.2011, 15:37
	что можно сказать, спасибо, буду проверять завтра на работе, а можно ссылку откуда эту инфу Вы взяли? у меня всё чуть-чуть по другому 0

@IvanOK 693 / 99 / 10 Регистрация: 25.06.2011 Сообщений: 718
	16.11.2011, 17:39 [ТС]
	Ципихович Эндрю, есть золотие слова....думай куме думай.....а ето все сам склепал.... у и ат команди нашел........ 0

@IvanOK 693 / 99 / 10 Регистрация: 25.06.2011 Сообщений: 718
	16.11.2011, 18:26 [ТС]
	Ципихович Эндрю, как правильно подать ат ком. незнаю 0

@IvanOK 693 / 99 / 10 Регистрация: 25.06.2011 Сообщений: 718
	16.11.2011, 19:26 [ТС]
	Ципихович Эндрю, хорош проект. но смс не отправляет можно сам код увидеть.... Добавлено через 1 минуту Памирыч, в чем мои нарушения.....правила времени нет читать....извени Памирыч: К тебе претензий не было От Almiqui : а у меня немножко есть - лучше найти время , чтобы почитать правила форума. Дружнее жить будем 0

@Ципихович Эндрю 1713 / 580 / 76 Регистрация: 10.04.2009 Сообщений: 9,337
	16.11.2011, 19:32
	может не правильно используете? насколько я знаю он (исходник) наверное в дельфях есть тема в инете "Библиотека GSM Library. Щоб снять вопросы по приему/отправке СМС через модемы GSM", попробуйте связаться с автором потом отпишитесь 0

@IvanOK 693 / 99 / 10 Регистрация: 25.06.2011 Сообщений: 718
	16.11.2011, 21:20 [ТС]
	Ципихович Эндрю, ок. У тебя шото получилось? 0

@IvanOK 693 / 99 / 10 Регистрация: 25.06.2011 Сообщений: 718
	17.11.2011, 20:54 [ТС]
	есть у кого то описание фунций к ком порту в ВБА 0

raxper 10237 / 6615 / 498 Регистрация: 28.12.2010 Сообщений: 21,154 Записей в блоге: 1
	17.11.2011, 23:32
	...а причем тут VBA? 0

@IvanOK 693 / 99 / 10 Регистрация: 25.06.2011 Сообщений: 718
	18.11.2011, 02:32 [ТС]
	raxp, можна и без... Добавлено через 12 минут и так шо у меня получилось: 1.получить ответ о заряде батереи; 2.модель тел.; 3.счет на балансе; 4.уровень сигнала; и т.д. но отправить смс-ето проблема...дошел до того, что ответ - неверний код PDU 0