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