module1.vb

用GSM模块发送短信,是个发送短信的平台

Option Strict Off
Option Explicit On
Module Module1
	Public Declare Function OpenSMSDevice Lib "maob.dll" (ByVal nPort As Integer) As Integer
	Public Declare Sub CloseSMSDevice Lib "maob.dll" ()
	Public Declare Function GetSMS Lib "maob.dll" (ByVal nIndex As Integer, ByRef pContent As Byte, ByRef pnContentLen As Short, ByRef pPhoneNumber As Byte, ByRef pnPhoneNumberLen As Short, ByRef pnType As Short) As Integer
	Public Declare Function DeleteSMS Lib "maob.dll" (ByVal nIndex As Integer) As Integer
	Public Declare Function SendSMS Lib "maob.dll" (ByVal pPhoneNumber As String, ByRef pContent As Byte, ByVal nContentLen As Integer, ByVal nType As Integer) As Integer
	Public Declare Function GetSMSCount Lib "maob.dll" () As Integer
	Public Declare Sub FetchAllSMS Lib "maob.dll" ()
	Public Declare Sub ConvertToVBString Lib "maob.dll" (ByRef pbstrRet As String, ByRef pBytes As Byte, ByVal nLen As Short)
	Public Declare Function HexadecimalStringToNumber Lib "maob.dll" (ByVal p As String) As Integer
	
	Public Declare Function HasError Lib "maob.dll" (ByRef p As Byte, ByRef pnLen As Short) As Boolean
	Public Declare Sub GetLastRecvForSend Lib "maob.dll" (ByRef p As Byte, ByRef pnLen As Short)
	Public Declare Sub GetLastRecvForDelete Lib "maob.dll" (ByRef p As Byte, ByRef pnLen As Short)
	Public Declare Sub GetLastCommand Lib "maob.dll" (ByRef pCommand As Byte, ByRef pnCommandLen As Short, ByRef pResponse As Byte, ByRef pnResponseLen As Short)
	
	Public Const SMS_BINARY As Short = 0
	Public Const SMS_ASCII As Short = 1
	Public Const SMS_UNICODE As Short = 2
	
	
	Const AUTOUPMSG_SIMERR As Short = 1 '无SIM卡
	Const AUTOUPMSG_MODFLT As Short = 3 '没有检测到短信猫
	Const AUTOUPMSG_NOT_REGGED As Short = 6 '还没注册到网络
	
	Const SUCCESS As Short = 0
	Const INDEX_OUT_OF_RANGE As Short = -2 '索引超过范围
	Const CONTENT_BUFFER_TOO_SMALL As Short = -3 '传入接受短信的缓冲区太小
	Const PHONE_NUMBER_BUFFER_TOO_SMALL As Short = -4 '传入接受电话号码的缓冲区太小
	Const UNKNOWN_SMS_TYPE As Short = -5 '无法识别的短信类型
	Const SMS_DEVIDE_NOT_OPENED As Short = -6 '短信猫还没打开
	Const SERIAL_COMM_ERROR As Short = -7 '串口出错
	Const MODEM_RESPONSE_ERROR As Short = -8 '短信猫送回ERROR
	Const MODEM_RESPONSE_TIMEOUT As Short = -9 '等待短信猫响应超时
	Const COMMPORT_OPEN_ERR As Short = -12 '无法打开串口
End Module