main.bas

监控类的开发

Attribute VB_Name = "Main"
Option Explicit

Public strDataPath As String
Public strInBuffers As String
Public bStartNew As Boolean
Public bGroup As Boolean
Public bWriteSim As Boolean
Public bClearSim As Boolean
Public nSimNo As Integer

Public nModemStatus As Integer
Public Const CLOSE_STATUS = 0
Public Const OPEN_STATUS = 1
Public Const SMS_SEND0_STATUS = 2
Public Const SMS_SEND1_STATUS = 3
Public Const SMS_SEND2_STATUS = 4
Public Const CSCA_STATUS = 5
Public Const SMS_CARD_STATUS = 6
Public Const CMGL_STATUS = 7
Public Const CMGD_STATUS = 8
Public Const CPBR_STATUS = 9
Public Const WRITE_SIM_STATUS = 10
Public Const CLEAR_SIM_STATUS = 11