Програмно заставить 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, жду ответо получилось ли....хех...

Новые блоги и статьи Все статьи Все блоги /
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. Показов 27301. Ответов 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