Всем доброго времени суток.
У меня следующая ситуация: имеется голосовой модем ZyXel и необходимо оповещать абонентов о какой-либо информации.
Я так полагаю нужно записать то что нужно в формате WAV. Это я сделал.
Написал часть проги для вызова абонента, звонок у меня проходит.
теперь не знаю как в проге написать, что как абонент поднимет трубку ему проиграется мелодия WAV. А когда проиграет сформирует сигнал занято.
Может кто занимался покажет исходник, желательно с пояснениями... Может еще какое-н. НОУ ХАУ подскажите
Заранее благодарен...
Вот часть моей проги:

Sub send_call()
Dim comm As New MSComm ' в референсах подключить mscomm32.ocx
If comm.PortOpen = False Then
comm.CommPort = 1 ' номер порта к которому подключен модем
comm.Settings = "9600,N,8,1"
comm.Handshaking = comNone
comm.InputLen = 0
comm.InBufferSize = 40
comm.OutBufferSize = 40
comm.RThreshold = 0
comm.PortOpen = True
End If
comm.Output = "ATD552208" & vbCrLf



End Sub

Дмитрий77Техник55,

Техник55имеется голосовой модем ZyXel
Я так полагаю нужно записать то что нужно в формате WAV.
Ну, полагаешь правильно.
Техник55теперь не знаю как в проге написать, что как абонент поднимет трубку ему проиграется мелодия WAV. А когда проиграет сформирует сигнал занято.
Может кто занимался покажет исходник,
1. Мысль # раз.
VentaFax уже давно написали.
Даже не запуская оболочки то что тебе надо делается из командной строки:


В папке обычно
C:\Program Files\Venta\VentaFax & Voice 5\Service
ждешь появления файла журнала, называется logbook.vlg
Как он появился, значит задание выполнено, можешь его
прочитать (байтовую структуру одной записи изучить несложно), сохранить инфо в своем логе, а можешь вообще не читать
удалить
перейти к следующему "заданию".
Цикл написать сможешь, в принципе это можно и без vb двумя bat-файлами сделать (но с vb проще).

2. Мысль # два (если мысль # раз не навела на мысль бросить нудное занятие и воспользоваться готовым решением).
>не знаю как в проге написать
Тебе нужно понимать какие at-команды посылать, понимать/принимать и т.д.
В VentaFax есть такая штука как лог, который все эти команды тебе конкретно с твоим модемом отобразит при выполнении желаемых действий. Делаешь по образу и подобию.
3. Мысль # три.
Судя по многообещающему началу кода, принимать отклики от модема в буфер и оттуда их читать пока не умеешь.
Ищешь где-то недавно тему про СМС-ы с мобильником, там я выложил аж целый project и думаю ссылка еще работает.
Тебе от туда нужно понять как считывать из буфера те ответы, которые модем дает на твои at-команды.

Но скажу так, еще надо изучать как посылать/принимать voice data пакеты и т.п., лог венты тебе в этом не поможет, надо читать теории.
Пример подобных простынь (недавно закончил писанину, правда речь идет о CAPI 2.0 и мне надо делать на C++ для интеграции в телефонную систему) можешь глянуть здесь:
Как заполнить структуру по одному байту?
И ответь себе на вопрос. Оно тебе надо?

Спасибо, что откликнулись.
Жаль что еще никто это в VB не писал...
По поводу: 1) мысли раз честно ничего не понял.
2) Мысли два: она мне ближе, прогу скачал VentaFax, надеюсь с ней не трудно работать. Буду логи смотреть...
3) мысли три: да тот кусок у меня еще остался с проги кот. я для смс писал для GSM модема (у меня ZTE билайн), она в принципе работает, только бывает смс то уйдет, то нет, хотя должна при аварии. Может что-то с буферами или чем напартачил. ну да ладно, щас все мысли направлены на голосовой модем.
Правда дома его нет, только на работе и VentaFax опробывать не могу, конечно можно и для ZTE MF180 попробывать ту же идею, потом провести аналогию. Но чтобы сделать его голосовым надо опять же прошить, что-то не хочется разбираться!!!

Дмитрий77, запустил на работе VentaFax. Все работет, голосовое сообщение передает.
Что то не могу логи найти, чтобы посмотреть АТ команды. Не подскажешь???
Вроде захожу в С/Program files/Venta и т д. Там куча файликов но логов вроде нет. Я так понимаю они должны быть в блокноте ну или в другом текством редакторе????

Все логи нашел. не там искал. Буду разбираться. а АТ команды там в явном виде. или как зашифрованы???

Дмитрий77, лог Comand. пишет мне следующее в файле:
08.06.2012 11:36:34 2200 Received message Wm_user+10. LParam=1, WParam=8
и так после каждого звонка и посылки абоненту мелодии...
Мало что из этого понятно???
Если я вас правильно понял, то чтобы написать прогу в VB6, нужно узнать не только АТ команды, а также заполнения байтов для отправки голоса???
Да... с заполнениями байтов я еще не занимался, я думал примерно также как при отправки смс, знать команды и все...

Вы имеете ввиду, что он-лайн команды на самом изображении телефона(макете), в маленьком окошечке синем (или отдельно что-то запускать надо). Если они то, я в принципе видел их, но там была одна или пару АТ команд и они быстро исчезали, что особо не посмотрешь и назад не отматаешь.

AndreTM, вы сказали включить логирование АТ команд? а где эту галочку поставить?

Дмитрий77, прийду на работу обязательно попробую...

Дмитрий77, спасибо за подсказку. Теперь в VentaEngie вижу он-лайн все АТ команды.
Помимо АТ команд кот мы посылаем, к примеру: > ATQ0V1E0&D2X4S0=0
и принимаем: < ОК
Там еще идут какие-то команды типа: # Modem Voice Format: ZYXEL ADPCM 3bit
или: # "C\........\admin\рабочий стол\Оповещение.wav" is transmiting
С АТ командами все понятно посылаем и принимает ответы от модема, а после решетки что идет совсем не понятно.
Я так полагаю, что это какие-то манипуляции внутренние VentaFax и ОС, но никак не обращение к модему!!!???? может ошибаюсь...
Я решил переписать все АТ команды с VentaEngie и попробывать их отсылать в Гипертерминале.
Отсылал, отсылал пока не дошел до команды АТ+VRX, после нее у меня экран сменился на черно-белый и по нему побежали КРАКОЗЯБРЫ какие-то и в конце их ответ на экране: VCON.
Что это значит не знаю, звонок конечно до абонента дошел, но в трубке тишина..........

Дмитрий77, да что-то тяжко, надо использовать мысль раз:
как я понял, пишу код для условия, как только оно сработало вызываю строку
C:\Progra~1\Venta\VentaF~1\vfdrv32.exe /h /t:2208 C:\111\mat.wav
Далее с помощью DoEvent отслеживаю когда закончится проигрываться мелодия по номеру 2208
и снова вызываю эту строку по другому уже номеру C:\Progra~1\Venta\VentaF~1\vfdrv32.exe /h /t: 2210 C:\111\mat.wav и т д
Я правильно понял? Подскажите сразу чтобы не рыться какой командой вызвать строку можно?

И еще вопрос я скачал VentaFax незарегистрированную версию. через месяц срок истечет. Т.е. начальству прийдется раскашелится, или ключи можно и так найти???? Модератор: грозит пальцем - обсуждение этого запрещено правилами форума

я попробовал через Shell
Sub send_call
call Shell ("C:\Progra~1\Venta\VentaF~1\vfdrv32.exe /h /t: 2208 C:\adam.wav")
End Sub
В чем-то загвозка? вроде обращение к Venta идет, видно что мелодия проигрывается (я имею ввиду отчет времени мелодии), написано что передача голосового сообщения.
Модем даже щелкает, загорается TX. Но набора на 2208 нет???!!!!
В ручном режиме все нормально Venta отправляет и набирает 2208. и в журнале все появляется lookbook.
Может командная строка не до конца правильная????

Дмитрий77, ну спасибо пошло.
А чтобы отследить законченное событие нужно снова обращаться к logbook.vlg. и как только там появилась запись, то начинать новое...
т.е. уже обращение к строчке в logbook.vlg???

Дмитрий77Техник55,

Читаешь невнимательно что тебе пишут.
logbook.vlg -это файл журнала VentaFax.
Если его удалить, то он появится только тогда, когда очередное задание буде выполнено.
Появление этого файла (известно где он лежит и как называется) можно отследить программно.
.
А он точно появится??? А если его не удалять, то там просто будет много строк???
Где можно будет изучить байтовую структуру?
И какие команды отслеживают появление файла, зная точное его местоположение???

Дмитрий77, еще раз здравствуйте.
Как использовать появление файла по указанному пути с помощью функции Dir???
По вашему наставлению проанализировал байты через hex редактор и понял, что мне нужно оценить всего один байт (а именно 1334). Если 1134=0F, тогда "Абонент не отвечает", если 1334=10 - "Абонент занят", если 1334=00 - "Абонент взял трубку".
В принципе мне больше ничего и не надо!!! Можно ли как то обратиться к конкретному байту файла Lookbook.vlg и узнать, какое о принимает значение??? Если да то как?

Дмитрий77, глянь, наверно ошибок куча... Заранее благодарен
Задача такая в зависимости от байта 1335, либо еще раз вызываем абонента, либо другого оповещаем...

[SRC vba]Function ФайлСуществует(logbook As String) As Boolean ' этой функцией отслеживаю
On Error Resume Next
nf = FreeFile
Open logbook.vlg For Input As #nf
If Err Then
ФайлСуществует = False
Else
ФайлСуществует = True
End If
Close #nf
End Function

Sub Send_message()
call Shell("здесь адрес запускаемой программы") ' вызываю нужную мне програмку
End Sub

Sub Send_message1()
Function LogVenta5("С:\.....\service\ logbook.vlg" As String) As LogType5
Dim mas(2000) As String
Dim ChMas(2000) As Integer
Dim LogV As LogType5

Call ФайлСуществует ' Запускаю на оббнаружение файла
If ФайлСуществует=True Then 'Если файл появился тогда
Open "С:\.....\service\ logbook.vlg" For Binary As #1 ' Open file.
i = 1
Do While Not EOF(1) ' Loop until end of file.
mychar = Input(1, #1) ' Get one character.
If EOF(1) Then
Exit Do
End If
mas(i) = mychar
ChMas(i) = Asc(mychar)
i = i + 1
Loop
Close #1 ' Close file.
If ChMas(1334)=0F Then
call Shell ("C:\...\") 'вызов другого абонента
End if
Kill "C:\......\Service\ logbook.vlg" ' Убиваем файл
End Function
End Sub

пардон забыл отделить текст от кода, исправляюсь...
Дмитрий77, глянь, наверно ошибок куча... Заранее благодарен
Задача такая в зависимости от байта 1335, либо еще раз вызываем абонента, либо другого оповещаем...