Attribute VB_Name = "loadsms"
Option Explicit
'短信收發(fā)二次開發(fā)接口(標(biāo)準(zhǔn)版)函數(shù)使用說(shuō)明
'Sms_Connection函數(shù)說(shuō)明如下：
'功能描述：用于初始化移動(dòng)電話與串口的連接
'Com_Port：串口號(hào)
'Com_BaudRate：波特率
'Mobile_Type：返回移動(dòng)電話型號(hào)
'Sms_Connection：返回值(0：連接移動(dòng)電話失敗；1：連接移動(dòng)電話成功)
'******************************************************

'******************************************************
'Sms_Send函數(shù)說(shuō)明如下：
'功能描述：發(fā)送短信
'Sms_TelNum：發(fā)送給的移動(dòng)電話號(hào)碼
'Sms_Text：發(fā)送的短信內(nèi)容
'Sms_Connection：返回值(0：發(fā)送短信失敗；1：發(fā)送短信成功)
'******************************************************

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

'******************************************************
'Sms_Delete函數(shù)說(shuō)明如下：
'功能描述：刪除指定的短信
'Sms_Index：短信的索引號(hào)
'******************************************************

'******************************************************
'Sms_AutoFlag函數(shù)說(shuō)明如下：
'功能描述：檢測(cè)連接的移動(dòng)電話是否支持自動(dòng)收發(fā)短信功能
'Sms_AutoFlag：返回值(0：不支持；1：支持)
'******************************************************

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

'******************************************************
'Sms_Disconnection函數(shù)說(shuō)明如下：
'功能描述：斷開移動(dòng)電話與串口的連接
'******************************************************

Public Declare Function Sms_Connection Lib "sms.dll" (ByVal CopyRight As String, ByVal Com_Port As Integer, ByVal Com_BaudRate As Integer, Mobile_Type As String, CopyRightToCOM 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