_________________________________________________________
Attribute VB_Name = "CSM400API"
Public Declare Function CSM_Create Lib "CSM400.DLL" () As Long
Public Declare Function CSM_TestComm Lib "CSM400.DLL" (ByVal CSMHandle As Long, ByVal ComNum As Byte) As Long
Public Declare Function CSM_Open Lib "CSM400.DLL" (ByVal CSMHandle As Long, ByVal ComNum As Byte) As Long
Public Declare Sub CSM_Close Lib "CSM400.DLL" (ByVal CSMHandle As Long)
Public Declare Sub CSM_Release Lib "CSM400.DLL" (ByVal CSMHandle As Long)
Public Declare Function CSM_GetEvent Lib "CSM400.DLL" (ByVal CSMHandle As Long, ByRef Event2 As TCSMEvent) As Long
Public Const CSM_MAX_DEVICE_COUNT = &H8 '最大支持设备数
Public Const CSM_MAX_DATA_LEN = &HFF
Public Const CSM_FAILED = 0
Public Const CSM_SUCCEEDED = 1
Public Const CSM_INVALID_HANDLE = -1
Public Const WM_USER = &H400
Public Const CSM_EVENT_USER = WM_USER + &H1000
Public Const CSM_EVENT_ERRROR = CSM_EVENT_USER + 0 ' 发生错误 Event.Result/WPARAM [错误代码]
Public Const CSM_EVENT_OPEN = CSM_EVENT_USER + 1 ' 打开端口 Event.Result/WPARAM [端口号]
Public Const CSM_EVENT_CLOSE = CSM_EVENT_USER + 2 ' 断开端口 Event.Result/WPARAM [端口号]
Public Const CSM_EVENT_CONNECT = CSM_EVENT_USER + 3 ' 连接设备
Public Const CSM_EVENT_DISCONNECT = CSM_EVENT_USER + 4 ' 断开设备
Public Const CSM_EVENT_OFFHOOK = CSM_EVENT_USER + 5 ' 电话摘机
Public Const CSM_EVENT_HANGUP = CSM_EVENT_USER + 6 ' 电话挂机
Public Const CSM_EVENT_RING = CSM_EVENT_USER + 7 ' 电话震铃
Public Const CSM_EVENT_RINGEND = CSM_EVENT_USER + 8 ' 震铃结束,对方挂机
Public Const CSM_EVENT_CALLIN = CSM_EVENT_USER + 9 ' 呼入电话 Event.Data/LPARAM [电话号码]
Public Const CSM_EVENT_CALLOUT = CSM_EVENT_USER + 10 ' 呼出电话 Event.Data/LPARAM [电话号码]
Public Const CSM_EVENT_DIALING = CSM_EVENT_USER + 11 ' 正在拨号 Event.Data/LPARAM [电话号码]
Public Const CSM_EVENT_DIALFAILED = CSM_EVENT_USER + 12 ' 拨号失败
''CSM事件代码
''''''''''''默认端口
Public DriverCom As Byte
Public DirverID As Long
Public DirverStats As Boolean
Public Type TCSMEvent
Code As Long
Result As Long
Data(255) As Byte
End Type
__________________________________________________