form1.frm

modem打电话

VERSION 5.00
Object = "{1629AE83-02A8-11D6-8AED-5254AB30B955}#1.0#0"; "VOIVEP~1.OCX"
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3435
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   8085
   LinkTopic       =   "Form1"
   ScaleHeight     =   3435
   ScaleWidth      =   8085
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command3 
      Caption         =   "呼叫并播放"
      Height          =   735
      Left            =   5040
      TabIndex        =   5
      Top             =   1800
      Width           =   2415
   End
   Begin VB.ComboBox Combo1 
      Height          =   300
      Left            =   360
      TabIndex        =   4
      Text            =   "Combo1"
      Top             =   120
      Width           =   7215
   End
   Begin VOIVEPHONELib.VoivePhone VoivePhone1 
      Height          =   375
      Left            =   240
      TabIndex        =   3
      Top             =   3000
      Width           =   495
      _Version        =   65536
      _ExtentX        =   873
      _ExtentY        =   661
      _StockProps     =   0
   End
   Begin VB.CommandButton Command2 
      Caption         =   "停止"
      Height          =   615
      Left            =   360
      TabIndex        =   2
      Top             =   2400
      Width           =   3855
   End
   Begin VB.TextBox Text1 
      Height          =   615
      Left            =   360
      TabIndex        =   1
      Text            =   "123456"
      Top             =   600
      Width           =   3855
   End
   Begin VB.CommandButton Command1 
      Caption         =   "播放以上文字"
      Height          =   615
      Left            =   360
      TabIndex        =   0
      Top             =   1560
      Width           =   3855
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
 '播放文本
 VoivePhone1.StopPlayWav
 VoivePhone1.PlayStr Text1.Text, 1
' VoivePhone1.PlayAllisEnglish Text1.Text, 1
End Sub

Private Sub Command2_Click()
'停止播放语音
 VoivePhone1.StopPlayWav
End Sub

Private Sub Command3_Click()
'打开线路，打出电话
 VoivePhone1.OpenLine Combo1.ListIndex
 VoivePhone1.CallOut Combo1.ListIndex, InputBox("号码")
 
End Sub

'验证通过
Private Sub Form_Load()
VoivePhone1.PassIt "%^%&^5sdsf76@!#@#$#" '"用户密码" '正式版本提供,击活所有功能
Dim i As Long
Dim str As String


'取得设备名称
For i = 0 To 10
 str = VoivePhone1.InitLine(i)
 
 If str <> "" Then
  Combo1.AddItem str
 End If

Next i
End Sub

Private Sub VoivePhone1_DtmfIn(ByVal Index As Long, ByVal DTMF As String)
'接受DTMF

 MsgBox DTMF, vbOKOnly, "接收到"
 
End Sub

Private Sub VoivePhone1_EndPlay()
'单语音放完毕


End Sub

Private Sub VoivePhone1_EndPlayAll()
VoivePhone1.StopPlayWav
VoivePhone1.PlayStr Text1.Text, 0

End Sub

Private Sub VoivePhone1_EndRecord()
'录音完毕
End Sub

'连接后 播放线路语音
Private Sub VoivePhone1_IsConnect(ByVal Index As Long)
 '监视DTMF
 VoivePhone1.BeginMonitorDtmf Combo1.ListIndex
 
 VoivePhone1.PlayStr Text1.Text, 0
 
' VoivePhone1.PlayWav "Correct.wav", 0
 
End Sub

Private Sub VoivePhone1_LineInitted(ByVal Name As String)
 '消息方式 返回设备名称 Name
End Sub

''
'========================================================================
'                   部分接口说明
'1.方法：
' AnswerTp            功能:接电话   参数:无   返回:0成功
' BeginMonitorDtmf    功能:启动监视DTMF   参数:Index线路号(打开时所选择的设备号称)   返回:0成功
' CallOut             功能:出中继   参数:Index线路号, szNumber电话号码   返回:0成功
' CancelMonitor       功能:取消监视DTMF   参数:Index线路号   返回:0成功
' ClearDTMF           功能:清除DTMF接收缓冲   参数:Index线路号  返回:0成功
' CloseLine           功能:关闭线路   参数:无   返回:0成功
' GetDtmf 功能:       取DTMF缓冲区所有数据 参数: 无 返回: DTMF缓冲区所有数据
' HandUp              功能:挂电话   参数:无   返回:0成功
' InitLine            功能:初始化线路   参数:Index线路号   返回:成功设备名;失败为"-1"
' OpenLine            功能:打开线路  参数:Index线路号   返回:0成功
' PlayStr             功能:向指定设备汉字放音  参数:PlayStr放音字符 Dev设备(为0向线路放音，为1向声卡放音)   返回:0成功
' PlayTxtFile         功能:向指定设备读txt文件内容 参数:FileName文件名称 Dev(为0向线路放音，为1向声卡放音)    返回:0成功
' PlayWav             功能:向指定设备放wav文件 参数:FileName文件名称 Dev(为0向线路放音，为1向声卡放音)    返回:0成功
' RecordWav           功能:从指定设备录制wav文件 参数:Dev(为0向线路录音，为1向声卡录音); FileName文件名称(现在不用,系统按时间进行命名文件)   Time(录音时间秒)  返回:0成功
' StopPlayWav         功能:停止放语音   参数:无   返回:0成功
' StopRecord          功能:停止录音   参数:无   返回:0成功
'
' long ChangeCall     功能:呼叫转移  PBX用
' (long Index, LPCTSTR TpNumber);
'
' long GetDialogicNbus 功能:取得ntwork 的bus总线路号 dialogic用
' long GetDialogicVbus 功能:取得voice的bus总线路号
'
'
'2.事件
'
'
'  DisConnected(long Index)                 线路断开       Index-线路号
'  DtmfIn(long Index, LPCTSTR DTMF)         收到DTMF       Index-线路号  DTMF-DTMF数据(按钮)
'  EndPlay()                                单文件放音完毕
'  EndPlayAll()                             所有文件放音完毕
'  EndRecord()                              录音完毕
'  IsConnect(long Index)                    已经建立线路连接
'  LineIsFree(long Index)                   线路空闲
'  RecordDevOpen(long Index)                录音设备已经打开
'  Ring(long RingNumber)                    震铃  RingNumber-次数