shpa3api.bas

用VB写的呼叫中心

                                      ByVal nFormat As Long, _
                                      ByVal dwStartPos As Long, _
                                      ByVal dwBytes As Long, _
                                      ByVal dwTime As Long, _
                                      ByVal nMask As Long) As Long
                                      
Public Declare Function SsmPauseRecToFile Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmRestartRecToFile Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmGetRecTime Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmGetDataBytesToRecord Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmStopRecToFile Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmChkRecToFile Lib "SHP_A3.dll" (ByVal ch As Long) As Long

Public Declare Function SsmRecToMem Lib "SHP_A3.dll" ( _
                                                      ByVal ch As Long, _
                                                      ByVal nFormat As Long, _
                                                      ByRef pBuf As Byte, _
                                                      ByVal dwBufSize As Long, _
                                                      ByVal dwStartOffset As Long) As Long
                                                      
Public Declare Function SsmStopRecToMem Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmGetRecOffset Lib "SHP_A3.dll" (ByVal ch As Long) As Long

Public Declare Function SsmGetRecAGCSwitch Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmSetRecAGC Lib "SHP_A3.dll" (ByVal ch As Long, ByVal bEnable As Boolean) As Long

Public Declare Function SsmQueryOpRecMixer Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmSetRecMixer Lib "SHP_A3.dll" ( _
                                                    ByVal ch As Long, _
                                                    ByVal bEnRecMixer As Boolean, _
                                                    ByVal nMixerVolume As Long) As Long
                                                    

Public Declare Function SsmGetRecMixerState Lib "SHP_A3.dll" (ByVal ch As Long, ByRef pnEnRecMixer As Long, ByRef pnMixerVolume As Long) As Long


Public Declare Function SsmSetPrerecord Lib "SHP_A3.dll" (ByVal ch As Long, ByVal bEnable As Boolean, ByVal nMode As Long, ByVal wInsertTime As Integer, ByVal nFormat As Long) As Long
Public Declare Function SsmSetTruncateTail Lib "SHP_A3.dll" (ByVal ch As Long, ByVal dwTime As Long) As Long
Public Declare Function SsmGetTruncateTailTime Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmGetPrerecordState Lib "SHP_A3.dll" (ByVal ch As Long, ByRef pnMode As Long, ByRef pwInsertTime As Long, ByRef pnFormat As Long) As Long


'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'@@@@@@@@@@@@@@@@@@@@@@@@@@   RxDTMF OPERATION   @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
Public Declare Function SsmClearRxDtmfBuf Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmGetDtmfStr Lib "SHP_A3.dll" (ByVal ch As Long, ByVal pszDtmf As String) As Long
Public Declare Function SsmGetRxDtmfLen Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmGet1stDtmf Lib "SHP_A3.dll" (ByVal ch As Long, ByRef pcDtmf As Byte) As Long
Public Declare Function SsmGet1stDtmfClr Lib "SHP_A3.dll" (ByVal ch As Long, ByRef pcDtmf As Byte) As Long
Public Declare Function SsmGetLastDtmf Lib "SHP_A3.dll" ( _
                                    ByVal ch As Long, ByRef pcDtmf As Byte) As Long
                                    
Public Declare Function SsmSetWaitDtmf Lib "SHP_A3.dll" ( _
                                    ByVal ch As Long, _
                                    ByVal wTimeOut As Integer, _
                                    ByVal wMaxLen As Integer, _
                                    ByVal cEndChar As Byte, _
                                    ByVal bWithEndChar As Boolean) As Long
                                    
Public Declare Function SsmChkWaitDtmf Lib "SHP_A3.dll" (ByVal ch As Long, ByVal pszDtmf As String) As Long

'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'@@@@@@@@@@@@@@@@@@@@@@@@ TXDTMF OPERATION  @@@@@@@@@@@@@@@@@@@@@@@@@@@@
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
Public Declare Function SsmQueryTxDtmf Lib "SHP_A3.dll" (ByVal ch As Long, ByVal pszDtmf As String) As Long
Public Declare Function SsmQueryTxFlash Lib "SHP_A3.dll" (ByVal ch As Long, ByVal pszDtmf As String) As Long
Public Declare Function SsmSetTxDtmfPara Lib "SHP_A3.dll" (ByVal ch As Long, ByVal wOnTime As Integer, ByVal wOffTime As Integer) As Long
Public Declare Function SsmGetTxDtmfPara Lib "SHP_A3.dll" (ByVal ch As Long, ByRef pwOnTime As Integer, ByRef pwOffTime As Integer) As Long
Public Declare Function SsmTxDtmf Lib "SHP_A3.dll" (ByVal ch As Long, ByVal pszDtmf As String) As Long
Public Declare Function SsmStopTxDtmf Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmChkTxDtmf Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmTxFlash Lib "SHP_A3.dll" (ByVal ch As Long, ByVal time As Integer) As Long
Public Declare Function SsmChkTxFlash Lib "SHP_A3.dll" (ByVal ch As Long) As Long


'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'@@@@@@@@@@@@@@@@@@@ INTER-CH OPERATION  @@@@@@@@@@@@@@@@@@@@@@@@@@@
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
Public Declare Function SsmSetLocalFlashTime Lib "SHP_A3.dll" (ByVal nFlashTime As Long) As Long
Public Declare Function SsmSetASDT Lib "SHP_A3.dll" (ByVal ch As Long, ByVal bEnAutoSendDialTone As Boolean) As Long
Public Declare Function SsmGetASDT Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmGetFlashCount Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmClearFlashCount Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmGetHookState Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmStartRing Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmStopRing Lib "SHP_A3.dll" (ByVal ch As Long) As Long


'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'@@@@@@@@@@@@@@@@@@@ SEND TONE OPERATION  @@@@@@@@@@@@@@@@@@@@@@@@@@
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
Public Declare Function SsmQueryOpSendTone Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmSendTone Lib "SHP_A3.dll" (ByVal ch As Long, ByVal nToneType As Long) As Long
Public Declare Function SsmStopSendTone Lib "SHP_A3.dll" (ByVal ch As Long) As Long


'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'@@@@@@@@@@@@@@@@@@@@@@@ TONE ANALYZE OPERATION  @@@@@@@@@@@@@@@@@@@@@@@@@@@
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
Public Declare Function SsmClearToneAnalyzeResult Lib "SHP_A3.dll" (ByVal ch As Long) As Long

Public Declare Function SsmStartToneAnalyze Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmCloseToneAnalyze Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmGetOverallEnergy Lib "SHP_A3.dll" (ByVal ch As Long) As Long

Public Declare Function SsmGetVocFxFlag Lib "SHP_A3.dll" (ByVal ch As Long, _
                                    ByVal nSelFx As Long, ByVal bClear As Boolean) As Long
                                    
Public Declare Function SsmGetToneAnalyzeResult Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmGetBusyToneLen Lib "SHP_A3.dll" (ByVal ch As Long) As Long

Public Declare Function SsmGetBusyToneCount Lib "SHP_A3.dll" (ByVal ch As Long) As Long

Public Declare Function SsmGetRingEchoToneTime Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmSetTonePara Lib "SHP_A3.dll" (ByVal ch As Long, _
                                                         ByVal wToneFreq1 As Integer, _
                                                         ByVal wToneBW1 As Integer, _
                                                         ByVal wToneFreq2 As Integer, _
                                                         ByVal wToneBW2 As Integer, _
                                                         ByVal dwIsToneRatio As Long) As Long
                                                         
Public Declare Function SsmSetIsDialToneDtrTime Lib "SHP_A3.dll" (ByVal ch As Long, _
                                                    ByVal wIsDialToneDtrTime As Integer) As Long
                                                    
Public Declare Function SsmSetBusyTonePeriod Lib "SHP_A3.dll" (ByVal ch As Long, _
                                                               ByVal wBusyTonePeriod As Integer) As Long
                                                        
Public Declare Function SsmSetIsBusyToneDtrCnt Lib "SHP_A3.dll" (ByVal ch As Long, _
                                                                 ByVal wIsBusyToneDtrCnt As Integer) As Long
                                                                 
Public Declare Function SsmSetRingEchoTonePara Lib "SHP_A3.dll" (ByVal ch As Long, _
                                                                 ByVal wRingEchoOnTime As Integer, _
                                                                 ByVal wRingEchoOffTime As Integer) As Long
                                                                 
Public Declare Function SsmSetVoiceFxPara Lib "SHP_A3.dll" (ByVal ch As Long, _
                                                            ByVal wSelFx As Integer, _
                                                            ByVal wFx As Integer, _
                                                            ByVal wFxBW As Integer, _
                                                            ByVal dwIsVocFxRatio As Long, _
                                                            ByVal wIsVocFxDtrTime As Integer) As Long
                                                            
Public Declare Function SsmSetVoiceOnDetermineTime Lib "SHP_A3.dll" (ByVal ch As Long, _
                                                            ByVal wIsVocDtrTime As Integer) As Long
                                                            
Public Declare Function SsmSetMinVocDtrEnergy Lib "SHP_A3.dll" (ByVal ch As Long, _
                                                        ByVal dwMinVocDtrEnergy As Long) As Long

Public Declare Function SsmGetTonePara Lib "SHP_A3.dll" (ByVal ch As Long, _
                                                         ByRef pwToneFreq1 As Integer, _
                                                         ByRef pwToneBW1 As Integer, _
                                                         ByRef pwToneFreq2 As Integer, _
                                                         ByRef pwToneBW2 As Integer, _
                                                         ByRef pdwIsToneRatio As Long) As Long
                                                         
Public Declare Function SsmGetIsDialToneDtrTime Lib "SHP_A3.dll" (ByVal ch As Long, _
                                                                  ByRef pwIsDialToneDtrTime As Integer) As Long
                                                                  
Public Declare Function SsmGetBusyTonePeriod Lib "SHP_A3.dll" (ByVal ch As Long, _
                                                               ByRef pwBusyTonePeriod As Integer) As Long

Public Declare Function SsmGetIsBusyToneDtrCnt Lib "SHP_A3.dll" (ByVal ch As Long, _
                                                                 ByRef pwIsBusyToneDtrCnt As Integer) As Long

Public Declare Function SsmGetRingEchoTonePara Lib "SHP_A3.dll" (ByVal ch As Long, _
                                                                 ByRef pwRingEchoOnTime As Integer, _
                                                                 ByRef pwRingEchoOffTime As Integer) As Long

Public Declare Function SsmGetIsNoVocDtrmTime Lib "SHP_A3.dll" (ByVal ch As Long, ByVal pwIsNoVocDtrmTime As Integer) As Long
Public Declare Function SsmGetVoiceFxPara Lib "SHP_A3.dll" (ByVal ch As Long, _
                                                            ByVal wSelFx As Integer, _
                                                            ByRef pwFx As Integer, _
                                                            ByRef pwFxBW As Integer, _
                                                            ByRef pdwIsVocFxRatio As Long, _
                                                            ByRef pwIsVocFxDtrTime As Integer) As Long
                                                            
Public Declare Function SsmGetVoiceOnDetermineTime Lib "SHP_A3.dll" (ByVal ch As Long, ByRef pwIsVocDtrTime As Integer) As Long
Public Declare Function SsmGetMinVocDtrEnergy Lib "SHP_A3.dll" (ByVal ch As Long, ByRef pdwMinVocDtrEnergy As Long) As Long


Public Declare Function SsmQueryOpPeakFrqDetect Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmSetPeakFrqDetectBW Lib "SHP_A3.dll" (ByVal ch As Long, ByVal nPeakBW As Integer) As Long
Public Declare Function SsmGetPeakFrqDetectBW Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmGetPeakFrqEnergy Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmGetPeakFrq Lib "SHP_A3.dll" (ByVal ch As Long) As Long

Public Declare Function SsmStart2ndToneAnalyzer Lib "SHP_A3.dll" (ByVal ch As Long, ByVal bEn As Boolean) As Long
Public Declare Function SsmGet2ndToneAnalyzerState Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmSet2ndTonePara Lib "SHP_A3.dll" (ByVal ch As Long, ByVal wToneFreq1 As Integer, ByVal wToneBW1 As Integer, ByVal wToneFreq2 As Integer, ByVal wToneBW2 As Integer, ByVal dwIsToneRatio As Long) As Long
Public Declare Function SsmGet2ndTonePara Lib "SHP_A3.dll" (ByVal ch As Long, ByRef pwToneFreq1 As Integer, ByRef pwToneBW1 As Integer, ByRef pwToneFreq2 As Integer, ByRef pwToneBW2 As Integer, ByRef pdwIsToneRatio As Long) As Long
Public Declare Function SsmGet2ndToneAnalyzeResult Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmClear2ndToneAnalyzeResult Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmGet2ndBusyToneLen Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmGet2ndBusyToneCount Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmSet2ndBusyTonePeriod Lib "SHP_A3.dll" (ByVal ch As Long, ByVal wBusyTonePeriod As Integer) As Long
Public Declare Function SsmGet2ndBusyTonePeriod Lib "SHP_A3.dll" (ByVal ch As Long, ByRef pwBusyTonePeriod As Integer) As Long
Public Declare Function SsmSet2ndIsBusyToneDtrCnt Lib "SHP_A3.dll" (ByVal ch As Long, ByVal wIsBusyToneDtrCnt As Integer) As Long
Public Declare Function SsmGet2ndIsBusyToneDtrCnt Lib "SHP_A3.dll" (ByVal ch As Long, ByRef pwIsBusyToneDtrCnt As Integer) As Long
Public Declare Function SsmSet2ndIsDialToneDtrTime Lib "SHP_A3.dll" (ByVal ch As Long, ByVal wIsDialToneDtrTime As Integer) As Long
Public Declare Function SsmGet2ndIsDialToneDtrTime Lib "SHP_A3.dll" (ByVal ch As Long, ByRef pwIsDialToneDtrTime As Integer) As Long
Public Declare Function SsmSet2ndRingEchoTonePara Lib "SHP_A3.dll" (ByVal ch As Long, ByVal wRingEchoOnTime As Integer, ByVal wRingEchoOffTime As Integer) As Long
Public Declare Function SsmGet2ndRingEchoTonePara Lib "SHP_A3.dll" (ByVal ch As Long, ByRef pwRingEchoOnTime As Integer, ByRef pwRingEchoOffTime As Integer) As Long

'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'@@@@@@@@@@@@@@@@@@@@@ BARGEIN OPERATION  @@@@@@@@@@@@@@@@@@@@@@@@@@
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
Public Declare Function SsmSetNoSoundDtrmTime Lib "SHP_A3.dll" (ByVal ch As Long, _