Как можно с помощью VB6 и модема позвонить кому нибудь?

@Т Г В · Регистрация: 29.10.2010

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

14.08.2011, 02:05

Бросить нв форму MSCOMM32.ocx
ну это пример для наглядности
точные настройки и управляющие команды надо в хелпе смотреть.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Form_Load()
With MSComm1
    .CommPort = 1 'номер порта Com1 com2-2 com3-3
    .Settings = '14400,N,8,1'
    .InputLen = 0 'читать буфер целиком
    .PortOpen = True
    .Output = 'ATDT' & номер телефона & vbCr
    '....
    .DTREnable = False
    .Output = '+++'
    .PortOpen = False
End With
End Sub

@Т Г В · 14.08.2011, 14:57 **[ТС]**

На строке .PortOpen=True он мне пишет что порт уже открыт и выдает ошибку.Когда я убираю эту строку то на следующей он пишет, что нельзя делать, пока порт не открыт. В хелп я заглянуть не могу, потому что его у меня нет.

@ORST · 14.08.2011, 15:53

А ты перед всей этой балдй поставь On Error Resume Next

14.08.2011, 18:48

to Т Г В
Отправил на мыло Хелр для ocx.

Новые блоги и статьи Все статьи Все блоги /
Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .
1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip

@Т Г В 0 / 0 / 0 Регистрация: 29.10.2010 Сообщений: 78

	Как можно с помощью VB6 и модема позвонить кому нибудь? 13.08.2011, 22:43. Показов 1750. Ответов 4 Метки нет (Все метки) Как можно с помощью VB6 и модема позвонить кому нибудь? 0

@Т Г В 0 / 0 / 0 Регистрация: 29.10.2010 Сообщений: 78
	14.08.2011, 14:57 [ТС]
	На строке .PortOpen=True он мне пишет что порт уже открыт и выдает ошибку.Когда я убираю эту строку то на следующей он пишет, что нельзя делать, пока порт не открыт. В хелп я заглянуть не могу, потому что его у меня нет. 0

@ORST 1 / 1 / 0 Регистрация: 01.05.2011 Сообщений: 203
	14.08.2011, 15:53
	А ты перед всей этой балдй поставь On Error Resume Next 0

Сумрак
	14.08.2011, 18:48
	to Т Г В Отправил на мыло Хелр для ocx.