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

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

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

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

@Ципихович Эндрю · 18.11.2011, 16:38

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

1.получить ответ о заряде батереи;
2.модель тел.;
3.счет на балансе;
4.уровень сигнала;

4 пункта, ОК, в файле заполнены столбцы А-G
модель видел, а где всё остальное??

@IvanOK · 18.11.2011, 17:40 **[ТС]**

краткие ат идут,но смс нет...

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

может эта прога http://www.softsoft.ru/communi... /33679.htm
подойдёт, там есть русский язык, сделано как обычно на отстань
если у меня 1 сом порт чего там выбирать, и он говорит убедитесь, что телефон подключен, это она, прога должна убедиться и сообщить, мол, увы не подключен телефон, отдыхайте

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

и так о наболевшей теме добился ответов с модема, отправляю команду на отправку смс и тут тя на erorr 304, прогуглил ету тему многого нету но приплезительно как я понял неверний PDU формат.... но я же взял его с неотпраленой смски(КОТОРАЯ СФОРМИРОВАНА ТЕЛЕФОНОМ.) в чем проблема кто встречался с етой проблемой......

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

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

добился ответов с модема,

как? код есть?

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

да сделал попростому взял сформировал в телефоне но не отправил потом с помощю ат команд открил и извлек код смс.... да и еще появилась одна проблема ....уже с самого телефона тоже не отправляет смс.....(просто ошибку бет при отправке), я его заново прошил но ето ничего не дало.....у меня догадка что я с помощю ат команд поменял каки ето настройки ...какие точно не знаю

Добавлено через 14 часов 37 минут
вот сам код

Visual Basic
1
2
3
4
5
6
 Comm1.Output = "AT+CMGS=18" & vbCr
  Comm1.Output = "07918350000005F111D20A81908783633500000B05C8329BFD06" & vbCr
  Comm1.Output = "CTRL-Z" & vbCr
'  и  подруго тоже 
  Comm1.Output = "AT+CMGS=18" & vbCr
  Comm1.Output = "07918350000005F111D20A81908783633500000B05C8329BFD06CTRL-Z" & vbCr

ответ один и тот же
AT+CMGS=18

> 07918350000005F111D20A81908783633500000B 05C8329BFD06

+CMS ERROR: 304

CTRL-Z

ошибка +CMS ERROR: 304 неверний PDU
но етот текст смс из сформированой смс из телефона
и как ее лечит телефон ее отправил и все дошло

Добавлено через 7 часов 1 минуту
еще догадки что ctrl-z нужно подать в pdu кодеровке может кто подскажет

@IvanOK · 05.12.2011, 20:06 **[ТС]**

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

@Aeliot · 08.05.2012, 23:18

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

так как я победил ошибку 429

Как победил?

OCX взял здесь
В том же примере застрял на строчке...

Visual Basic
1
KeUSB.CommPort = Val(TextBox1.Value)

Модем подключен. Номер порта посмотрел в диспетчере устройств.

@Aeliot · 08.05.2012, 23:46

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

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

У меня ругается на лицензию. Что делать?

@Aeliot · 09.05.2012, 01:04

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

да сделал попростому взял сформировал в телефоне но не отправил потом с помощю ат команд открил и извлек код смс.... да и еще появилась одна проблема ....уже с самого телефона тоже не отправляет смс.....(просто ошибку бет при отправке), я его заново прошил но ето ничего не дало.....у меня догадка что я с помощю ат команд поменял каки ето настройки ...какие точно не знаю

По-моему модем прав в своём праведном гневе
Здесь

Visual Basic
1
Comm1.Output = "07918350000005F111D20A81908783633500000B05C8329BFD06CTRL-Z" & vbCr

думаю нужно написать таким образом

Visual Basic
1
Comm1.Output = "07918350000005F111D20A81908783633500000B05C8329BFD06" & chr(26)

По крайней мере, в исходнике на C#, который мне попался, было в этом месте следующее

C#
1
Messages[i] = header + Messages[i] + (char)26;

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

@IvanOK · 10.05.2012, 19:29 **[ТС]**

Aeliot, так че то не понятно, а на чем ты застрял .....

@Aeliot · 10.05.2012, 23:04

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

Aeliot, так че то не понятно, а на чем ты застрял .....

Эту и эту беду уже решил. Правда не знаю как. Похоже старые .OCX любят старые методы -- перезагрузку.

Сейчас уже застрял на перекодировке сообщения.
Каркас у меня есть.

Не по теме:

Пошёл по пути наименьшего сопротивления -- купил исходник одной программы. Благо за недорого - на российские около 100 руб. Вот только беда - она на C# писана, с использованием .Net классов, которые с VBA не дружат. По крайней мере напрямую в референсы не повесишь. Да и о C# до этого момента ничего кроме названия не знал. А в остальном нет проблем исходники даволи аккуратно сделаны.

Есть

функция на C#

C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
public string StringToUSC2(string str)
        {
            UnicodeEncoding ue = new UnicodeEncoding();
 
            byte[] ucs2 = ue.GetBytes(str);
 
            int i = 0;
            while (i < ucs2.Length)
            {
                byte aaa = ucs2[i + 1];
 
                ucs2[i + 1] = ucs2[i];
 
                ucs2[i] = aaa;
 
                i += 2;
            }
 
            return BitConverter.ToString(ucs2).Replace("-", "");
        }

Как её на VBA перепилить? Класс UnicodeEncoding я получил, только на функцию .GetBytes ругается. Вот пока

результат экспериментов.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Public Function StringToUSC2(str As String) As String
    Dim ucs2() As Byte
    Dim i As Integer
    Dim aaa As Byte
    
    Dim objUnicodeEncoding As Object
    
    Set objUnicodeEncoding = CreateObject("System.Text.UnicodeEncoding")
    ucs2() = objUnicodeEncoding.GetBytes(str)
    
    i = 1
    Do While (i < UBound(ucs2))
        aaa = ucs2(i + 1)
        ucs2(i + 1) = ucs2(i)
        ucs2(i) = aaa
        i = i + 2
    Loop
    'Debug.Print Join(ucs2, "")
    
    StringToUSC2 = Replace(CStr(Join(ucs2)), "-", "")
End Function

@Watcher_1 · 11.05.2012, 08:19

Мое предложение использовать вместо телефона Web sms цент
Сам недавно настраивал рассылку sms из Excel через один такой сервис

@Aeliot · 11.05.2012, 12:29

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

Мое предложение использовать вместо телефона Web sms цент

Я так и делал до недавних пор.
Формируешь XML запрос кодом в пару строк и постишь его на сервак. Весь процесс занимает считанные секунды. И это при рассылке в 1000-1500 sms. Чуть позже таким же постеньким кодом опрашиваешь сервак и разносишь отчёты по таблицам. Действительно так очень удобно.

Но в результате последнего белоруского дефолта тариться смс-ками в россии стало очень дорого (до этого было дешевле в несколько раз + развёрнутые отчёты по каждой sms, которых местные не предоставляли). Я уже не говорю о том, что требовалось величайшее позволение на отправку валюты за границу ... и прочие заморочки. В итоге дешевле и проще оказалось тариться у местного оператора и гонять sms-ки по 3G-ку.

По сему постановили, даже когда наладим работу с Web sms центром по новой, всё равно в резерве будет настроена отправка через мопед.
Для этих целей пользовался разными програмками и бесплатными и условно бесплатными, но всё равно приходится пилить под себя.

@IvanOK · 11.05.2012, 13:35 **[ТС]**

Aeliot,
Незнаю как у вас но у меня получилось отправить смс просто с екселя без участия ВЕБ, для того чтоб разобратся в кодеровке у меня ушло около двох недель там тебе нужно пошагово разобраться в ПДУ кодировке смс.... потом с моделью модема и ат командами к нему если еще на чем то застрянеш спрашивай...

Добавлено через 1 минуту
и что самое гланое по тарифам оператора а их можно найти самие дешовые......ето по 0,01$

@Aeliot · 11.05.2012, 23:18

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

Незнаю как у вас но у меня получилось отправить смс просто с екселя без участия ВЕБ

Над этим сейчас и работаю.
Модем определять и опрашивать уже научился.
т.е. теоретически к отправке смс готов. Только сформировать его не получается.

Вот если б помог мне в части формирования SMS-сообщений в формате PDU, я был-бы безмерно счастлив.

Кстати. В атачь цепляю интересный материал по теме. Может ещё кому пригодится.

@Aeliot · 12.05.2012, 21:11

Еще материал из найденного. Изучаю.
Отправка SMS-сообщений в формате PDU, теория с примерами на C#, часть 1
Отправка SMS-сообщений в формате PDU, теория с примерами на C#, часть 2
Отправка длинных SMS-сообщений в формате PDU

Суть понятна. Только на VBA написать не получается.

Добавлено через 11 часов 17 минут
IvanOK,
Как ты победил 8-битную упаковку?

Добавлено через 7 часов 53 минуты
Кодировку вроде победил.
Но всё равно что-то не то. Застрял на отправке.

Команда --> Ответ
AT+CMGF=0 --> OK
AT+CMGS=31 --> >
Сообщение & chr(26) --> OK

На последнее вроде должен ответить +CMGS: <номер>
В чём дело не пойму.
Может дело всё таки в кодировке?

Добавлено через 24 минуты
IvanOK ,
Можешь проверить на своём алгоритме?

Вот два варианта PDU-сообщения, сформированных для номера +375296888651 (взят случайным образом для примера)
1) Привет!!! --> 0001000C91732569886815000812041F04400438 043204350442002100210021
2) Hello!!! --> 0001000C91732569886815000008C8329BFDE854 2

У вас получилось то же самое?

Добавлено через 13 минут
Всё ещё нужна помощь.
А пока вот нарыл пососедству: https://www.cyberforum.ru/csha... ost1567219

Добавлено через 1 час 6 минут
Попробовал проверить кодировку здесь.
Online SMS PDU Decoder/Converter
Русская перевелась правильно.
С английской что-то нахимичил (перевод: HellåæΩ£)

Разбираюсь с полями...

@IvanOK · 14.05.2012, 11:32 **[ТС]**

Aeliot,

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

Как ты победил 8-битную упаковку?

ето само трудно что есть в смс....

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
Function SmsHex8BitCode(SmsText As String)
' ця частина функції переводить текст смс в 7-бітну двоичну кодировку
 
Dim SmsDec8Bit, r, SmsBin8Bit As String
 
  SmsLen = Len(SmsText)
      For i = 1 To SmsLen
       simvol = Mid(SmsText, i, 1)
       For i1 = 3 To 18
          For i2 = 4 To 11
           koma = ""
           Gsm = Worksheets("Param").Cells(i2, i1)
             If Gsm = simvol Then
              kod = Worksheets("Param").Cells(i2, 2) & Worksheets("Param").Cells(3, i1)
               If SmsHex7Bit <> "" Then koma = ","
                  SmsHex7Bit = SmsHex7Bit & koma & kod
                   For i3 = 3 To 258
                       koma1 = ""
                       ListBin = ""
                      ListHex = Worksheets("Param").Cells(i3, 21)
                      If kod = ListHex Then
                         ListBin = Worksheets("Param").Cells(i3, 22)
                         If SmsBin7Bit <> "" Then koma1 = ""
                         SmsBin7Bit = SmsBin7Bit & koma1 & ListBin
                         Exit For
                       End If
                   Next i3
                Exit For
                Exit For
               End If
          Next i2
       Next i1
       
    Next i
     
  'ця части функції переводить текст смс в 8-бітну двоичну кодировку, а потім в Hex _
  і вже підготовлює закодоване смс
'визначення двох сусідніх 7-ми бітних кодів та перевення його в 8-ми для смс
      k1 = 7
    LenBit = 7
    k = 1
    delBait = 1
    SmsText = SmsBin7Bit
    
Metka2:
     For i = delBait To Len(SmsText) Step LenBit
     
     'визначення останнього неповного байту, який потрібно доповнити нулями на початку
        If i + LenBit > Len(SmsText) Then
          LenOstBait = Len(SmsText) - i
          OstBait = Mid(SmsText, i + 1, LenOstBait)
          If Len(OstBait) = 1 Then SmsBin8Bit = "0000000" & OstBait
          If Len(OstBait) = 2 Then SmsBin8Bit = "000000" & OstBait
          If Len(OstBait) = 3 Then SmsBin8Bit = "00000" & OstBait
          If Len(OstBait) = 4 Then SmsBin8Bit = "0000" & OstBait
          If Len(OstBait) = 5 Then SmsBin8Bit = "000" & OstBait
          If Len(OstBait) = 6 Then SmsBin8Bit = "00" & OstBait
          If Len(OstBait) = 7 Then SmsBin8Bit = "0" & OstBait
          GoTo Metka1
        End If
        
        'визначення довжини і+1 байту
        If k > 7 Then
           k = 1
           k1 = 7
           delBait = i + LenBit
           GoTo Metka2
        End If
        
        'визначення і-го та і+1 7 байтів
        Bit1 = Mid(SmsText, i, LenBit)
        bit2 = Mid(SmsText, i + LenBit, LenBit)
        
        NewBit2 = Right(bit2, k)
        leftbit1 = Left(Bit1, k1)
        k1 = k1 - 1
        k = k + 1
        SmsBin8Bit = NewBit2 & leftbit1
 
Metka1:
        SmsDec8Bit = GetDec(SmsBin8Bit)
        
        ' пошук Hex по Dec коду, яки переведений із Bin
          For i1 = 3 To 258
           r = Worksheets("Param").Cells(i1, 23).Value
            If r = SmsDec8Bit Then
               SmsHex8Bit = Worksheets("Param").Cells(i1, 21)
               Exit For
            End If
          Next i1
        
        SmsHex8BitCode = SmsHex8BitCode & SmsHex8Bit
        
        SmsBin8Bit = ""
        Bit1 = ""
        bit2 = ""
        NewBit2 = ""
        leftbit1 = ""
     Next i
     
End Function

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

Команда --> Ответ
AT+CMGF=0 --> OK
AT+CMGS=31 --> >
Сообщение & chr(26) --> OK

Visual Basic
1
2
3
4
5
Comm1.Output = "AT+CMGS=" & l & vbCr
  Sleep (1)
  Comm1.Output = SMS & Chr(26) & vbCr
  Sleep (1)
  otvet4 = Comm1.Input

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

Привет!!! --> 0001000C91732569886815000812041F04400438 043204350442002100210021

07918350000005F101000C918350404365060000 03A15021

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

Hello!!! --> 0001000C91732569886815000008C8329BFDE854 2

07918350000005F101000C918350404365060000 08C8329BFD0E854221

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

сформированных для номера +375296888651

+30978383653

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

Кодировку вроде победил.
Но всё равно что-то не то. Застрял на отправке.

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
Sub Send_SMS()
 
Dim Text_SMS As String
 
Text_SMS = Worksheets("Send_SMS").Cells(2, 2)
 
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
 
                                   'SMS = SCA + TPDU ; SCA - номер СМС центра(якщо опускати СМС центр то SCA=00 ), TPDU - інформаційне поле
   SCA = "07918350000005F1"
                                 'TPDU=PDU_type+TP_MR+TP_DA+TP_PID+TP_DCS+TP_VP+TP_UDL+TP_UD
   PDU_type = "0100"             ' тип смс "01" исходящие смс,
   TP_MR = ""                    ' референс смс по умолчанию "00"
   TP_DA = "0C91835040436506"    '"0C91839087836335" ' номер телефона получателя
   TP_PID = "00"                 ' індетифікатор протокола
   TP_DCS = "00"                 ' схема кодіровки в,в якому форматі представлено,"00"- 7-ми бітна кодіровка(160 символів), _
                                 "08"-Unicode (70 символів), "10"- flesh смс, кодировка 7-ми бітна, "18"-flesh смс Unicode
   TP_VP = ""                    ' час життя смс
   TP_UD = SmsHex8BitCode(Text_SMS)     ' текст смс
   
   TP_UDL = Hex(Len(TP_UD) / 2)               ' довжина смс
   If Len(TP_UDL) = 1 Then TP_UDL = "0" & TP_UDL
  
  Comm1.Output = Chr(27)         ' очищаєм буфер
     
 l = Len(PDU_type & TP_MR & TP_DA & TP_PID & TP_DCS & TP_VP & TP_UDL & TP_UD) / 2
   
  'для AT+CMGL=Х прочитати смс,де х - статус смс _
   0 - Полученные непрочитанные сообщения; _
   1 - Полученные прочитанные сообщения; _
   2 - Сохраненные неотправленные сообщения; _
   3 - Сохраненные отправленные сообщения; _
   4 - Все сообщения.
  Comm1.Output = "AT+CMGF=0" & vbCr
  Sleep (1)
  SMS = SCA & PDU_type & TP_MR & TP_DA & TP_PID & TP_DCS & TP_VP & TP_UDL & TP_UD
  Comm1.Output = "AT+CMGS=" & l & vbCr
  Sleep (1)
  Comm1.Output = SMS & Chr(26) & vbCr
  Sleep (1)
  otvet4 = Comm1.Inpu
 
'закриваем порт
Sleep (2)
 If Comm1.PortOpen = True Then
    Comm1.PortOpen = False
 End If
 ActiveWorkbook.Activate
End Sub

@IvanOK · 14.05.2012, 11:35 **[ТС]**

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

Visual Basic
1
2
3
Worksheets("Param").Cells(i2, i1)
 If Gsm = simvol Then
 kod = Worksheets("Param")

таблица ("Param") прикрепляю...

@IvanOK · 14.05.2012, 11:36 **[ТС]**

Aeliot, жду ответо получилось ли....хех...

Новые блоги и статьи Все статьи Все блоги /
Мобильное приложение 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, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .	мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))

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

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

@IvanOK 693 / 99 / 10 Регистрация: 25.06.2011 Сообщений: 718
	18.11.2011, 17:40 [ТС]
	краткие ат идут,но смс нет... 0

@Ципихович Эндрю 1713 / 580 / 76 Регистрация: 10.04.2009 Сообщений: 9,337
	20.11.2011, 15:18
	может эта прога http://www.softsoft.ru/communi... /33679.htm подойдёт, там есть русский язык, сделано как обычно на отстань если у меня 1 сом порт чего там выбирать, и он говорит убедитесь, что телефон подключен, это она, прога должна убедиться и сообщить, мол, увы не подключен телефон, отдыхайте 1

@IvanOK 693 / 99 / 10 Регистрация: 25.06.2011 Сообщений: 718
	29.11.2011, 21:20 [ТС]
	и так о наболевшей теме добился ответов с модема, отправляю команду на отправку смс и тут тя на erorr 304, прогуглил ету тему многого нету но приплезительно как я понял неверний PDU формат.... но я же взял его с неотпраленой смски(КОТОРАЯ СФОРМИРОВАНА ТЕЛЕФОНОМ.) в чем проблема кто встречался с етой проблемой...... 0

@IvanOK 693 / 99 / 10 Регистрация: 25.06.2011 Сообщений: 718
	05.12.2011, 20:06 [ТС]
	урра получилось отправить первое смс, теперь большой путь перекодировке 0

@IvanOK 693 / 99 / 10 Регистрация: 25.06.2011 Сообщений: 718
	10.05.2012, 19:29 [ТС]
	Aeliot, так че то не понятно, а на чем ты застрял ..... 0

@Watcher_1 357 / 163 / 27 Регистрация: 21.06.2011 Сообщений: 350
	11.05.2012, 08:19
	Мое предложение использовать вместо телефона Web sms цент Сам недавно настраивал рассылку sms из Excel через один такой сервис 0

@IvanOK 693 / 99 / 10 Регистрация: 25.06.2011 Сообщений: 718
	11.05.2012, 13:35 [ТС]
	Aeliot, Незнаю как у вас но у меня получилось отправить смс просто с екселя без участия ВЕБ, для того чтоб разобратся в кодеровке у меня ушло около двох недель там тебе нужно пошагово разобраться в ПДУ кодировке смс.... потом с моделью модема и ат командами к нему если еще на чем то застрянеш спрашивай... Добавлено через 1 минуту и что самое гланое по тарифам оператора а их можно найти самие дешовые......ето по 0,01$ 0

@Aeliot 177 / 62 / 3 Регистрация: 17.11.2011 Сообщений: 318
	12.05.2012, 21:11
	Еще материал из найденного. Изучаю. Отправка SMS-сообщений в формате PDU, теория с примерами на C#, часть 1 Отправка SMS-сообщений в формате PDU, теория с примерами на C#, часть 2 Отправка длинных SMS-сообщений в формате PDU Суть понятна. Только на VBA написать не получается. Добавлено через 11 часов 17 минут IvanOK, Как ты победил 8-битную упаковку? Добавлено через 7 часов 53 минуты Кодировку вроде победил. Но всё равно что-то не то. Застрял на отправке. Команда --> Ответ AT+CMGF=0 --> OK AT+CMGS=31 --> > Сообщение & chr(26) --> OK На последнее вроде должен ответить +CMGS: <номер> В чём дело не пойму. Может дело всё таки в кодировке? Добавлено через 24 минуты IvanOK , Можешь проверить на своём алгоритме? Вот два варианта PDU-сообщения, сформированных для номера +375296888651 (взят случайным образом для примера) 1) Привет!!! --> 0001000C91732569886815000812041F04400438 043204350442002100210021 2) Hello!!! --> 0001000C91732569886815000008C8329BFDE854 2 У вас получилось то же самое? Добавлено через 13 минут Всё ещё нужна помощь. А пока вот нарыл пососедству: https://www.cyberforum.ru/csha... ost1567219 Добавлено через 1 час 6 минут Попробовал проверить кодировку здесь. Online SMS PDU Decoder/Converter Русская перевелась правильно. С английской что-то нахимичил (перевод: HellåæΩ£) Разбираюсь с полями... 0

@IvanOK 693 / 99 / 10 Регистрация: 25.06.2011 Сообщений: 718
	14.05.2012, 11:36 [ТС]
	Aeliot, жду ответо получилось ли....хех... 0