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

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

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

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

@IvanOK · 27.10.2011, 03:21 **[ТС]**

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

Добавлено через 24 минуты
eutelg, можна както получить код прогы, меня интересует прынцып взаимодействия ПК с телеф.

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

не пойму зачем нужен телефон, нужно узнать у оператора, например телефон оператора Ютел-89028912680, добавляем @suct.ru, получается 89028912680@suct.ru - это мыло, туда шлём - на сотовый телефон получаем, что-то подобное есь и у Билайна, МТС, Мегафон, Теле2 и т.д.

@IvanOK · 27.10.2011, 19:25 **[ТС]**

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

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

пальцами по клавишам или

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

подключать как модем

Dmitry · 27.10.2011, 20:16

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

туда шлём - на сотовый телефон получаем,

туда шлем - отлуп приходит....
многие опсосы давно перестали пересылать такое, кроме того, клиент теперь должен принудительно включить прием смс-ок присланных на е-мейл...

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

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

туда шлем - отлуп приходит....

возможно+задержки по времени доставки возможны

@IvanOK · 01.11.2011, 15:08 **[ТС]**

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

Добавлено через 13 секунд
Dmitry, ето все хорошо тему я понял с участием нета ака к без участия....

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

что-то только сейчас увидел сообщение с ссылкой на http://www.juicesms.com/
Опробовали?, не то?

@IvanOK · 03.11.2011, 18:14 **[ТС]**

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

что-то только сейчас увидел сообщение с ссылкой на http://www.juicesms.com/
Опробовали?, не то?

чТО ТО .......НО ОНА С НЕТОМ РАБОТАЕТ А НЕ НАПРЯМУЮ С ТЕЛЕФОНОМ... ....

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

raxp, информации в этом топике от Вас много, но я её не смотрел детально, английский не мой конёк, даже с переводом от гугла, подскажите в Вашем примере строка

Visual Basic
1
2
'Формируем команду $KE,WR
    KeUSB.Output = "$KE,WR," & Номер_линии & "," & Значение & Chr(13) & Chr(10)

что даёт эта команда??
Номер_линии и Значение как я понял вводит пользовать в файле Эксель?
что они означают??
так как я победил ошибку 429 усиленно ищу ответ на непонятные мне вопросы, прощу от Вас помощи и в моём топике, заранее спасибо

Добавлено через 7 минут
на указанной строке указанная ошибка что обозначает?

Visual Basic
1
KeUSB.PortOpen = True '8002 Metod 'PortOpen' of object 'IMSComm' failed

@IvanOK · 10.11.2011, 12:23 **[ТС]**

Ципихович Эндрю, да но я подвис на 429

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

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

да но я подвис на 429

- не понял, у Вас ошибка 429? на какой строке, и Вы не знаете как решить?

@IvanOK · 10.11.2011, 15:14 **[ТС]**

Ципихович Эндрю, подключить ком порт удалось.......подать команду нет.....а ошибкf при Comm1.output=........

Добавлено через 2 минуты
как понял я ошибка из-за того что я пробывал использовать один и тотже ком порт и подать на него команду, не отсоиденяясь от ком порта....

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

сложный человек, спрашиваю на какой строке ошибка, не по счёту, а как она выглядит и ошибка как выглядит?

@IvanOK · 10.11.2011, 20:15 **[ТС]**

Ципихович Эндрю, извени но я что -то чуточку недопонимаю......... на строке вроде где есть фраза Comm1.output=......., я не знаю как правильно подать ат команду....

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

ну тогда выкладывайте свой код полностью

@IvanOK · 14.11.2011, 12:40 **[ТС]**

Ципихович Эндрю,Dim fl As New MSComm

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
Sub proba()
'Íàñòðàèâàåì ïîðò
  fl.CommPort = 3
  fl.Settings = "9600,N,8,1"
  fl.Handshaking = comNone
  fl.InputLen = 0
  fl.InBufferSize = 40
  fl.OutBufferSize = 40
  fl.RThreshold = 0
  
'Îòêðûâàåì ïîðò
  fl.PortOpen = True
  Worksheets("Ëèñò1").Cells(1, 1) = "ïîðò â³äêðèòî"
  'fl.Output = "AT+GMM"
  'Worksheets("Ëèñò1").Cells(1, 2) = KeUSB.Input
 
  
  fl.Output = "AT + CMGS " 'è òóò òî  ïîëíèé  îáëîì ïîðò îòêðèò à ïîäàòü _
                            êîìàíäó íà ïîðò ïðàâèëüíî íå ìîãó  òåì áîëåå _
                            óâèäåòü îòâåòü ìîäåìà
                            
  'Worksheets("Ëèñò1").Cells(1, 2) = KeUSB.Input
 
End Sub

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

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

помоему надо так

Visual Basic
1
2
Dim fl As New MSComm
    Set fl = New MSComm

сделайте по человечески как у всех

Visual Basic
1
2
   Dim MSComm1 As MSComm
    Set MSComm1 = New MSComm

это fl.Output = "AT+GMM" послать, только надо пробел дописать fl.Output = "AT +GMM" - только именно эта команда Вам вроде ни к чему, во всяком случае для чего она нужна?
это принять q = fl.Input

@IvanOK · 15.11.2011, 11:43 **[ТС]**

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

Добавлено через 43 секунды
Ципихович Эндрю, ща поправлю по человечески

Добавлено через 16 часов 13 минут
Ципихович Эндрю, есть ответ модема о модели толеофона т.п . , как... правильно подать АТ команду на отправку смс.... о структуре уже разолобрался...

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

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

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

Выложите код, весь, прежде чем выкладывать три раза подумайте, чтобы не было как при прошлом Вашем выкладывании

Новые блоги и статьи Все статьи Все блоги /
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого 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) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .	Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .

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

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

@IvanOK 693 / 99 / 10 Регистрация: 25.06.2011 Сообщений: 718
	27.10.2011, 03:21 [ТС]
	Ципихович Эндрю, непойму зачем телефон подключать как модем, он же небудеть в режыме телефона, тем самым не отправит смс Добавлено через 24 минуты eutelg, можна както получить код прогы, меня интересует прынцып взаимодействия ПК с телеф. 0

@Ципихович Эндрю 1713 / 580 / 76 Регистрация: 10.04.2009 Сообщений: 9,337
	27.10.2011, 18:48
	не пойму зачем нужен телефон, нужно узнать у оператора, например телефон оператора Ютел-89028912680, добавляем @suct.ru, получается 89028912680@suct.ru - это мыло, туда шлём - на сотовый телефон получаем, что-то подобное есь и у Билайна, МТС, Мегафон, Теле2 и т.д. 0

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

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

@Ципихович Эндрю 1713 / 580 / 76 Регистрация: 10.04.2009 Сообщений: 9,337
	01.11.2011, 17:25
	что-то только сейчас увидел сообщение с ссылкой на http://www.juicesms.com/ Опробовали?, не то? 0

@IvanOK 693 / 99 / 10 Регистрация: 25.06.2011 Сообщений: 718
	10.11.2011, 12:23 [ТС]
	Ципихович Эндрю, да но я подвис на 429 0

@IvanOK 693 / 99 / 10 Регистрация: 25.06.2011 Сообщений: 718
	10.11.2011, 15:14 [ТС]
	Ципихович Эндрю, подключить ком порт удалось.......подать команду нет.....а ошибкf при Comm1.output=........ Добавлено через 2 минуты как понял я ошибка из-за того что я пробывал использовать один и тотже ком порт и подать на него команду, не отсоиденяясь от ком порта.... 0

@Ципихович Эндрю 1713 / 580 / 76 Регистрация: 10.04.2009 Сообщений: 9,337
	10.11.2011, 15:26
	сложный человек, спрашиваю на какой строке ошибка, не по счёту, а как она выглядит и ошибка как выглядит? 0

@IvanOK 693 / 99 / 10 Регистрация: 25.06.2011 Сообщений: 718
	10.11.2011, 20:15 [ТС]
	Ципихович Эндрю, извени но я что -то чуточку недопонимаю......... на строке вроде где есть фраза Comm1.output=......., я не знаю как правильно подать ат команду.... 0

@Ципихович Эндрю 1713 / 580 / 76 Регистрация: 10.04.2009 Сообщений: 9,337
	11.11.2011, 05:18
	ну тогда выкладывайте свой код полностью 0

@IvanOK 693 / 99 / 10 Регистрация: 25.06.2011 Сообщений: 718
	15.11.2011, 11:43 [ТС]
	Ципихович Эндрю, ета команда в модем чтоб узнать модель телефона и т.п. только ответа нет...у меня вро де догадки что когда я опросил модем он вроде уже используется......и потом на него силаюсь.... Добавлено через 43 секунды Ципихович Эндрю, ща поправлю по человечески Добавлено через 16 часов 13 минут Ципихович Эндрю, есть ответ модема о модели толеофона т.п . , как... правильно подать АТ команду на отправку смс.... о структуре уже разолобрался... 0