common.vb

用GSM模块发送短信,是个发送短信的平台

Imports System.Collections.Generic
Public Class Common

    Private Shared _ErrCode As System.Collections.Generic.Dictionary(Of Integer, String) = Nothing

    Public Shared StrConn As String = String.Format("Provider=microsoft.jet.oledb.4.0;data source={0}\MDB\DB.mdb", System.Windows.Forms.Application.StartupPath)

    Public Shared ReadOnly Property ErrCode() As System.Collections.Generic.Dictionary(Of Integer, String)
        Get
            If (_ErrCode Is Nothing) Then
                _ErrCode = New System.Collections.Generic.Dictionary(Of Integer, String)
                _ErrCode.Add(0, "成功")
                _ErrCode.Add(1, "无SIM卡")
                _ErrCode.Add(3, "没有检测到短信猫")
                _ErrCode.Add(6, "没有注册到网络")
                _ErrCode.Add(-2, "索引超出范围")
                _ErrCode.Add(-3, "传入接受短信的缓冲区太小")
                _ErrCode.Add(-4, "传入接受电话号码的缓冲区太小")
                _ErrCode.Add(-5, "无法识别的短信类型")
                _ErrCode.Add(-6, "短信猫还没打开")
                _ErrCode.Add(-7, "串口出错")
                _ErrCode.Add(-8, "短信猫送回ERROR")
                _ErrCode.Add(-9, "等待短信猫响应超时")
                _ErrCode.Add(-12, "无法打开串口")
            End If
            Return _ErrCode
        End Get
    End Property


    Public Shared Function ConvertToStringSingle(ByRef bytes() As Byte, ByRef intLen As Short) As String

        Dim i As Short
        Dim s As String = String.Empty

        For i = 0 To intLen - 1
            s = s & Chr(bytes(i))
        Next
        ConvertToStringSingle = s

    End Function

    Public Shared Function GetUnicode(ByRef content() As Byte, ByVal smsContent As String) As Short

        Dim i As Short
        Dim s As String
        Dim lngCode As Integer

        For i = 1 To Len(smsContent.Trim())
            s = Mid(smsContent.Trim(), i, 1)
            lngCode = AscW(s)
            lngCode = lngCode And 65535
            content((i - 1) * 2) = (lngCode And &HFFS)
            content((i - 1) * 2 + 1) = (lngCode And &HFF00S) \ 256
        Next
        GetUnicode = Len(smsContent.Trim()) * 2

    End Function


End Class