athandler.vb

通过串口发送短信的模块,采用vb.net编写

''' <summary>
''' AT Command class
''' </summary>
''' <remarks></remarks>
Public Class ATHandler

    ''' <summary>
    ''' AT response
    ''' </summary>
    ''' <remarks></remarks>
    Public Shared RESPONSE_ERROR As String = "ERROR"
    Public Shared RESPONSE_NO_CARRIER As String = "NO CARRIER"
    Public Shared RESPONSE_OK As String = "OK"
    Public Shared RESPONSE_NOT_SUPPORTED As String = "NOT SUPPORTED"
    Public Shared RESPONSE_CMS_ERROR = "+CMS ERROR"
    Public Shared RESPONSE_PIN_REQUIRED = "SIM PIN"
    Public Shared RESPONSE_PIN_NOT_REQUIRED = "READY"

    ''' <summary>
    ''' AT commands
    ''' </summary>
    ''' <remarks></remarks>
    Public Shared KEEP_ALIVE_COMMAND As String = "AT"
    Public Shared ECHO_COMMAND As String = "ATE1"
    Public Shared NO_ECHO_COMMAND As String = "ATE0"
    Public Shared MANUFACTURER_COMMAND As String = "ATI0"
    Public Shared REVISION_COMMAND As String = "ATI2"
    Public Shared HANG_UP_COMMAND As String = "ATH"
    Public Shared CHUP_HANG_UP_COMMAND As String = "AT+CHUP"
    Public Shared MESSAGE_INDICATION_COMMAND As String = "AT+CNMI"
    Public Shared CLIP_COMMAND As String = "AT+CLIP"
    Public Shared CMGS_COMMAND As String = "AT+CMGS"
    Public Shared CMGW_COMMAND As String = "AT+CMGW"
    Public Shared CMSS_COMMAND As String = "AT+CMSS"
    Public Shared CMGF_COMMAND As String = "AT+CMGF"
    Public Shared CSQ_COMMAND As String = "AT+CSQ"
    Public Shared CBC_COMMAND As String = "AT+CBC"
    Public Shared CPMS_COMMAND As String = "AT+CPMS"
    Public Shared COPS_COMMAND As String = "AT+COPS"
    Public Shared CNUM_COMMAND As String = "AT+CNUM"
    Public Shared VTS_COMMAND As String = "AT+VTS"
    Public Shared CGSN_COMMAND As String = "AT+CGSN"
    Public Shared CIMI_COMMAND As String = "AT+CIMI"
    Public Shared CSCA_COMMAND As String = "AT+CSCA"
    Public Shared GMM_COMMAND As String = "AT+GMM"
    Public Shared CMGL_COMMAND As String = "AT+CMGL"
    Public Shared CMGD_COMMAND As String = "AT+CMGD"
    Public Shared CLIR_COMMAND As String = "AT+CLIR"
    Public Shared CREG_COMMAND As String = "AT+CREG"
    Public Shared ATD_COMMAND As String = "ATD"
    Public Shared ATA_COMMAND As String = "ATA"
    Public Shared CMGR_COMMAND As String = "AT+CMGR"
    Public Shared CPIN_COMMAND As String = "AT+CPIN"

    Public Shared CLIP_RESPONSE As String = "+CLIP"
    Public Shared CMGF_RESPONSE As String = "+CMGF"
    Public Shared CNMI_RESPONSE As String = "+CNMI"
    Public Shared CPMS_RESPONSE As String = "+CPMS"
    Public Shared CMGS_RESPONSE As String = "+CMGS"
    Public Shared VTS_RESPONSE As String = "VTS"
    Public Shared CNUM_RESPONSE As String = "+CNUM"
    Public Shared CMGL_RESPONSE As String = "+CMGL"
    Public Shared CLIR_RESPONSE As String = "+CLIR"
    Public Shared COPS_RESPONSE As String = "+COPS"
    Public Shared CREG_RESPONSE As String = "+CREG"
    Public Shared CBC_RESPONSE As String = "+CBC"
    Public Shared CSQ_RESPONSE As String = "+CSQ"
    Public Shared RING_RESPONSE As String = "RING"
    Public Shared CMGR_RESPONSE As String = "+CMGR"
    Public Shared CMTI_RESPONSE As String = "+CMTI"
    Public Shared CPIN_RESPONSE As String = "+CPIN"
    Public Shared CSCA_RESPONSE As String = "+CSCA"


    ''' <summary>
    ''' Not supported phone models
    ''' </summary>
    ''' <remarks></remarks>
    Public Shared NOT_SUPPORTED_MODEL As String = "Nokia N70,Nokia 6600"
    'Public Shared NOT_SUPPORTED_MODEL As String = "Nokia N70,Nokia 6600,Nokia 3650"


    Private isAT_CHUP_Command_Supported As Boolean
    Private isATH_Command_Supported As Boolean
    Private isAT_CNUM_Command_Supported As Boolean
    Private isAT_CLIP_Command_Supported As Boolean
    Private isAT_CMGS_Command_Supported As Boolean
    Private isAT_CMGW_Command_Supported As Boolean
    Private isAT_CMSS_Command_Supported As Boolean
    Private isAT_CMGF_0_Command_Supported As Boolean
    Private isAT_CMGF_1_Command_Supported As Boolean
    Private isAT_CBC_Command_Supported As Boolean
    Private isAT_CSQ_Command_Supported As Boolean
    Private isAT_CPMS_Command_Supported As Boolean
    Private isAT_CMNI_Command_Supported As Boolean

    Private isNumeric_MCC_MNC_Supported As Boolean
    Private isSMS_Received_Supported As Boolean

    'Private strCmdKeepAlive As String
    'Private strCmdEcho As String
    'Private strCmdNoEcho As String
    'Private strCmdManufacturer As String
    'Private strCmdRevision As String
    'Private strCmdCHUPHangUp As String
    'Private strCmdHangUp As String
    'Private strCmdMsgIndication As String
    'Private strCmdCLIP As String
    'Private strCmdCMGS As String
    'Private strCmdCMGW As String
    'Private strCmdCMSS As String
    'Private strCmdCMGF As String
    'Private strCmdCSQ As String
    'Private strCmdCBC As String
    'Private strCmdCPMS As String
    'Private strCmdCOPS As String
    'Private strCmdCNUM As String
    'Private strCmdVTS As String
    'Private strCmdCGSN As String
    'Private strCmdCIMI As String
    'Private strCmdCSCA As String
    'Private strCmdGMM As String

    'Private strCLIPResponse As String
    'Private strCMGFResponse As String
    'Private strCNMIResponse As String
    'Private strCPMSResponse As String
    'Private strCMGSResponse As String
    'Private strVTFResponse As String
    'Private strCNUMResponse As String

    Private strMsgIndication As String
    Private strNoMsgIndication As String
    Private strHangUpCommand As String

    ''' <summary>
    ''' Constructor
    ''' </summary>
    ''' <remarks></remarks>
    Public Sub New()

        'KeepAliveCommand = "AT"
        'EchoCommand = "ATE1"
        'NoEchoCommand = "ATE0"
        'ManufacturerCommand = "ATI0"
        'RevisionCommand = "ATI2"
        'HangUpCommand = "ATH"
        'CHUPHangUpCommand = "AT+CHUP"
        'MsgIndicationCommand = "AT+CNMI"
        'CLIPCommand = "AT+CLIP"
        'CMGSCommand = "AT+CMGS"
        'CMGWCommand = "AT+CMGW"
        'CMSSCommand = "AT+CMSS"
        'CMGFCommand = "AT+CMGF"
        'CSQCommand = "AT+CSQ"
        'CBCCommand = "AT+CBC"
        'CPMSCommand = "AT+CPMS"
        'COPSCommand = "AT+COPS"
        'CNUMCommand = "AT+CNUM"
        'VTSCommand = "AT+VTS"
        'CGSNCommand = "AT+CGSN"
        'CIMICommand = "AT+CIMI"
        'CSCACommand = "AT+CSCA"
        'GMMCommand = "AT+GMM"

        'CLIPResponse = "+CLIP"
        'CMGFREsponse = "+CMGF"
        'CNMIResponse = "+CNMI"
        'CPMSResponse = "+CPMS"
        'CMGSResponse = "+CMGS"
        'VTSResponse = "VTS"
        'CNUMResponse = "+CNUM"

        MsgIndication = "2,1,0,0,0"
        'MsgIndication = "2,1"

        HangUpCommand = HANG_UP_COMMAND

        Is_AT_CHUP_Supported = True
        Is_ATH_Supported = True
        Is_AT_CNUM_Supported = True
        Is_AT_CLIP_Supported = True
        Is_AT_CMGS_Supported = True
        Is_AT_CMGW_Supported = True
        Is_AT_CMSS_Supported = True
        Is_AT_CMGF_0_Supported = True
        Is_AT_CMGF_1_Supported = True
        Is_SMS_Received_Supported = True
        Is_AT_CNMI_Supported = True
        Is_AT_CBC_Supported = True
        Is_AT_CSQ_Supported = True
        Is_Numeric_MCC_MNC_Supported = True
        Is_AT_CPMS_Supported = True
    End Sub

    Public Property Is_AT_CHUP_Supported() As Boolean
        Get
            Return isAT_CHUP_Command_Supported
        End Get
        Set(ByVal value As Boolean)
            isAT_CHUP_Command_Supported = value
        End Set
    End Property

    Public Property Is_ATH_Supported() As Boolean
        Get
            Return isATH_Command_Supported
        End Get
        Set(ByVal value As Boolean)
            isATH_Command_Supported = value
        End Set
    End Property


    Public Property Is_AT_CNUM_Supported() As Boolean
        Get
            Return isAT_CNUM_Command_Supported
        End Get
        Set(ByVal value As Boolean)
            isAT_CNUM_Command_Supported = value
        End Set
    End Property

    Public Property Is_AT_CLIP_Supported() As Boolean
        Get
            Return isAT_CLIP_Command_Supported
        End Get
        Set(ByVal value As Boolean)
            isAT_CLIP_Command_Supported = value
        End Set
    End Property

    Public Property Is_AT_CMGS_Supported() As Boolean
        Get
            Return isAT_CMGS_Command_Supported
        End Get
        Set(ByVal value As Boolean)
            isAT_CMGS_Command_Supported = value
        End Set
    End Property

    Public Property Is_AT_CMGW_Supported() As Boolean
        Get
            Return isAT_CMGW_Command_Supported
        End Get
        Set(ByVal value As Boolean)
            isAT_CMGW_Command_Supported = value
        End Set
    End Property

    Public Property Is_AT_CMSS_Supported() As Boolean
        Get
            Return isAT_CMSS_Command_Supported
        End Get
        Set(ByVal value As Boolean)
            isAT_CMSS_Command_Supported = value
        End Set
    End Property

    Public Property Is_AT_CMGF_0_Supported() As Boolean
        Get
            Return isAT_CMGF_0_Command_Supported
        End Get
        Set(ByVal value As Boolean)
            isAT_CMGF_0_Command_Supported = value
        End Set
    End Property

    Public Property Is_AT_CMGF_1_Supported() As Boolean
        Get
            Return isAT_CMGF_1_Command_Supported
        End Get
        Set(ByVal value As Boolean)
            isAT_CMGF_1_Command_Supported = value
        End Set
    End Property

    Public Property Is_AT_CBC_Supported() As Boolean
        Get
            Return isAT_CBC_Command_Supported
        End Get
        Set(ByVal value As Boolean)
            isAT_CBC_Command_Supported = value
        End Set
    End Property


    Public Property Is_AT_CSQ_Supported() As Boolean
        Get
            Return isAT_CSQ_Command_Supported
        End Get
        Set(ByVal value As Boolean)
            isAT_CSQ_Command_Supported = value
        End Set
    End Property

    Public Property Is_AT_CPMS_Supported() As Boolean
        Get
            Return isAT_CPMS_Command_Supported
        End Get
        Set(ByVal value As Boolean)
            isAT_CPMS_Command_Supported = value
        End Set
    End Property

    Public Property Is_AT_CNMI_Supported() As Boolean
        Get
            Return isAT_CMNI_Command_Supported
        End Get
        Set(ByVal value As Boolean)
            isAT_CMNI_Command_Supported = value
        End Set
    End Property

    Public Property Is_Numeric_MCC_MNC_Supported() As Boolean
        Get
            Return isNumeric_MCC_MNC_Supported
        End Get
        Set(ByVal value As Boolean)
            isNumeric_MCC_MNC_Supported = value
        End Set
    End Property


    Public Property Is_SMS_Received_Supported() As Boolean
        Get
            Return isSMS_Received_Supported
        End Get
        Set(ByVal value As Boolean)
            isSMS_Received_Supported = value
        End Set
    End Property


    'Public Property EchoCommand() As String
    '    Get
    '        Return strCmdEcho
    '    End Get