shpa3api.bas

用VB写的呼叫中心

Attribute VB_Name = "Shpa3api"

'enum{
Public Const ANALOG_CH = 0
Public Const INTER_CH = 1
Public Const USER_CH = 2
Public Const REC_CH = 3
Public Const SS1_CH = 4
Public Const FAX_CH = 5
'} As  Long

'//pending reason
'enum{
Public Const ANALOGOUT_NO_DIALTONE = 0
Public Const ANALOGOUT_BUSYTONE = 1
Public Const ANALOGOUT_ECHO_NOVOICE = 2
Public Const ANALOGOUT_NOANSWER = 3
Public Const ANALOGOUT_TALKING_REMOTE_HANGUPED = 4

Public Const SS1IN_WAIT_SET_KB = 10
Public Const SS1IN_BWD_KB5 = 11
Public Const SS1IN_TALKING_REMOTE_HANGUPED = 12         '// 自动呼入时检测到主叫用户先挂机


Public Const SS1OUT_TALKING_REMOTE_HANGUPED = 20        '// 自动呼出进入通话后检测到被叫用户先挂机
Public Const SS1OUT_NOANSWER = 21                   '// 等待被叫用户摘机超时
Public Const SS1OUT_NOBWDACK = 22                   '// 等待占用应答信号超时
Public Const SS1OUT_DIALING_BWD_HANGUP = 23             '// 收到后向拆线信号
Public Const SS1OUT_BWD_A5 = 24                         '// 收到A=5（空号）信号
Public Const SS1OUT_BWD_KB5 = 25                        '// 收到KB=5（空号）信号
Public Const SS1OUT_BWD_KB2 = 26                        '// 用户“市忙”
Public Const SS1OUT_BWD_KB3 = 27                        '// 用户”长忙“
Public Const SS1OUT_BWD_A4 = 28                         '// 机键拥塞
Public Const SS1OUT_BWD_KB4 = 29                        '// 收到KB=4（机键拥塞）信号
Public Const SS1OUT_TIMEOUT_BWD_A = 30                  '// 等候接收后向A组信号超时
Public Const SS1OUT_TIMEOUT_BWD_A_STOP = 31             '// 等候后向A组信号停发超时
Public Const SS1OUT_TIMEOUT_BWD_KB = 32                 '// 接收后向KB信号超时
Public Const SS1OUT_TIMEOUT_BWD_KB_STOP = 33            '// 等候被叫方停发后向KB信号超时
Public Const SS1OUT_TIMEOUT_CALLERID_BWD_A1 = 34        '// 收到未定义的后向A组信号
Public Const SS1OUT_TIMEOUT_CALLERID_BWD_A1_STOP = 35 '// 发送CALLERID时等候后向A组信号停发超时
Public Const SS1OUT_UNDEFINED_CALLERID_BWD_A = 36   '// 发送主叫号码时收到未定义的后向A组信号
Public Const SS1OUT_UNDEFINED_BWD_A = 37                '// 收到未定义的后向A组信号
Public Const SS1OUT_UNDEFINED_BWD_KB = 38            '// 收到未定义的KB信号
'} As  Long


'enum{
Public Const S_CALL_STANDBY = 0
Public Const S_CALL_PICKUPED = 1
Public Const S_CALL_RINGING = 2
Public Const S_CALL_TALKING = 3
Public Const S_CALL_ANALOG_WAITDIALTONE = 4
Public Const S_CALL_ANALOG_TXPHONUM = 5
Public Const S_CALL_ANALOG_WAITDIALRESULT = 6
Public Const S_CALL_PENDING = 7
Public Const S_CALL_OFFLINE = 8

Public Const S_CALL_WAIT_REMOTE_PICKUP = 9
Public Const S_CALL_ANALOG_CLEAR = 10

Public Const S_CALL_SS1_BLOCK = 20
Public Const S_CALL_SS1_SAYIDLE = 21

Public Const S_CALL_SS1IN_WAIT_PHONUM = 30
Public Const S_CALL_SS1IN_WAIT_FWDSTOP = 31
Public Const S_CALL_SS1IN_WAIT_CALLERID = 32
Public Const S_CALL_SS1IN_WAIT_KD = 33
Public Const S_CALL_SS1IN_WAIT_KDSTOP = 34

Public Const S_CALL_SS1OUT_WAITBWDACK = 40
Public Const S_CALL_SS1OUT_TXPHONENUM = 41
Public Const S_CALL_SS1OUT_WAIT_PHONUM = 42
Public Const S_CALL_SS1OUT_TXCALLERID = 43
Public Const S_CALL_SS1OUT_WAIT_KB = 44
'} As  Long

'enum{
Public Const DIAL_STANDBY = 0
Public Const DIAL_DIALING = 1
Public Const DIAL_ECHOTONE = 2
Public Const DIAL_NO_DIALTONE = 3
Public Const DIAL_BUSYTONE = 4
Public Const DIAL_ECHO_NOVOICE = 5
Public Const DIAL_NOVOICE = 6
Public Const DIAL_VOICE = 7
Public Const DIAL_VOICEF1 = 8
Public Const DIAL_VOICEF2 = 9
Public Const DIAL_NOANSWER = 10
Public Const DIAL_FAILURE = 11
Public Const DIAL_INVALID_PHONUM = 12
'} As  Long

'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'@@@@@@@@@@@@@@@@@@@ INITIALIZATION OPERATION  @@@@@@@@@@@@@@@@@@@@@
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
Public Declare Function SsmStartCti Lib "SHP_A3.dll" _
                    (ByVal lpSsmCfgFileName As String, _
                    ByVal lpIndexCfgFileName As String) As Long
                    
Public Declare Function SsmCloseCti Lib "SHP_A3.dll" () As Long
Public Declare Sub SsmGetLastErrMsg Lib "SHP_A3.dll" (ByVal szErrMsgBuf As String)

Public Declare Function SsmGetLastErrCode Lib "SHP_A3.dll" () As Long
Public Declare Function SsmGetMaxUsableBoard Lib "SHP_A3.dll" () As Long
Public Declare Function SsmGetMaxCfgBoard Lib "SHP_A3.dll" () As Long
Public Declare Function SsmGetRxDtmfBufSize Lib "SHP_A3.dll" () As Long
Public Declare Function SsmGetAccreditId Lib "SHP_A3.dll" (ByVal nBId As Long) As Long
Public Declare Function SsmGetMaxCh Lib "SHP_A3.dll" () As Long
Public Declare Function SsmGetChType Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmSetMaxIdxSeg Lib "SHP_A3.dll" (ByVal wMaxIdxSeg As Integer) As Long
Public Declare Function SsmLoadIndexData Lib "SHP_A3.dll" _
                                    (ByVal nSegNo As Long, _
                                    ByVal pAlias As String, _
                                    ByVal nCodec As Long, _
                                    ByVal pVocFile As String, _
                                    ByVal lStartPos As Long, _
                                    ByVal lLen As Long) As Long
                                    
Public Declare Function SsmFreeIndexData Lib "SHP_A3.dll" (ByVal nSegNo As Long) As Long
Public Declare Function SsmGetTotalIndexSeg Lib "SHP_A3.dll" () As Long
Public Declare Function SsmPauseCard Lib "SHP_A3.dll" () As Long
Public Declare Function SsmRestartCard Lib "SHP_A3.dll" () As Long


'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ PLAY OPERATION @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
Public Declare Function SsmSetPlayVolume Lib "SHP_A3.dll" (ByVal ch As Long, ByVal nVolume As Long) As Long

Public Declare Function SsmSetDtmfStopPlay Lib "SHP_A3.dll" (ByVal ch As Long, ByVal bDspf As Boolean) As Long

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

Public Declare Function SsmSetBargeinStopPlay Lib "SHP_A3.dll" (ByVal ch As Long, ByVal bBispf As Boolean) As Long

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

Public Declare Function SsmPlayFile Lib "SHP_A3.dll" (ByVal ch As Long, _
                                                      ByVal pszFileName As String, _
                                                      ByVal nFormat As Long, _
                                                      ByVal dwStartPos As Long, _
                                                      ByVal dwLen As Long) As Long

Public Declare Function SsmStopPlayFile Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmPausePlay Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmRestartPlay Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmFastFwdPlay Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmFastBwdPlay Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmSetPlayTime Lib "SHP_A3.dll" (ByVal ch As Long, ByVal dwTime As Long) As Long
Public Declare Function SsmSetPlayPrct Lib "SHP_A3.dll" (ByVal ch As Long, ByVal dwPercentage As Long) As Long
Public Declare Function SsmGetPlayedTime Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmGetPlayedPercentage Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmGetDataBytesToPlay Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmCheckPlay Lib "SHP_A3.dll" (ByVal ch As Long) As Long

Public Declare Function SsmGetPlayType Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmPlayIndexString Lib "SHP_A3.dll" (ByVal ch As Long, ByVal pszIdxStr As String) As Long
Public Declare Function SsmPlayIndexList Lib "SHP_A3.dll" (ByVal ch As Long, ByVal wIdxListLen As Integer, ByRef pwIdxList As Integer) As Long
Public Declare Function SsmStopPlayIndex Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmClearFileList Lib "SHP_A3.dll" (ByVal ch As Long) As Long

Public Declare Function SsmAddToFileList Lib "SHP_A3.dll" (ByVal ch As Long, _
                                                           ByVal pszFileName As String, _
                                                           ByVal nFormat As Long, _
                                                           ByVal dwStartPos As Long, _
                                                           ByVal dwLen As Long) As Long
                                                           
Public Declare Function SsmPlayFileList Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmStopPlayFileList Lib "SHP_A3.dll" (ByVal ch As Long) As Long

Public Declare Function SsmPlayMem Lib "SHP_A3.dll" (ByVal ch As Long, _
                                                     ByVal nFormat As Long, _
                                                     ByRef pBuf As Byte, _
                                                     ByVal dwBufSize As Long, _
                                                     ByVal dwStartOffset As Long, _
                                                     ByVal dwStopOffset As Long) As Long
                                                     
Public Declare Function SsmGetPlayOffset Lib "SHP_A3.dll" (ByVal ch As Long, ByRef pdwPlayOffset As Long) As Long

Public Declare Function SsmSetStopPlayOffset Lib "SHP_A3.dll" (ByVal ch As Long, ByVal dwStopPlayOffset As Long) As Long

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

Public Declare Function SsmClearPlayMemList Lib "SHP_A3.dll" () As Long

Public Declare Function SsmAddToPlayMemList Lib "SHP_A3.dll" (ByRef pBuf As Byte, _
                                                              ByVal dwDataLen As Long, _
                                                              ByVal nFormat As Long) As Long

Public Declare Function SsmPlayMemList Lib "SHP_A3.dll" _
                                        (ByVal ch As Long, _
                                         ByRef pMemList As Integer, _
                                         ByVal wMemListLen As Integer) As Long
                                         
Public Declare Function SsmStopPlayMemList Lib "SHP_A3.dll" (ByVal ch As Long) As Long



'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'@@@@@@@@@@@@@@@@@@@@@@@@@@    RECORD OPERATION   @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
Public Declare Function SsmSetRecVolume Lib "SHP_A3.dll" (ByVal ch As Long, ByVal nVolume As Long) As Long
Public Declare Function SsmGetRecType Lib "SHP_A3.dll" (ByVal ch As Long) As Long

Public Declare Function SsmRecToFile Lib "SHP_A3.dll" _
                                    (ByVal ch As Long, _
                                      ByVal pszFileName As String, _