clearphone.cls

gps 源码 vb+access 其他地方很难找到 很详细的说明

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "ClearPhone"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Private temp_info(25) As String
Private Temp_cs(25) As Integer
Private Temp_st As String

Public Function ScanPhone() As Boolean
 Dim i As Integer
 Dim j As Integer
 Dim ii As Long
 Dim lll As String
 MDIMainForm.oComm1.Output = "AT^SMGL=4" + Chr(13)
 Sleep (500)
 'ii = 0
 'Do While ii < 6000
 '   ii = ii + 1
 '   DoEvents
 'Loop
 Temp_st = MDIMainForm.oComm1.Input
 If Len(Trim(Temp_st)) < 20 Then
    ScanPhone = False
    Exit Function
 End If
 For i = 1 To Len(Temp_st)
     lll = Mid(Temp_st, i, 5)
     If lll = "SMGL:" Then
        ScanPhone = True
        'MDIMainForm.INIT
        j = j + 1
        temp_info(j) = Mid(Temp_st, i + 6, 2)
        If Mid(temp_info(j), 2, 1) = "," Then
           temp_info(j) = Mid(temp_info(j), 1, 1)
        End If
     ii = 0
     Do While ii < 30000
        ii = ii + 1
        DoEvents
     Loop
        
 '      Sleep (600)
        'MDIMainForm.oComm1.InBufferCount = 0
        DelInfo temp_info(j)
     Else
        ScanPhone = False
     End If
  Next
  'MDIMainForm.Caption = j
End Function

Private Sub DelInfo(ByVal temp_info As String)
Dim Temp_lll As String
'Temp_lll = MDIMainForm.oComm1.Input
'MDIMainForm.oComm1.InBufferCount = 0
MDIMainForm.oComm1.Output = "AT+CMGD=" + temp_info + Chr(13)
MDIMainForm.StatusBar1.Panels(2).Text = "删除" + temp_info + "条!"
 ii = 0
 Do While ii < 30000
    ii = ii + 1
    DoEvents
 Loop
'Sleep (200)
'MDIMainForm.oComm1.InBufferCount = 0
End Sub