module1.bas

可以有助于实现无线发送和接受

Attribute VB_Name = "Module1"
Public Const MODE_BLOCK As Long = 0
Public Const MODE_NONBLOCK As Long = 1

Public Const MODE_UDP As Long = 0
Public Const MODE_TCP As Long = 1
Public Const IMEI_LEN As Long = 15
Public Const DTU_NAME As Long = 15
Public Const DCC_ID_LEN As Long = 3
Public Const MAX_MSG_LEN As Long = 1492

Public Const DC_MSG_DATA As Long = &H0
Public Const DC_MSG_ONLINE As Long = &H1
Public Const DC_MSG_OFFLINE As Long = &H2
Public Const DC_MSG_GETSTATUS As Long = &H3
Public Const DC_MSG_SENDRESULT As Long = &H4
Public Const DC_MSG_STATUSRESULT As Long = &H5
Public Const DC_MSG_LISTEN_DTU As Long = &H6
Public Const DC_MSG_DCC_ID As Long = &H7
Public Const DC_MSG_DISC_DTU As Long = &H8
Public Const DC_MSG_ADD_DTU As Long = &H9
Public Const DC_MSG_AT_CMD As Long = &HA

Public Const SENDRESULT_SUCCESS As Long = &H0
Public Const SENDRESULT_NOSUCHDTU As Long = &H1
Public Const SENDRESULT_OFFLINE As Long = &H2
Public Const SENDRESULT_CONGESTED As Long = &H3

Public Const STATUSRESULT_NOSUCHDTU As Long = &H0
Public Const STATUSRESULT_ONLINE As Long = &H1
Public Const STATUSRESULT_OFFLINE As Long = &H2

Public Type dc_msg
   ImeiDTU(1 To IMEI_LEN + 1) As Byte  '终端的IMEI号
   NameDTU(1 To DTU_NAME + 1) As Byte   '终端的别名
   msg_type As Byte                     '消息类型
   reserved As Byte                     '保留
   msg_len As Integer                   '消息长度
   msg_body(1 To MAX_MSG_LEN) As Byte   '消息体
End Type


Public mode As Long
Public port As Long
Public dc_ip As String
Public dc_port As Long
Public block As Long
Public dcc_hdl As Long

Public Declare Function dcc_init Lib "dcc.dll" (ByVal mode As Long, ByVal port As Long, ByVal dc_ip As String, ByVal dc_port As Long, ByVal block As Long) As Long
Public Declare Function dcc_msg_send Lib "dcc.dll" (ByVal dcc_hdl As Long, ByRef msg As dc_msg) As Long
Public Declare Function dcc_msg_receive Lib "dcc.dll" (ByVal dcc_hdl As Long, ByRef msg As dc_msg) As Long
Public Declare Function dcc_close Lib "dcc.dll" (ByVal dcc_hdl As Long) As Long