redstar66 发表于 2010-9-18 14:40:16

悬赏200元,求算法

现在需要的功能是:
有人打电话来
如果取得了来电号码或者来电响铃四次以上,播放提示音,并等待对方电话按键。

按“1”键进入自动申告,按“2”键进入录音申告,按“0”键进入自动申告,如果其它键提示按错,并

等待对方电话按键。

如果按“2”键进入录音申告,按“#”号键结束录音,返回上一层按“*”号键

悬赏200元,求算法! 要求通过支付宝交易!我的QQ:454274468

Private Sub Timer1_Timer()  '通过Timer事件读取语音卡的实时参数(每50毫秒)
Dim buf As String * MaxDataLen
Dim lEventType As Long
If GetEventEx(lEventType, buf) > 0 Then
Select Case lEventType
   
Case TEvent_GetNumber: '接收来电号码
ShowMsg (buf) 'buf为来电号码
   
Case TEvent_Ring:
ShowMsg ("来电响铃")
   
Case TEvent_PlayEnd:
ShowMsg ("播放完毕")
   
Case TEvent_HangUp:
ShowMsg ("对方挂机")
   
Case TEvent_InterHangUp:
ShowMsg ("本地话机挂机")
   
Case TEvent_InterOffHook:
ShowMsg ("本地话机摘机")
   
   
Case TEvent_GetChar: '通话中接收按键号码
ShowMsg ("取得按键号码 " + buf) 'buf为接收的按键号码
   
End Select
End If
End Sub


播放声音文件的命令是:play(文件名)
录音命令:Record(文件名)

现在需要的功能是:

有人打电话来
如果取得了来电号码或者来电响铃四次以上,播放提示音,并等待对方电话按键。

按“1”键进入自动申告,按“2”键进入录音申告,按“0”键进入自动申告,如果其它键提示按错,并

等待对方电话按键。

如果按“2”键进入录音申告,按“#”号键结束录音,返回上一层按“*”号键

redstar66 发表于 2010-9-18 15:55:01

看来现在高人都不用VB了,已经解决了,声明几个变量就可以了!

peace2008 发表于 2010-9-18 21:39:41

楼主可以共享一下方法呀

acme_pjz 发表于 2010-9-18 22:32:31

LS的请先交给LZ200元;P……
页: [1]
查看完整版本: 悬赏200元,求算法