vbterm.frm

某公司的电话录音程序

  f.Delete
  Textbox1.Text = ""
  fs.CreateTextFile App.Path & "record.his"
  
  'Open "check.his" For Output As #1    ' 打开输出文件。
  'Print #1, "2"
  'Close #1   ' 关闭文件。
End If
End Sub

'Private Sub Form_Resize()
'    重新调整 Term (显示) 控件大小
'Dim height1 As Integer
'   height1 = frmTerminal.ScaleHeight - sbrStatus1.Height
'   Textbox1.Move 10, 10, frmTerminal.ScaleWidth, 7695
'   height1 = 100
'End Sub

Private Sub mnuexit_Click()
  TV_Disable
  End
End Sub

Private Sub mnuFilePageSetup_Click()

    On Error Resume Next
    With OpenLog
        .DialogTitle = "页面设置"
        .CancelError = True
        .ShowPrinter
    End With
End Sub

Private Sub mnuFilePrint_Click()
    
    On Error Resume Next
    If frmTerminal Is Nothing Then Exit Sub
    
    RichTextBox1.Text = Textbox1.Text
    With OpenLog
        .DialogTitle = "Print"
        .CancelError = True
        .Flags = cdlPDReturnDC + cdlPDNoPageNums
        If RichTextBox1.SelLength = 0 Then
            .Flags = .Flags + cdlPDAllPages
        Else
            .Flags = .Flags + cdlPDSelection
        End If
        .ShowPrinter
        If Err <> MSComDlg.cdlCancel Then
            RichTextBox1.SelPrint .hDC
        End If
    End With
    
    
'    On Error Resume Next
'    If frmTerminal Is Nothing Then Exit Sub
''
'
'    With OpenLog
'        .DialogTitle = "Print"
'        .CancelError = True
'        .Flags = cdlPDReturnDC + cdlPDNoPageNums
'        If Textbox1.SelLength = 0 Then
'            .Flags = .Flags + cdlPDAllPages
'        Else
'            .Flags = .Flags + cdlPDSelection
'        End If
'        .ShowPrinter
'        If Err <> MSComDlg.cdlCancel Then
'            Textbox1.Print '("lpt1")
'            'SelPrint .hDC
'        End If
'    End With
End Sub

Private Sub mnuOpenLog_Click()
Dim MyChar
With OpenLog
    .DialogTitle = "Open"
    .CancelError = False
    'ToDo: set the flags and attributes of the common dialog control
    .Filter = "(*.rec)|*.rec"
    .ShowOpen
    If Len(.Filename) = 0 Then
       Exit Sub
    End If
    sFile = .Filename
End With
Textbox1.Text = ""
Open sFile For Input As #1   ' 打开输出文件。
 ' 打开文件。
Do While Not EOF(1)   ' 循环至文件尾。
   MyChar = Input(1, #1)   ' 读入一个字符。
   Textbox1.Text = Textbox1.Text + MyChar ' 显示到立即窗口。
Loop
Close #1   ' 关闭文件。
End Sub

Private Sub mnuOpenLoghis_Click()
Dim MyChar
Textbox1.Text = ""
sFile = App.Path + "record.his"
Open sFile For Input As #1   ' 打开输出文件。
 ' 打开文件。
Do While Not EOF(1)   ' 循环至文件尾。
   MyChar = Input(1, #1)   ' 读入一个字符。
   Textbox1.Text = Textbox1.Text + MyChar ' 显示到立即窗口。
Loop
Close #1   ' 关闭文件。
End Sub

Private Sub savefile_Click()
Dim sFile As String
    
'    With OpenLog
'        .DialogTitle = "另存为"
'        .CancelError = False
'        'ToDo: 设置 common dialog 控件的标志和属性
'        .Filter = "(*.rec)|*.rec"
'        .ShowSave
'        If Len(.Filename) = 0 Then
'            Exit Sub
'        End If
'        sFile = .Filename
'    End With
   sFile = App.Path & "\record\" + mGettime() + ".rec"
   Open sFile For Output As #1   ' 打开输出文件。
   Write #1, Textbox1.Text
   Close #1   ' 关闭文件。

Open App.Path & "record.his" For Append As #1    ' 打开输出文件。
Print #1, Textbox1.Text
Close #1   ' 关闭文件。
End Sub

Private Sub Timer2_Timer()

Dim DateAndTime As String
Dim TelephoneNumber As Long
Dim ThisChannel As Integer

DateAndTime = mGettime()
TelephoneNumber = 2157250

 
 '   If TV_OffHookDetect(Channel) <> 0 And ChannelFlag = 0 Then
 'If TV_OffHookDetect(Channel) = 0 And ChannelFlag = 0 Then
For ThisChannel = 0 To 7
  'If ThisChannels(ThisChannel).CStatus = WS_HANGUP Then
    If TV_RingDetect(ThisChannel) >= 2 Then
        RunStatus = "响铃"
        DisplayStatus
        OutputChannels(ThisChannel) = "响铃"
        Command5(ThisChannel) = "通道: " + CStr(ThisChannel) + Chr(13) + Chr(10) + Chr(13) + Chr(10) + OutputChannels(ThisChannel)
        TelephoneNumber = TV_ReceiveCallingID(ThisChannel, idbuf, 40)
        Textbox1.Text = Textbox1.Text + DateAndTime + "    通道: " + CStr(ThisChannel) + "    来自:"
        Textbox1.Text = Textbox1.Text + CStr(TelephoneNumber) + "     " + RunStatus + Chr(13) + Chr(10) '+ Chr(13)
        SendKeys ("^{end}")
       
        TV_OffHookCtrl ThisChannel
        'idbuf = Space(60)
        'Label2.Caption = Trim(idbuf)
        Channels(ThisChannel).CStatus = WS_OFFHOOK
        Filename = App.Path + "\tw\0" + DateAndTime + CStr(ThisChannel) + "i" + CStr(TelephoneNumber) + ".tw" 'CStr(TelephoneNumber) + ".tw"
        '"d:\yygl\sound\" + CStr(ThisChannel) + "\" + CStr(tt) + CStr(Date) + CStr(Time())
        If TV_StartRecordFile(ThisChannel, Filename, 0, 1000000) = -1 Then
           MsgBox ("录音错误！")
        End If
        RunStatus = "录音"
        DisplayStatus
        OutputChannels(ThisChannel) = "录音"
        Command5(ThisChannel) = "通道: " + CStr(ThisChannel) + Chr(13) + Chr(10) + Chr(13) + Chr(10) + OutputChannels(ThisChannel)
        Textbox1.Text = Textbox1.Text + DateAndTime + "    通道: " + CStr(ThisChannel) + "    来自:"
        Textbox1.Text = Textbox1.Text + CStr(TelephoneNumber) + "     " + RunStatus + Chr(13) + Chr(10) '+ Chr(13)
       ' Textbox1.Text = Textbox1.Text + DateAndTime + " 通道" + CStr(ThisChannel) + ": 来自"
       ' Textbox1.Text = Textbox1.Text + CStr(tt) + RunStatus + Chr(13) + Chr(10) '+ Chr(13)
        SendKeys ("^{end}")
    End If
       
    If OutputChannels(ThisChannel) = "录音" Then 'begin1
        If TV_MonitorBusy(ThisChannel, SIG_BUSY1, 5) <> 0 Or TV_MonitorBusy(ThisChannel, SIG_BUSY2, 5) <> 0 Then
          If TV_RecordFileRest(ThisChannel) = 0 Then
                    TV_StopRecordFile (ThisChannel)
          
           ' TV_HangUpCtrl ThisChannel
            Channels(ThisChannel).CStatus = WS_HANGUP
            RunStatus = "录音结束，挂机"
            DisplayStatus
            OutputChannels(ThisChannel) = "录音结束，挂机"
            Command5(ThisChannel) = "通道: " + CStr(ThisChannel) + Chr(13) + Chr(10) + Chr(13) + Chr(10) + OutputChannels(ThisChannel)
            Textbox1.Text = Textbox1.Text + DateAndTime + "    通道: " + CStr(ThisChannel) + "    来自:"
            Textbox1.Text = Textbox1.Text + CStr(TelephoneNumber) + "     " + RunStatus + Chr(13) + Chr(10) '+ Chr(13)
            'Textbox1.Text = Textbox1.Text + DateAndTime + " 通道" + CStr(ThisChannel) + ": 来自"
            'Textbox1.Text = Textbox1.Text + CStr(tt) + RunStatus + Chr(13) + Chr(10) + Chr(13) ' + "剩余:" + CStr(TV_RecordFileRest(0))
            SendKeys ("^{end}")
         End If
    End If
    
    End If 'for begin1
  'End If
Next ThisChannel

End Sub

Private Sub Timer3_Timer()

Dim DateAndTime As String
Dim TelephoneNumber As Long
Dim ThisChannel As Integer

DateAndTime = mGettime()
TelephoneNumber = 1111111

 
For ThisChannel = 0 To 7
    If TV_OffHookDetect(ThisChannel) <> 0 And OutputChannels(ThisChannel) <> "录音" Then
        RunStatus = "摘机"
        DisplayStatus
        OutputChannels(ThisChannel) = "摘机"
        Command5(ThisChannel).Caption = "通道: " + CStr(ThisChannel) + Chr(13) + Chr(10) + Chr(13) + Chr(10) + OutputChannels(ThisChannel)
        'TelephoneNumber = TV_ReceiveCallingID(ThisChannel, idbuf, 40)
        Textbox1.Text = Textbox1.Text + DateAndTime + "    通道: " + CStr(ThisChannel) '+ "    来自:"
        Textbox1.Text = Textbox1.Text + "     " + RunStatus + Chr(13) + Chr(10)  '+ Chr(13)
'        Textbox1.Text = Textbox1.Text + CStr(TelephoneNumber) + "     " + RunStatus + Chr(13) + Chr(10) '+ Chr(13)
        SendKeys ("^{end}")
       
       ' TV_OffHookCtrl ThisChannel
        'idbuf = Space(60)
        'Label2.Caption = Trim(idbuf)
        Channels(ThisChannel).CStatus = WS_OFFHOOK
        Filename = App.Path + "\tw\" + DateAndTime + CStr(ThisChannel) + "i" + CStr(TelephoneNumber) + ".tw" 'CStr(TelephoneNumber) + ".tw"
        '"d:\yygl\sound\" + CStr(ThisChannel) + "\" + CStr(tt) + CStr(Date) + CStr(Time())
        If TV_StartRecordFile(ThisChannel, Filename, 0, 300000) = -1 Then
           MsgBox ("录音错误！")
        End If
        If TV_RecordFileRest(ThisChannel) = -1 Then
          MsgBox ("录音错误！rest")
        End If

        RunStatus = "录音"
        DisplayStatus
        OutputChannels(ThisChannel) = "录音"
        Command5(ThisChannel).Caption = "通道: " + CStr(ThisChannel) + Chr(13) + Chr(10) + Chr(13) + Chr(10) + OutputChannels(ThisChannel)
        Textbox1.Text = Textbox1.Text + DateAndTime + "    通道: " + CStr(ThisChannel) '+ "    来自:"
        Textbox1.Text = Textbox1.Text + "     " + RunStatus + Chr(13) + Chr(10) '+ Chr(13)
'        Textbox1.Text = Textbox1.Text + CStr(TelephoneNumber) + "     " + RunStatus + Chr(13) + Chr(10) '+ Chr(13)
       ' Textbox1.Text = Textbox1.Text + DateAndTime + " 通道" + CStr(ThisChannel) + ": 来自"
       ' Textbox1.Text = Textbox1.Text + CStr(tt) + RunStatus + Chr(13) + Chr(10) '+ Chr(13)
        SendKeys ("^{end}")
    End If
       
    If OutputChannels(ThisChannel) = "录音" Then
       If TV_RecordFileRest(ThisChannel) = -1 Then
          MsgBox ("录音错误！rest")
       End If
    End If
   
    
    
    If OutputChannels(ThisChannel) = "录音" And TV_OffHookDetect(ThisChannel) = 0 Then 'begin1
    '    If TV_MonitorBusy(ThisChannel, SIG_BUSY1, 5) <> 0 Or TV_MonitorBusy(ThisChannel, SIG_BUSY2, 5) <> 0 Then
            TV_StopRecordFile (ThisChannel)
    
    '        TV_HangUpCtrl ThisChannel
            Channels(ThisChannel).CStatus = WS_HANGUP
            RunStatus = "录音结束，挂机"
            DisplayStatus
            OutputChannels(ThisChannel) = "录音结束，挂机"
            Command5(ThisChannel).Caption = "通道: " + CStr(ThisChannel) + Chr(13) + Chr(10) + Chr(13) + Chr(10) + OutputChannels(ThisChannel)
            Textbox1.Text = Textbox1.Text + DateAndTime + "    通道: " + CStr(ThisChannel) '+ "    来自:"
            'Textbox1.Text = Textbox1.Text + CStr(TelephoneNumber) + "     " + RunStatus + Chr(13) + Chr(10) '+ Chr(13)
            Textbox1.Text = Textbox1.Text + "     " + RunStatus + Chr(13) + Chr(10) '+ Chr(13)
            'Textbox1.Text = Textbox1.Text + DateAndTime + " 通道" + CStr(ThisChannel) + ": 来自"
            'Textbox1.Text = Textbox1.Text + CStr(tt) + RunStatus + Chr(13) + Chr(10) + Chr(13) ' + "剩余:" + CStr(TV_RecordFileRest(0))
            SendKeys ("^{end}")
         'End If
    'End If
    End If 'for begin1
  'End If
Next ThisChannel







End Sub

Private Sub userinfo_Click()
Userm.Show
End Sub

'Private Sub Timer2_Timer()
'       Text1.Text = CStr(TV_MonitorOffHook(1, 25))

'End Sub

Private Sub ysaveas_Click()
  Dim sFile As String
  
    With OpenLog
        .DialogTitle = "另存为"
        .CancelError = False
        'ToDo: 设置 common dialog 控件的标志和属性
        .Filter = "所有文件 (*.rec)|*.rec"
        .ShowSave
        If Len(.Filename) = 0 Then
            Exit Sub
        End If
        sFile = .Filename
    End With
   Open sFile For Output As #1   ' 打开输出文件。
   Write #1, Textbox1.Text
   Close #1   ' 关闭文件。
End Sub

Public Sub mnuSendText_Click()
  Timer3.Enabled = True
'  DisplayStatus
mnuStopSendText.Enabled = True
mnuSendText.Enabled = False

End Sub


Private Sub mnuProperties_Click()
  ' 显示 CommPort 属性表格
  frmProperties.Show 'vbModal
  
End Sub

' 切换端口状态 (打开或关闭)。
Public Sub mnuOpen_Click()
'MsgBox "asdfasdf"
'openport
'If MSComm1.PortOpen Then reseave
End Sub
Sub DisplayStatus()
    On Error Resume Next
    Dim OpenFlag

'    MSComm1.PortOpen = Not MSComm1.PortOpen
'    If Err Then MsgBox Error$, 48
    
    OpenFlag = Timer1.Enabled
     
    'mnuOpen.Checked = OpenFlag
    'mnuSendText.Enabled = Not OpenFlag
    'mnuStopSendText.Enabled = OpenFlag
    'Menu_dial.Enabled = Not mnuSendText.Enabled
    'Menu_AutoManage.Enabled = Not mnuSendText.Enabled
    If OpenFlag Then
        sbrStatus1.Panels("status").Text = "状态:  录音系统打开"
        sbrStatus1.Panels("setting").Text = RunStatus
    Else
        sbrStatus1.Panels("status").Text = "状态:  录音系统关闭"
        sbrStatus1.Panels("setting").Text = RunStatus
    End If
        
End Sub