【正文】 錄音、放音 來(lái)電第一聲響鈴(沒(méi)有任何信號(hào) ) 來(lái)電顯示功能的實(shí)現(xiàn)（首先要向電信局開(kāi)通來(lái)電顯示功能）： Private Sub V_CallerID(ByVal LineIndex As Integer, ByVal CallerID As String)’當(dāng)電話來(lái)的時(shí)候響應(yīng)，一般在來(lái)電的第二聲電信局送電話號(hào)碼信息到電話機(jī)上面。 showMsg CStr(LineIndex) + Line connected after answering( + + )‘顯示哪一條線路被接通 Else showMsg CStr(LineIndex) + line connected( + + ) End If = True‘掛斷按鈕生效 If Then如果錄音是否被選中，則去檢測(cè)聲音文件是否存在 ,注明：dir是查找文件的意思 . If Not (Dir() = And ) Then = True End If ‘播放或停止按鈕有效 = True‘播放或停止按鈕有效 = True ‘靜默按鈕有效 End If = True ‘檢測(cè)按鍵有效 = True 收集按鍵信息按鈕有效 = True收集按鍵信息框架有效 = True ‘賣克風(fēng)有效 = True 一般按鍵有效 CallState = CALL_STATE_CONNECTED 當(dāng)前線路狀態(tài)是已聯(lián)接 End Sub Enum CALL_STATE 39。 正在撥號(hào) CALL_STATE_CONNECTED 39。 = False 開(kāi)始或停止按鈕失效。語(yǔ)音卡 Voice board = 1 ‘設(shè)置指定語(yǔ)音格式 = True ‘cmbwaveformat有效 End If End Sub ‘接聽(tīng) 電話效果 Private Sub cmdAnswer_Click() 開(kāi)始接聽(tīng)電話 設(shè)置當(dāng)前狀態(tài)為電話接通狀態(tài) CallState = CALL_STATE_CONNECTED End Sub 取消傳真設(shè)置 Private Sub cmdCancelFax_Click() 取消傳真 End Sub 打電話功能實(shí)現(xiàn) Private Sub cmdDial_Click() ‘等待連接 60 39。 將“ ”文件送到指定的電話號(hào)碼中， D:\fax\fax\Code\, 6211478 Else 如沒(méi)有電話號(hào)碼，則表示不發(fā)送傳真。Play some digits ,each digit has a corresponding wave file 產(chǎn)生一個(gè)新的臨時(shí)文件 , 0, 0, 0 如果有錯(cuò)誤，則顯示錯(cuò)誤原因 If Then showMsg 退出過(guò)程 Exit Sub End If Dim Digit As String, i As Integer 定義兩個(gè)變量，一個(gè)要存放要讀的數(shù)字信息，一個(gè)存入數(shù)字的個(gè)數(shù) . For i = 1 To Len() 遍列整個(gè) digit Digit = Mid(, i, 1) 獲得每一個(gè)數(shù)字 判斷 是否為數(shù)字，如果是的話： If IsNumeric(Digit) Then 就追加書寫文件 Digit + .wav 如果有錯(cuò)誤，則顯示錯(cuò)誤 If Then showMsg Exit Sub 退出過(guò)程 End If End If 一個(gè)做完后，執(zhí)行下一個(gè) Next I 當(dāng)我們做完后，我們將文件的指向要指向文件的頭。 ElseIf = 1 Then , 1, 8000, 8 如果格式為第三種的話，產(chǎn)生一個(gè)格式為 1,11025,8的新文件。the default line is the number 0 = 打開(kāi)此線路 If = 2 Or = 1 Then 39。 CallerID End Sub 電話已經(jīng)聯(lián)接時(shí)產(chǎn)生以下事件，將顯示哪條線路被接通。 Digits 3表示收集時(shí)超時(shí) ElseIf Result = 3 Then showMsg Timeout while Gathering Digits 顯示錯(cuò)誤信息“收集按鍵時(shí)超時(shí)” ElseIf Result = 4 Then showMsg Timeout while Gathering Digits 顯示錯(cuò)誤信息“收集按鍵時(shí)超時(shí)” End If End Sub 播放完成產(chǎn)生此事件 Private Sub V_PlayDone(ByVal LineIndex As Long) LineIndex 指定播放的線路 關(guān)閉聲音文件 showMsg 播放完畢 = 播放 = True 開(kāi)始或停止錄音的按鈕有效 End Sub Private Sub V_RingBack(ByVal LineIndex As Long, ByVal nRing As Long) showMsg Ring Back + CStr(nRing) 顯示幾聲回鈴聲 End Sub 當(dāng)有振鈴時(shí)產(chǎn)生此信息 Private Sub V_Ringing(ByVal LineIndex As Integer, ByVal numRing As Integer) = True 顯示第幾次振鈴 showMsg the + CStr(numRing) + Ring End Sub Showmsg函數(shù)， strmsg將要顯示的內(nèi)容 Sub showMsg(strMsg As String) = + Chr(13) + Chr(10) + strMsg 選中整個(gè)文本 = Len() End Sub 當(dāng)靜默時(shí)產(chǎn)生此事件，提示靜默信息 Private Sub V_Silence(ByVal LineIndex As Long) showMsg Silence Detected 顯示靜默已經(jīng)檢測(cè)到了 End Sub 當(dāng)按鍵超時(shí)時(shí)產(chǎn)生此事件，這時(shí)會(huì)提示您在撥號(hào)時(shí)超時(shí) . Private Sub V_WaitConnectionTimeOut(ByVal LineIndex As Integer) showMsg Timout while Dialing 顯示電話無(wú)人接聽(tīng) End Sub 當(dāng)線路連接時(shí)產(chǎn)生此事件。HKEY_CURRENT_USER\Software\VB and VBA Program Settings\VBTAPI\Settings Option Explicit 39。form is used to store/retrieve all are settings at runtime. 39。attempt39。這些信息將保存在注冊(cè)表中，以便我們?cè)诔绦蛑惺褂谩ith the actual length we can now index into the appended info. 39。 : amp。t 39。下面我們就來(lái)看看如何實(shí)施的。致此驅(qū)動(dòng)程序全部安裝完備。別人在普通電話機(jī)上接聽(tīng)你的電話。 G、 打開(kāi)麥克風(fēng)、檢測(cè)按鍵、檢測(cè)靜音 打開(kāi)麥克風(fēng)是指我們能夠通過(guò)它能和別人普通電話機(jī)進(jìn)行通話。 H、發(fā)送與 接受短消息 特別說(shuō)明：在想實(shí)現(xiàn)本功能，必須您的電話開(kāi)通了家家 E功能，在文本框中輸入你想要發(fā)送的信息，然后按發(fā)送短消息按鈕，如果想要接受短消息，則按接受短消息即可。在電話接通時(shí)，你如果想錄音，就可以接一下錄音按鈕即可。才能實(shí)現(xiàn)來(lái)電顯示與手機(jī)發(fā)送短消息功能。在設(shè)計(jì)的過(guò)程中，花了大量的精力去收集了大量的書籍信息，同時(shí)也向劉同勝老師請(qǐng)教了大量的問(wèn)題，得到他的悉心指導(dǎo)，才得使本系統(tǒng)順利完成。通過(guò)本次畢業(yè)論文的設(shè)計(jì)，同時(shí)也使得我學(xué)到了許多在學(xué)校內(nèi)學(xué)不到的東西，如何學(xué)會(huì)做事，如何學(xué)會(huì)做好事情。 and yet,they have a secret pleasure in them. Cle. Very true. Ath. And is any harm done to the lover of vicious dances or songs,or any good done to the approver of the opposite sort of pleasure? Cle. I think that there is. Ath. I think is not the word, but I would say, rather, I amcertain. For must they not have the same effect as when a mana ssociates with bad characters, whom he likes and approves rather thandislike s, and only censures playfully because he has a suspicion ofhis own badness? In that case, he who takes pleasure in them willsurely bee like those in whom he takes pleasure, even though hebe ashamed to praise them. And what greater good or evil can anydestiny ever make us undergo? Cle. I know of none. Ath. Then in a city which has good laws, or in future ages is tohave them, bearing in mind the instruction and amusement whic h aregiven by music, can we suppose that the poets are to be allowed toteach in the dance anything which they themselves li ke, in the wayof rhythm, or melody, or words, to the young children of anywellconditioned parents? Is the poet to train his choruses as hepleases, without reference to virtue or vice? Cle. That is surely quite unreasonable, and is not to be thought of. Ath. And yet he may do this in almost any state with the exceptionof Egypt. Cle. And what are the laws about music and dancing in Egypt? Ath. You will wonder when I tell you: Long ago they appear to haverecognized the very principle of which we are now speakingthattheir young citizens must be habituated to forms and strains ofvirtue. These they fixed, and exhibited the patterns of them intheir temples。s going to take a miracle toget me into the army. [Mushu appears as a giant shadow being cast on a rock with flames on eitherside. Mushu39。mon, you39。t do that tongue thing [flipsout his tongue to show Mulan what he means]. Mulan: You39。s it! D ishonor! Dishonor on your whole family. [aside to CriKee] Make a note of this[CriKee grabs a leaf and a pen and starts writing]. [Loudly with gusto]Dishonor on you. Dishonor on your cow. Dis Mulan [pleadingly while covering Mushu39。m just nervous. I39。s getthis show on the road. CriKee, get the bags [Mushu starts walking to thecamp]. [to Khan] Let39。em your man walk. Shoulders bac k, chest high, feetapart, head up [Mushu p