Attribute VB_Name = "loadsms"
Option Explicit
'短信收發二次開發接口(V1.0.0.0)函數使用說明
'Sms_Connection函數說明如下：
'功能描述：用于初始化移動電話與串口的連接
'Com_Port：串口號
'Com_BaudRate：波特率
'Mobile_Type：返回移動電話型號
'Sms_Connection：返回值(0：連接移動電話失敗；1：連接移動電話成功)
'******************************************************

'******************************************************
'Sms_Send函數說明如下：
'功能描述：發送短信
'Sms_TelNum：發送給的移動電話號碼
'Sms_Text：發送的短信內容
'Sms_Connection：返回值(0：發送短信失敗；1：發送短信成功)
'******************************************************

'******************************************************
'Sms_Receive函數說明如下：
'功能描述：接收指定類型的短信
'Sms_Type：短信類型(0：未讀短信；1：已讀短信；2：待發短信；3：已發短信；4：全部短信)
'Sms_Text：返回指定類型的短信內容字符串(短信內容字符串說明：短信與短信之前用"|"符號作為分隔符,每條短信中間的各字段用"#"符號作為分隔符)
'******************************************************

'******************************************************
'Sms_Delete函數說明如下：
'功能描述：刪除指定的短信
'Sms_Index：短信的索引號
'******************************************************

'******************************************************
'Sms_AutoFlag函數說明如下：
'功能描述：檢測連接的移動電話是否支持自動收發短信功能
'Sms_AutoFlag：返回值(0：不支持；1：支持)
'******************************************************

'******************************************************
'Sms_NewFlag函數說明如下：
'功能描述：查詢是否收到新的短信息
'Sms_AutoFlag：返回值(0：未收到；1：收到)
'******************************************************

'******************************************************
'Sms_Disconnection函數說明如下：
'功能描述：斷開移動電話與串口的連接
'******************************************************

Public Declare Function Sms_Connection Lib "sms.dll" (ByVal Com_Port As Integer, ByVal Com_BaudRate As Integer, Mobile_Type As String) As Long
Public Declare Function Sms_Send Lib "sms.dll" (ByVal Sms_TelNum As String, ByVal Sms_Text As String) As Long
Public Declare Function Sms_Receive Lib "sms.dll" (ByVal Sms_Type As String, Sms_Text As String) As Long
Public Declare Function Sms_Delete Lib "sms.dll" (ByVal Sms_Index As String) As Long
Public Declare Function Sms_AutoFlag Lib "sms.dll" () As Long
Public Declare Function Sms_NewFlag Lib "sms.dll" () As Long
Public Declare Function Sms_Disconnection Lib "sms.dll" () As Long