module1.bas

手机短信开发visual basic 原代码 演示程序

Attribute VB_Name = "Module1"
Public Const SMS_BUF_TOTAL = 50
Public Const LF_FACESIZE = 140


Public Type STRUCommInfo
        iBaudRate As Long
        szSCA As String * 30
        
End Type

Public Type SM_PARAM
        SCA   As String * 16
        TPA   As String * 16
        TP_PID As Byte
        TP_DCS As Byte
        TP_SCTS As String * 16
        TP_UD As String * 161
        index As Byte
End Type

Public Type SM_RCV_STRU
        iSmsTotal As Long
        SMS(SMS_BUF_TOTAL) As SM_PARAM
End Type

Public Type SM
        iSmsTotal As Long
        SCA   As String * 16
        TPA   As String * 16
        TP_PID As Byte
        TP_DCS As Byte
        TP_SCTS As String * 16
        TP_UD As String * 161
        index As Byte
End Type



Public Declare Function GetVerInfo Lib "D:\vb_smscom_demo\SMSCom.dll" (ByVal szRetVer As String) As Byte

Public Declare Function iSetSerialNo Lib "D:\vb_smscom_demo\SMSCom.dll" (ByVal szCorp As String, ByVal szInputSN _
As String) As Long

Public Declare Function hOpenComm Lib "D:\vb_smscom_demo\SMSCom.dll" (ByVal szPort As String) As Long

Public Declare Function bCloseComm Lib "D:\vb_smscom_demo\SMSCom.dll" (ByVal hComm As Long) As Boolean

Public Declare Function bAutoInit Lib "D:\vb_smscom_demo\SMSCom.dll" (ByVal hComm As Long, ByRef CommInfo As STRUCommInfo, _
ByVal iSMSFormat As Integer, ByVal szErrInfo As String) As Boolean

Public Declare Function bSendMsg Lib "D:\vb_smscom_demo\SMSCom.dll" (ByVal hComm As Long, _
ByVal szMsg As String, ByVal szPhNbr As String, ByVal szSCA As String, ByVal iSMSFormat As Integer, ByVal szNextMsg As String, _
 ByVal szErrInfo As String) As Boolean

Public Declare Function iRecvMsg Lib "D:\vb_smscom_demo\SMSCom.dll" (ByVal hComm As Long, _
ByRef RcvSMS As SM_RCV_STRU, ByVal iSMSFormat As Integer, ByVal szErrInfo As String) As Long

Public Declare Function RM Lib "D:\vb_smscom_demo\SMSCom.dll" (ByVal hComm As Long, _
ByRef RcvSMS As SM, ByVal szErrInfo As String) As Long