Attribute VB_Name = "SMSDef"
Option Explicit

Public Type SMSReportStruct
    index As Long   '//短消息編號(hào):index，從0開始遞增
    Msg(0 To 255) As Byte  '//短信內(nèi)容
    Success As Long  '是否發(fā)送成功 0為失敗，非0為成功
    PhoneNo(0 To 31) As Byte  ' //目標(biāo)手機(jī)號(hào)碼
End Type


Public Type SMSMessageStruct
    Msg(0 To 255) As Byte  '//短信內(nèi)容
    PhoneNo(0 To 31) As Byte  '//對(duì)方手機(jī)號(hào)碼
    ReceTime(0 To 31) As Byte  '//接收時(shí)間
End Type

'啟動(dòng)服務(wù),打開串口，初始化Modem, 0為失敗，非0為成功
'校驗(yàn)位， EvenParity :0,MarkParity:1,NoParity:2,OddParity:3,SpaceParity,4
'停止位 OneStopBit 0,OnePointFiveStopBits:1,TwoStopBits 2
'流控:NoFlowControl:0,    CtsRtsFlowControl:1,    CtsDtrFlowControl:2,    DsrRtsFlowControl:3,    DsrDtrFlowControl:4,    XonXoffFlowControl:5
'最后一個(gè)參數(shù)csca為短信中心號(hào)碼，如果直接用卡內(nèi)已存的短信中心號(hào)碼則用"card"（小寫）
Public Declare Function SMSStartService Lib "SMSDLL.dll" (ByVal nPort As Long, ByVal BaudRate As Long, ByVal Parity As Integer, ByVal DataBits As Integer, ByVal StopBits As Integer, ByVal FlowControl As Integer, ByVal csca As String) As Long


'//停止服務(wù)，并關(guān)閉串口,0為失敗，非0為成功
Public Declare Function SMSStopSerice Lib "SMSDLL.dll" () As Long

'//發(fā)送短消息,返回短消息編號(hào):index，從0開始遞增，該函數(shù)不會(huì)阻塞，立既返回，請(qǐng)用函數(shù)SMSQuery(DWORD index)來(lái)查詢是否發(fā)送成功
Public Declare Function SMSSendMessage Lib "SMSDLL.dll" (ByVal Msg As String, ByVal phone As String) As Long


'//報(bào)告短信發(fā)送壯態(tài)(成功與否)0為有報(bào)告，非0為無(wú)
Public Declare Function SMSReport Lib "SMSDLL.dll" (ByRef srs As SMSReportStruct) As Long


'查詢指定序號(hào)的短信是否發(fā)送成功(該序號(hào)由SMSSendMessage返回)
'返回 0 表示發(fā)送失敗
'     1 表示發(fā)送成功
'    -1 表示沒有查詢到該序號(hào)的短信,可能仍在發(fā)送中。
Public Declare Function SMSQuery Lib "SMSDLL.dll" (ByVal index As Long) As Long


'//接收短信,0為有短信，非0為無(wú)
Public Declare Function SMSGetNextMessage Lib "SMSDLL.dll" (ByRef smg As SMSMessageStruct) As Long


'//返回錯(cuò)誤內(nèi)容的長(zhǎng)度
Public Declare Function SMSGetLastError Lib "SMSDLL.dll" (ByVal err As String) As Long