哪位高手帮个忙呀?vb模块转易语言

aolonglg

我有一个二次开发接口的vb模块，哪位高手帮忙转成易语言的，谢谢呀！！！！

_________________________________________________________
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
__________________________________________________

Hawk

没有模块,可以转吗.