【正文】 m just nervous. I39。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。才能實現來電顯示與手機發(fā)送短消息功能。別人在普通電話機上接聽你的電話。 : amp。form is used to store/retrieve all are settings at runtime. 39。the default line is the number 0 = 打開此線路 If = 2 Or = 1 Then 39。語音卡 Voice board = 1 ‘設置指定語音格式 = True ‘cmbwaveformat有效 End If End Sub ‘接聽 電話效果 Private Sub cmdAnswer_Click() 開始接聽電話 設置當前狀態(tài)為電話接通狀態(tài) CallState = CALL_STATE_CONNECTED End Sub 取消傳真設置 Private Sub cmdCancelFax_Click() 取消傳真 End Sub 打電話功能實現 Private Sub cmdDial_Click() ‘等待連接 60 39。 來電第二聲響鈴 (電信局送來電顯示信號 )我們這時要去讀 MODERM 內存信息，就是我們要的電話號碼，當然還包括來電時間 . 收發(fā)短消息 收發(fā)傳真 來電去電處理 收傳真 發(fā)傳真 去電 掛斷 詢 發(fā)短消息 管理 收短消息 管理 來電接聽 錄音、放音 來電第一聲響鈴(沒有任何信號 ) 來電顯示功能的實現（首先要向電信局開通來電顯示功能）： Private Sub V_CallerID(ByVal LineIndex As Integer, ByVal CallerID As String)’當電話來的時候響應，一般在來電的第二聲電信局送電話號碼信息到電話機上面。于是我試想用語音貓來解決這個問題，經過我進行了大量的實驗得出這樣的結論，在電話語音要求不太高的場合，我們可以用 30元左右的普通貓來代替語音卡，其實語音貓的功能是非常強大的，不僅能夠上網，其實有好多功能 我們不少人是不知道的。 [關鍵字 ] 電話應答； CTI； Visual Basic； Msm1； TAPI。這種應用的好處是不言而喻的，許多單位都想使用 CTI系統(tǒng)來解決他們企業(yè)內部一些無法解決的一些問題。通過計算機的先進技術實現工作流程的自動化，不僅能有效的減少工作人員的工作量，便他們從煩瑣的手工勞動中解脫出來，提高工作效率、工作質量和節(jié)省 資源。比如我們這次研究的對象就是語音貓，實現的功能就是 CTI的所有的功 能。H10004 ‘ TAPI函數的版本號為 : Public Declare Function lineMonitorDigits Lib Tapi32 (ByVal hCall As Long, ByVal dwDigitModes As Long) As Long Public Declare Function lineGenerateDigits Lib Tapi32 (ByVal hCall As Long, ByVal dwDigitMode As Long, ByVal lpszDigits As String, ByVal dwDuration As Long) As Long ‘得到來電號碼、來電時間等信息 Public Declare Function lineGetCallInfo Lib Tapi32 (ByVal hCall As Long, ByRef lpCallInf As lineCallInfo) As Long ‘電話線路初使化 Public Declare Function lineInitialize Lib Tapi32 (ByRef hTAPI As Long, ByVal hInst As Long, ByVal fnPtr As Long, ByRef szAppName As Long, ByRef dwNumLines As Long) As Long Public Declare Function lineNegotiateAPIVersion Lib Tapi32 (ByVal hTAPI As Long, ByVal dwDeviceID As Long, ByVal dwAPILowVersion As Long, ByVal dwAPIHighVersion As Long, ByRef lpdwAPIVersion As Long, ByRef lpExtensionID As lineextensionid) As Long ‘打開電話線路 Public Declare Function lineOpen Lib Tapi32 (ByVal hLineApp As Long, ByVal dwDeviceID As Long, ByRef lphLine As Long, ByVal dwAPIVersion As Long, ByVal dwExtVersion As Long, ByRef dwCallbackInstance As Long, ByVal dwPrivileges As Long, ByVal dwMediaModes As Long, ByRef lpCallParams As Long) As Long Public Declare Function lineGetDevCaps Lib Tapi32 (ByVal hLineApp As Long, ByVal dwDeviceID As Long, ByVal dwAPIVersion As Long, ByVal dwExtVersion As Long, ByRef lpLineDevCaps As linedevcaps) As Long 線路設置特定的狀態(tài)信息 Public Declare Function lineSetStatusMessages Lib Tapi32 (ByVal hLine As Long, ByVal dwLineStates As Long, ByVal dwAddressStates As Long) As Long 打電話 Public Declare Function lineMakeCall Lib Tapi32 (ByVal hLine As Long, ByRef lphCall As Long, ByVal lpszDestAddress As String, ByVal dwCountryCode As Long, ByVal lpCallParams As Long) As Long 掛電話 Public Declare Function lineDrop Lib Tapi32 (ByVal hCall As Long, ByVal lpsUserUserInfo As String, ByVal dwSize As Long) As Long 掛電話，釋放資源 Public Declare Function lineShutdown Lib Tapi32 (ByVal hLineApp As Long) As Long 應答電話 Public Declare Function lineAnswer Lib Tapi32 (ByVal hCall As Long, ByRef lpsUserUserInfo As String, ByVal dwSize As Long) As Long 得到是哪一條線路正在使用，獲得一個 ID號 Public Declare Function lineGetID Lib Tapi32 (ByVal hLine As Long, ByVal dwAddressID As Long, ByVal hCall As Long, ByVal dwSelect As Long, ByRef lpDevice As varString, ByVal lpszDeviceClass As String) As Long Public Declare Function lineDeallocateCall Lib Tapi32 (ByVal hCall As Long) As Long 第 四 章：系統(tǒng)的實現技術 本人最初的想法是對大豐城市規(guī)劃及土地管理業(yè)務系統(tǒng)的缺陷的一個補充，軟件要能實現 CTI的如下功能 : 7 收發(fā)傳真 . 其功能詳細描述如下： 程序啟動后 ,首先初始化貓 4． 2程序流程 在設計之前所要強調的是：要購買一個外置式的貓，同時電話還要開通家家 E功能。 Else ‘否則 0 ‘靜默 0秒鐘 = True 開始或停止按鈕有效。 ElseIf = 2 Then , 1, 11025, 8 End If 如果有錯誤產生，則顯示錯誤。Center the dialog on the main form and get the settings from the registry. Private Sub Form_Load()’窗口在裝載前產生以下事件 = + (( ) / 2) 讓窗口顯示在屏幕的中間 = + (( ) / 2) txtMsgLen = GetSetting(VBTAPI, Settings, MaxMessage, 60) 從注冊表中讀取消息的最大長度 txtRTA = GetSetting(VBTAPI, Settings, NumRings, 5) txtTollSaver = GetSetting(VBTAPI, Settings, TollSaver, 3) 響鈴幾聲開始應答 txtSecret = GetSetting(VBTAPI, Settings, Secret, 123) End Sub 39。Somebody is off by one here, must be the VB start at one instead of zero thing. lStart = lStart + 1 For lTemp = 0 To If (lStart + lTemp) = 0 Then Exit For 39。 C、打開本系統(tǒng)如圖： D、首先選擇一條線路：剛才裝的貓的信息就在上面有所顯示。 L:發(fā)送與接收傳真： 我們以前發(fā)送與接受傳真必須在傳真機上才能進行，現在就可以通過語音錨加本軟件實現。 and no painter or artist is allowed to innovate uponthe m, or to leave the traditional forms and invent new ones. se me,where do I sign in? Hah, I see you have a sword. I have one too. They39。s mouth]: Stop! I39。t you slap me no more, weclear on that? [Mulan nods emphatically]. All right. O key dokey, let39。s close enough. Mulan [from behind a rock]: Ghost. Mushu: Get ready Mulan your serpentine salvation is at hand. For I havebeen sent by your ancestors [notices CriKee making a hand shadow of adragon on the roc k and stamps him down with his foot] to guide you throughyour masquerade. [bending down to CriKee] C39。 第 六 章：結束語 大家一般在做畢業(yè)論文時一般都選擇一個管理信息系 統(tǒng)作題目，一般這些難度不是很大，因為網上都有這些資料，具有普遍性；而我本次選題卻選擇了一個 CTI電話語音系統(tǒng)，實際上是對大豐城市規(guī)劃及土地管理業(yè)務系統(tǒng)功能一個補充，由于目前對 CTI方面的資料不公開，是一個熱門方向，所以我在設計的過程中遇到很多困難，特別是我選擇是語音貓而不是以語音卡作為開發(fā)對象。如果想通話結束，則有兩種可能，一個是對方先掛斷，一程是本機進行掛斷，當然，當對方打電話過來，如果超時 30秒，則系統(tǒng)會自動掛斷。Co