module1.bas

通过GSMMODEM发送短信并可自动接收短信做相应处理

Attribute VB_Name = "Module1"

Dim SendSuccessCount As Integer   '发送成功次数
Dim SendFailedCount As Integer   '发送失败次数
Dim ReceiveCount As Integer
Dim WorkFlag As Boolean   '工作状态标示  布尔值
Dim ReceiveData As String
Dim SendSuccess As Integer '-1等待；0失败；1成功
Dim ReceiveSuccess As Integer '-1等待；0失败；1成功