?? sms.bas
字號(hào):
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
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -