Отправка SMS на мобильный телефон через USB-Modem

@Khaker_tt · Регистрация: 24.11.2015

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

Где ошибка в этом коде ?

Совсем не работает?????

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
   Public Function SendSMS() As Boolean
        If SMSPort.IsOpen = True Then
            'sending AT commands
            SMSPort.WriteLine("AT")
            SMSPort.WriteLine("AT+CMGF=1" & vbCrLf) 'set command message format to text mode(1)
            SMSPort.WriteLine("AT+CSCA=""+919822078000""" & vbCrLf) 'set service center address (which varies for service providers (idea, airtel))
            SMSPort.WriteLine("AT+CMGS=  + TextBox1.text + " & vbCrLf) ' enter the mobile number whom you want to send the SMS
            _ContSMS = False
            SMSPort.WriteLine("+ TextBox1.text +" & vbCrLf & Chr(26)) 'SMS sending
            MessageBox.Show(":send")
            SMSPort.Close()
        End If
    End Function

@MORGAN_2016 · 09.01.2016, 10:04

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

Этот Dll которые вы сказали я на свой проект в папку Bin добавил ещё не работает?

Не надо добавить в папку Bin а его надо импортировать (Добавит в ссылку вашего проекта)
Меню Проект>Добавить ссылку и щелкните вкладку COM>Обзор а потом укажите путь.

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

Два раза отправит по половину не удобно же

Сразу я вам говорил что отправит до 70 символов в кириллицы

@Yury Komar · 09.01.2016, 11:44

Khaker_tt, разбирайте тот код, который вы перевели из C#...

Добавлено через 2 минуты
В нем есть выход из процедуры, а сама процедура не объявлена. Вы выложили нам тут неполный код...

@Khaker_tt · 09.01.2016, 13:07 **[ТС]**

Yury Komar, Вот тот код который я переводил из С#
Yury Komar, Честно я сам не смог разбираться как не будь немножко времени выделите на мой вопрос пожалуйста.....

@Khaker_tt · 09.01.2016, 13:16 **[ТС]**

Yury Komar, Это тоже отправить всего один смс я в C# запустил и пробовал. длинные смс не получается

@Yury Komar · 09.01.2016, 14:39

Khaker_tt, ну видимо и библиотека и тот код используют один и тот же подход к отправке.
А принцыпиально отправлять такие длинные сообщения? Может быть транслитерацию применить и отправлять текст английскими буквами? Так и дешевле будет в два раза, так как англ текст вроде 160 символов в одно смс вмещает.

@MORGAN_2016 · 09.01.2016, 15:08

Khaker_tt, Есть исходник на С# отправляет <160 символов на кириллицы если надо переводите на VB.NET.

@Khaker_tt · 10.01.2016, 12:08 **[ТС]**

Yury Komar, По моему это задача остается загадка...
Вы говорите про транслитерацию но программа потеряет своё значение.

Добавлено через 3 минуты

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

Есть исходник на С# отправляет <160 символов на кириллицы

Спасибо...Но это тоже отправляет 70 символов если много то нечего не отправляется....Как можно склеит эти сообщение и отправить на один смс.

@Yury Komar · 10.01.2016, 13:19

Khaker_tt,

но программа потеряет своё значение.

Как она может потерять свое назначение? Надписи: Алгебра и Algebra несут разную информацию для родителей школьников?

@Khaker_tt · 10.01.2016, 13:28 **[ТС]**

Yury Komar, Вы прав но условия дипломная работа такая(пункт 1.6 Отправка в кириллицы и транслит + через SMTP шлюз) Нашёл исходник на VB.6 (взято с форума, потому нет оригинальной ссылки) его переводит на vb.net не получается

@Yury Komar · 10.01.2016, 13:39

переводит на vb.net не получается

А вы пробовали? У вас же готовое ПО уже есть и вроде как рабочее... Переводите все в ручную...

@Khaker_tt · 10.01.2016, 13:59 **[ТС]**

Yury Komar,

Сообщение от Yury Komar

А вы пробовали?

Да пробовал и сейчас тоже занимаюсь над этим. Рабочий конвертер по моему нету не где! Они переводят с ошибками? Как вы говорили надо ручную переводит. Но для этого надо хорошенько знать VB.6 я там только математические задачки могу решать, а работа с объектами мне очень трудно....

@Khaker_tt · 13.01.2016, 07:59 **[ТС]**

Люди помогите пожалуйста совсем не получается отправит длинные сообщение..

Добавлено через 17 часов 52 минуты
Неужели в форуме нету людей которые не сталкивались с такими проблемами..
Как не будь помогите очень ВАС прошу.
Заранее Спасибо.

@Yury Komar · 13.01.2016, 09:58

Khaker_tt, дело в том, что многие не имеют USB модемов с сим-картами и бесплатными СМС пакетами для тестирования работоспособности кода, включая и меня, поэтому точно ответить вам в таком случае не смогут, а растягивать портянку типа "Попробуй так сделать..." тоже не вариант, по-моему. Вам выложили проверенные решения, пробуйте доработать их в свою пользу. Или воспользуйтесь моим советом для транслитерации кириллицы и отправки сообщения английскими буквами, или же формировать СМС-сообщение в рамки лимита в 70 символов, что в принципе вполне возможно, принимая во внимание то, что в СМС сообщении будет лишь список предметов и полученные учеником оценки по этим предметам.

@Khaker_tt · 13.01.2016, 10:15 **[ТС]**

Yury Komar, Кроме оцени отправляются текст которые длина смс могут быт до 3 смс -а вот в чём проблема. Как объединить двух смс? Пусть N-й смс отправить но в один раз. Как избавится о лимит?

@Yury Komar · 13.01.2016, 11:57

Вообщем капельку погуглив я узнал, что невозможно отправить одно смс сообщение длиной более 70 символов кирилицы и 160 символов Латиницы, поэтому вам всетаки придется разбивать сообщение на части по 70 символов и отправлять их поочереди, но у получателя они должны склеиваться в одно сообщение.

В кодировке UCS2 (по сути тот же Unicode) каждый символ кодируется двумя байтами, поэтому становится возможна отправка сообщений на языках отличных от английского, но длина сообщения сокращается до 70 символов (140/2=70).

информация по этой ссылке

Добавлено через 1 минуту
а еще вот тут почитайте

Добавлено через 1 час 3 минуты
Углубившись в чтение этих статей понял, что в режиме PDU можно отправить длинное сообщение, предварительно разбив его на части по 70 символов, затем передав модему спец AT- команду и затем отправить части сообшения по очереди. В итоге СМС-Центр склеит сообщение в одно длинно при доставке абоненту...
Так что, читайте, разбирайтесь в этом направлении, а не ждите, пока за вас выполнят вашу дипломную работу.

@Khaker_tt · 15.01.2016, 18:40 **[ТС]**

Yury Komar, Снова это я! Спасибо Вам за ссылку это мне очень помог! У меня вопрос по поводу класса нашёл исходник программу который отправляет длинный смс но там всё связанно с классам по этому не смог редактировать посмотрите пожалуйста

@Khaker_tt · 15.01.2016, 19:30 **[ТС]**

Кто нибудь помогите мне уже месяц мучаюсь не будьте добры.

Добавлено через 8 минут

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

не

заменяем на " "

@Yury Komar · 16.01.2016, 12:40

Khaker_tt, я открыл проект и он не работает, я так понимаю, он переведен конвертером с другого языка на VB.NET.?
Что именно вы хотели чтобы я в нем посмотрел? Что вам именно нужно из этого проекта? Переделать его под ваши нужды? Это займет очень много времени, при том, что я его даже протестировать не могу, НЕТ У МЕНЯ МОДЕМА.

@edward_freedom · 16.01.2016, 13:04

Khaker_tt, Можно на крайняк воспользоваться сервисами. Ссылки кидать не буду, но беглым взглядом поискав и инете, есть куча сервисов по отправке смс, и у них сразу есть нужные тебе функции

1 сообщение = 153-160 латинских символов или 67-70 русских. Это международный стандарт.
√ Длинные смс сообщения склеиваются в одно.

Не думаю, чтобы тебе диплом защитить, нужно много смс, купить 10-20 смс за 5 рублей, чисто показать, что программа работает и все

@Yury Komar · 16.01.2016, 13:13

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

Можно на крайняк воспользоваться сервисами

он дипломку пишет, видимо сервисы не подойдут.

Добавлено через 3 минуты
Khaker_tt, порылся в интернете и нашел страничку автора того чуда, которое ты мне дал на разбор... Программа изначально написана на C#, исходника нету, но есть описание... Думаю будет полезно так же и для дипломной работы, как описание работы программы... если конечно по такому же принципу будете писать:

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

Учитесь, разбирайтесь...

PS: За вас этого НИКТО делать не будет...

Новые блоги и статьи Все статьи Все блоги /
Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .
Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .

@Yury Komar Модератор 4378 / 3448 / 512 Регистрация: 27.01.2014 Сообщений: 6,268
	09.01.2016, 11:44
	Khaker_tt, разбирайте тот код, который вы перевели из C#... Добавлено через 2 минуты В нем есть выход из процедуры, а сама процедура не объявлена. Вы выложили нам тут неполный код... 1

@Khaker_tt 34 / 34 / 6 Регистрация: 24.11.2015 Сообщений: 330
	09.01.2016, 13:16 [ТС]
	Yury Komar, Это тоже отправить всего один смс я в C# запустил и пробовал. длинные смс не получается 0

@Yury Komar Модератор 4378 / 3448 / 512 Регистрация: 27.01.2014 Сообщений: 6,268
	09.01.2016, 14:39
	Khaker_tt, ну видимо и библиотека и тот код используют один и тот же подход к отправке. А принцыпиально отправлять такие длинные сообщения? Может быть транслитерацию применить и отправлять текст английскими буквами? Так и дешевле будет в два раза, так как англ текст вроде 160 символов в одно смс вмещает. 2

@Khaker_tt 34 / 34 / 6 Регистрация: 24.11.2015 Сообщений: 330
	13.01.2016, 07:59 [ТС]
	Люди помогите пожалуйста совсем не получается отправит длинные сообщение.. Добавлено через 17 часов 52 минуты Неужели в форуме нету людей которые не сталкивались с такими проблемами.. Как не будь помогите очень ВАС прошу. Заранее Спасибо. 0

@Yury Komar Модератор 4378 / 3448 / 512 Регистрация: 27.01.2014 Сообщений: 6,268
	13.01.2016, 09:58
	Khaker_tt, дело в том, что многие не имеют USB модемов с сим-картами и бесплатными СМС пакетами для тестирования работоспособности кода, включая и меня, поэтому точно ответить вам в таком случае не смогут, а растягивать портянку типа "Попробуй так сделать..." тоже не вариант, по-моему. Вам выложили проверенные решения, пробуйте доработать их в свою пользу. Или воспользуйтесь моим советом для транслитерации кириллицы и отправки сообщения английскими буквами, или же формировать СМС-сообщение в рамки лимита в 70 символов, что в принципе вполне возможно, принимая во внимание то, что в СМС сообщении будет лишь список предметов и полученные учеником оценки по этим предметам. 2

@Khaker_tt 34 / 34 / 6 Регистрация: 24.11.2015 Сообщений: 330
	13.01.2016, 10:15 [ТС]
	Yury Komar, Кроме оцени отправляются текст которые длина смс могут быт до 3 смс -а вот в чём проблема. Как объединить двух смс? Пусть N-й смс отправить но в один раз. Как избавится о лимит? 0

@Yury Komar Модератор 4378 / 3448 / 512 Регистрация: 27.01.2014 Сообщений: 6,268
	16.01.2016, 12:40
	Khaker_tt, я открыл проект и он не работает, я так понимаю, он переведен конвертером с другого языка на VB.NET.? Что именно вы хотели чтобы я в нем посмотрел? Что вам именно нужно из этого проекта? Переделать его под ваши нужды? Это займет очень много времени, при том, что я его даже протестировать не могу, НЕТ У МЕНЯ МОДЕМА. 1