shpa3api.bas

用VB写的呼叫中心

Public Declare Sub SetPlayTime Lib "SHP_A3.dll" (ByVal ch As Long, ByVal time As Long)
Public Declare Sub SetPlayPercent Lib "SHP_A3.dll" (ByVal ch As Long, ByVal percent As Long)

Public Declare Function LoadIndexFile Lib "SHP_A3.dll" (ByVal segNo As Long, _
                                                        ByVal filename As String, _
                                                        ByVal StartAdr As Long, _
                                                        ByVal Length As Long) As Long

Public Declare Sub FreeIndexMem Lib "SHP_A3.dll" (ByVal segNo As Long)
Public Declare Sub PlayIndex Lib "SHP_A3.dll" (ByVal ch As Long, ByVal segstring As String)
Public Declare Sub StopIndex Lib "SHP_A3.dll" (ByVal ch As Long)

Public Declare Sub DTMFStop Lib "SHP_A3.dll" (ByVal ch As Long, ByVal if_stop As Long)

Public Declare Function GetDTMF Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Sub ClearDTMFBuf Lib "SHP_A3.dll" (ByVal ch As Long)

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

Public Declare Sub ClearRing Lib "SHP_A3.dll" (ByVal ch As Long)
Public Declare Sub HangUp Lib "SHP_A3.dll" (ByVal ch As Long)
Public Declare Sub PickUp Lib "SHP_A3.dll" (ByVal ch As Long)

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

Public Declare Sub SetFlashTime Lib "SHP_A3.dll" (ByVal time As Long)

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

Public Declare Sub DTMFDial Lib "SHP_A3.dll" (ByVal ch As Long, ByVal dialstring As String)
Public Declare Function DTMFDialEnd Lib "SHP_A3.dll" (ByVal ch As Long) As Long

Public Declare Sub Flash Lib "SHP_A3.dll" (ByVal ch As Long, ByVal time As Long)
Public Declare Sub SetPlayVolume Lib "SHP_A3.dll" (ByVal ch As Long, ByVal volume As Long)
Public Declare Sub SetRecVolume Lib "SHP_A3.dll" (ByVal ch As Long, ByVal volume As Long)

Public Declare Function GetCallerId Lib "SHP_A3.dll" (ByVal ch As Long, ByVal buf As String) As Long



Public Declare Sub SetPickSens Lib "SHP_A3.dll" (ByVal piont As Long)
Public Declare Function GetPickUp Lib "SHP_A3.dll" (ByVal ch As Long) As Long

Public Declare Function GetNum Lib "SHP_A3.dll" (ByVal ch As Long, _
                                                 ByVal buf As String, _
                                                 ByVal time As Long, _
                                                 ByVal dtmflen As Long, _
                                                 ByVal end_char As Long) As Long
                                                 
Public Declare Sub SetWorkMode Lib "SHP_A3.dll" (ByVal mode As Long)
Public Declare Sub SetUserCard Lib "SHP_A3.dll" (ByVal addr1 As Long, _
                                                 ByVal addr2 As Long, _
                                                 ByVal addr3 As Long, _
                                                 ByVal addr4 As Long, _
                                                 ByVal addr5 As Long, _
                                                 ByVal addr6 As Long, _
                                                 ByVal addr7 As Long, _
                                                 ByVal addr8 As Long)
                                                 
Public Declare Sub SendBusyTone Lib "SHP_A3.dll" (ByVal ch As Long)
Public Declare Sub SendRingEchoTone Lib "SHP_A3.dll" (ByVal ch As Long)
Public Declare Sub SendDialTone Lib "SHP_A3.dll" (ByVal ch As Long)
Public Declare Sub StopSendTone Lib "SHP_A3.dll" (ByVal ch As Long)
Public Declare Sub StartSendRing Lib "SHP_A3.dll" (ByVal ch As Long)
Public Declare Sub StopSendRing Lib "SHP_A3.dll" (ByVal ch As Long)
Public Declare Function Link2Ch Lib "SHP_A3.dll" (ByVal Ch1 As Long, ByVal Ch2 As Long) As Long
Public Declare Sub UnLink2Ch Lib "SHP_A3.dll" (ByVal Ch1 As Long, ByVal Ch2 As Long)
Public Declare Function Link3Ch Lib "SHP_A3.dll" (ByVal Ch1 As Long, _
                                                  ByVal Ch2 As Long, ByVal Ch3 As Long) As Long

Public Declare Sub UnLink3Ch Lib "SHP_A3.dll" (ByVal Ch1 As Long, ByVal Ch2 As Long, ByVal Ch3 As Long)
Public Declare Function ListenFromCh Lib "SHP_A3.dll" (ByVal Ch1 As Long, ByVal Ch2 As Long) As Long
Public Declare Sub StopListenFromCh Lib "SHP_A3.dll" (ByVal Ch1 As Long, ByVal Ch2 As Long)
Public Declare Sub SetDelay Lib "SHP_A3.dll" (ByVal ch As Long, ByVal delay As Long)
Public Declare Sub SetLevel Lib "SHP_A3.dll" (ByVal ch As Long, ByVal level As Long)
Public Declare Function DetectSound Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function GetFax11 Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function GetFax21 Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function GetRing Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Sub SetDialSpeed Lib "SHP_A3.dll" (ByVal Point As Long)
Public Declare Sub GetErrorMsg Lib "SHP_A3.dll" (ByVal buf As String)
Public Declare Function SetMaxSeg Lib "SHP_A3.dll" (ByVal inmaxsegment As Long) As Long

Public Declare Function ApplyTimeSlot Lib "SHP_A3.dll" () As Long
Public Declare Function LinkFromBus Lib "SHP_A3.dll" (ByVal tsHandle As Long, ByVal ch As Long) As Long
Public Declare Function StopLinkFromBus Lib "SHP_A3.dll" (ByVal tsHandle As Long, ByVal ch As Long) As Long
Public Declare Function LinkToBus Lib "SHP_A3.dll" (ByVal ch As Long, ByVal tsHandle As Long) As Long
Public Declare Function StopLinkToBus Lib "SHP_A3.dll" (ByVal ch As Long, ByVal tsHandle As Long) As Long
Public Declare Sub FreeTimeSlot Lib "SHP_A3.dll" (ByVal tsHandle As Long)
Public Declare Sub PauseCard Lib "SHP_A3.dll" ()
Public Declare Sub RestartCard Lib "SHP_A3.dll" ()

Public Declare Function SetIRQPriority Lib "SHP_A3.dll" (ByVal nPriorityClass As Long) As Boolean

'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@ RECORD MODULE OPERATION  @@@@@@@@@@@@@@@@@@@@@@@@@
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
Public Declare Function GetLevel Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Sub SetJudge Lib "SHP_A3.dll" (ByVal ch As Long, ByVal Judge As Long)
Public Declare Function SsmGetLineVoltage Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmSetDtrmLineVoltage Lib "SHP_A3.dll" (ByVal ch As Long, ByVal wDtrmValtage As Integer) As Long
Public Declare Function SsmGetDtrmLineVoltage Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function DetectPickUp Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function DetectEmpty Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Sub SetSoundJudgeLevel Lib "SHP_A3.dll" (ByVal ch As Long, ByVal level As Long)
Public Declare Function GetSoundJudgeLevel Lib "SHP_A3.dll" (ByVal ch As Long) As Long

Public Declare Function SsmQueryOpMicGain Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmSetMicGain Lib "SHP_A3.dll" (ByVal ch As Long, ByVal nGain As Long) As Long
Public Declare Function SsmGetMicGain Lib "SHP_A3.dll" (ByVal ch As Long) As Long


'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@ POWER-AMPLIFIER OPERATION  @@@@@@@@@@@@@@@@@@@@@@@@@
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
Public Declare Sub SetVolume Lib "SHP_A3.dll" (ByVal dwBoardId As Long, ByVal dwVolume As Long)
Public Declare Function SsmQueryOpPowerAmp Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmSetPowerAmpVlm Lib "SHP_A3.dll" (ByVal ch As Long, ByVal nVolume As Long) As Long

'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@ POLAR REVERSE OPERATION  @@@@@@@@@@@@@@@@@@@@@@@@@
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
Public Declare Function GetFZCount Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmQueryOpPolarRvrs Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmGetPolarRvrsCount Lib "SHP_A3.dll" (ByVal ch As Long) As Long

'//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ SS1 OPERATION  @@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
Declare Function SsmQueryOpSS1 Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmSendCAS Lib "SHP_A3.dll" (ByVal ch As Long, ByVal btCas As Byte) As Long
Public Declare Function SsmGetCAS Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmSetRxR2Mode Lib "SHP_A3.dll" (ByVal ch As Long, ByVal nMode As Long, ByVal bEnable As Boolean) As Long
Declare Function SsmGetR2 Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmSendR2 Lib "SHP_A3.dll" (ByVal ch As Long, ByVal nMode As Long, ByVal btR2 As Byte) As Long
Public Declare Function SsmStopSendR2 Lib "SHP_A3.dll" (ByVal ch As Long) As Long

Public Declare Function SsmGetSendingCAS Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmGetSendingR2 Lib "SHP_A3.dll" (ByVal ch As Long, ByRef pnMode As Long, ByRef pbtR2 As Byte) As Long

'//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ PCM LINK OPERATION  @@@@@@@@@@@@@@@@@@@@@@@@@@@@
'//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
Public Declare Function SsmGetMaxPcm Lib "SHP_A3.dll" () As Long
Public Declare Function SsmGetPcmInfo Lib "SHP_A3.dll" (ByVal nPcmNo As Long, ByRef pnSSxMode As Long, ByRef pnBoardId As Long, ByRef pnBoardPcmNo As Long, ByRef pnUsePcmTS16 As Long, _
                         ByRef pdwRcvrMode As Long, ByRef pdwEnableAutoCall As Long, ByRef pdwAutoCallDirection As Long) As Long
Public Declare Function SsmGetPcmLinkStatus Lib "SHP_A3.dll" (ByVal nPcmNo As Long, ByRef pwPcmLinkStatus As Integer) As Long

'//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ SEND FSK OPERATION  @@@@@@@@@@@@@@@@@@@@@@@@@@@@
'//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
Public Declare Function SsmSetFskPara Lib "SHP_A3.dll" (ByVal nFreqBit0 As Long, ByVal nFreqBit1 As Long, ByVal nBaudrate As Long, ByVal nMdlAmp As Long) As Long
Public Declare Function SsmGetFskPara Lib "SHP_A3.dll" (ByRef pnFreqBit0 As Long, ByRef pnFreqBit1 As Long, ByRef pnBaudrate As Long, ByRef pnMdlAmp As Long) As Long
Public Declare Function SsmStartSendFSK Lib "SHP_A3.dll" (ByVal ch As Long, ByVal pBuf As String, ByVal dwMaxBit As Long) As Long
Public Declare Function SsmCheckSendFsk Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmStopSendFsk Lib "SHP_A3.dll" (ByVal ch As Long) As Long

'//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'//@@@@@@@@@@@@@@@@@@@ FAX OPERATION API @@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
Public Declare Function SsmFaxGetChStateMsg Lib "SHP_A3.dll" (ByVal ch As Long, ByVal buf As String) As Long
Public Declare Function SsmFaxGetPages Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmFaxStartReceive Lib "SHP_A3.dll" (ByVal ch As Long, ByVal filename As String) As Long
Public Declare Function SsmFaxStartSend Lib "SHP_A3.dll" (ByVal ch As Long, ByVal filename As String) As Long
Public Declare Function SsmFaxStop Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Sub SsmFaxSetMaxSpeed Lib "SHP_A3.dll" (ByVal speed As Long)
Public Declare Function SsmFaxCheckEnd Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmFaxSetID Lib "SHP_A3.dll" (ByVal ch As Long, ByVal myid As String) As Long
Public Declare Function SsmFaxGetID Lib "SHP_A3.dll" (ByVal ch As Long, ByVal myid As String) As Long
Public Declare Function SsmFaxSetSendMode Lib "SHP_A3.dll" (ByVal ch As Long, ByVal mode As Long) As Long
Public Declare Function SsmFaxGetRcvBytes Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmFaxGetSendBytes Lib "SHP_A3.dll" (ByVal ch As Long) As Long

'//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'//@@@@@@@@@@@@@@@@@@@@@@@@@@@@ MODEM OPERATION API  @@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
Public Declare Function SsmEnableCh Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmDisableCh Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmResetCh Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmCheckResetCh Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmGetLSR Lib "SHP_A3.dll" (ByVal ch As Long, ByRef retu As Byte) As Long
Public Declare Function SsmGetMSR Lib "SHP_A3.dll" (ByVal ch As Long, ByRef retu As Byte) As Long
Public Declare Function SsmGetRTS Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmGetCTS Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmGetOH Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmDetectCarry Lib "SHP_A3.dll" (ByVal ch As Long) As Long

'//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'//@@@@@@@@@@@@@@@@@@@@@@@@@@ SERIAL PORT IO OPERATION API @@@@@@@@@@@@@@@@@@@@@@@
'//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
Public Declare Function SsmReadRxBuf Lib "SHP_A3.dll" (ByVal ch As Long, ByVal nLen As Long, ByVal lpcRxBuf As String) As Long
Public Declare Function SsmGetRxBufLen Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Sub SsmClearRxBuf Lib "SHP_A3.dll" (ByVal ch As Long)
Public Declare Function SsmWriteTxBuf Lib "SHP_A3.dll" (ByVal ch As Long, ByVal nLen As Long, ByVal lpcTxBuf As String) As Long
Public Declare Function SsmWriteTxBuf_S Lib "SHP_A3.dll" (ByVal ch As Long, ByVal s As String) As Long
Public Declare Function SsmWriteTxBuf_C Lib "SHP_A3.dll" (ByVal ch As Long, ByVal buf As Byte) As Long
Public Declare Function SsmGetTxBufRemain Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmGetTxBufLen Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Sub SsmClearTxBuf Lib "SHP_A3.dll" (ByVal ch As Long)