Как на VB замутить прогу типа "NetSpeakerphone".
Задача:
Есть видеодомофон, монитор c трубой как понимаете один у секретарши.
При ее отсутствии приходилось багать.
Когда это меня притамило, я налабал прогу, через TVtuner видео ганяю по сетке (используя Winsock Control), которое выскакивает на определенных мной терминалах, а обратно послаю команду на СОМ порт секретутской машины на открытие эл.замка.
Теперь поперло дальше, хочется поговорить с незнакомым проходимцем,
но незнаю как это изваять.

ПАМАГИТЕ БЛииииииииииииииииииииииииН!!!!!!!
[email=]alx91@mail.ru

Как сохранить запись в файл и обратно?

(Module1.bas)
Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

(Form1.frm)
'общие
Dim Result&
Dim ReturnString As String * 1

Private Sub Command1_Click() 'кнопка REC
Result& = mciSendString("close mysound", ReturnString, 1, 0)
Result& = mciSendString("open new type waveaudio alias mysound", ReturnString, 1, 0)
Result& = mciSendString("set mysound time format ms bitspersample 8 samplespersec 11025", ReturnString, 1, 0)
Result& = mciSendString("record mysound to 10000", ReturnString, 1, 0)
End Sub

Private Sub Command2_Click() 'кнопка PLAY
Result& = mciSendString("play mysound from 1 wait", ReturnString, 1, 0)
End Sub

Как сохранить запись в файл и обратно?

(Module1.bas)
Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

(Form1.frm)
'общие
Dim Result&
Dim ReturnString As String * 1

Private Sub Command1_Click() 'кнопка REC
Result& = mciSendString("close mysound", ReturnString, 1, 0)
Result& = mciSendString("open new type waveaudio alias mysound", ReturnString, 1, 0)
Result& = mciSendString("set mysound time format ms bitspersample 8 samplespersec 11025", ReturnString, 1, 0)
Result& = mciSendString("record mysound to 10000", ReturnString, 1, 0)
End Sub

Private Sub Command2_Click() 'кнопка PLAY
Result& = mciSendString("play mysound from 1 wait", ReturnString, 1, 0)
End Sub