sms.vb

用于GSM通讯开发的短信Dll。 适应各种机型以及wavecome芯片！

        Me.Label7.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label7.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label7.Location = New System.Drawing.Point(16, 32)
        Me.Label7.Name = "Label7"
        Me.Label7.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label7.Size = New System.Drawing.Size(253, 15)
        Me.Label7.TabIndex = 26
        Me.Label7.Text = "注：0为红外接口，1,2,3,...为串口"
        '
        'Label6
        '
        Me.Label6.AutoSize = True
        Me.Label6.BackColor = System.Drawing.SystemColors.Control
        Me.Label6.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label6.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label6.Location = New System.Drawing.Point(16, 16)
        Me.Label6.Name = "Label6"
        Me.Label6.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label6.Size = New System.Drawing.Size(53, 12)
        Me.Label6.TabIndex = 24
        Me.Label6.Text = "端口号："
        '
        'mainsms
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(618, 433)
        Me.Controls.Add(Me.Frame5)
        Me.Controls.Add(Me.Sms_Exit_Button)
        Me.Controls.Add(Me.Frame4)
        Me.Controls.Add(Me.Frame3)
        Me.Controls.Add(Me.Frame2)
        Me.Controls.Add(Me.Frame1)
        Me.Controls.Add(Me.Label6)
        Me.Controls.Add(Me.Label7)
        Me.Controls.Add(Me.MobPort)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
        Me.MaximizeBox = False
        Me.MinimizeBox = False
        Me.Name = "mainsms"
        Me.Text = "调用短信收发二次开发接口例程源码(VBNET版)"
        Me.Frame5.ResumeLayout(False)
        Me.Frame4.ResumeLayout(False)
        Me.Frame4.PerformLayout()
        Me.Frame3.ResumeLayout(False)
        Me.Frame3.PerformLayout()
        Me.Frame2.ResumeLayout(False)
        Me.Frame2.PerformLayout()
        Me.Frame1.ResumeLayout(False)
        Me.ResumeLayout(False)
        Me.PerformLayout()

    End Sub
#End Region
#Region "升级支持"
    Private Shared m_vb6FormDefInstance As mainsms
    Private Shared m_InitializingDefInstance As Boolean
    Public Shared Property DefInstance() As mainsms
        Get
            If m_vb6FormDefInstance Is Nothing OrElse m_vb6FormDefInstance.IsDisposed Then
                m_InitializingDefInstance = True
                m_vb6FormDefInstance = New mainsms()
                m_InitializingDefInstance = False
            End If
            DefInstance = m_vb6FormDefInstance
        End Get
        Set(ByVal value As mainsms)
            m_vb6FormDefInstance = value
        End Set
    End Property
#End Region

    Private Sub mainsms_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
        Sms_Send_Button.Enabled = False
        Sms_Receive_Button.Enabled = False
        Sms_Delete_Button.Enabled = False
        SendSms_Text.Enabled = False
        TelNum_Text.Enabled = False
        ReceiveSms_Text.Enabled = False
        DeleteSms_Index.Enabled = False
        Sms_Disconnection_Button.Enabled = False
        Sms_Start_Button.Enabled = False
        NewSms_Show.Text = ""
        NewSms_Show.Enabled = False
    End Sub

    Private Sub Sms_Delete_Button_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Sms_Delete_Button.Click
        'UPGRADE_WARNING: Screen 属性 Screen.MousePointer 具有新的行为。 单击以获得更多信息：'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup2065"'
        System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor
        Sms_Delete_Button.Enabled = False
        Sms_Delete(Trim(DeleteSms_Index.Text))
        Sms_Delete_Button.Enabled = True
        'UPGRADE_WARNING: Screen 属性 Screen.MousePointer 具有新的行为。 单击以获得更多信息：'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup2065"'
        System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default
    End Sub

    Private Sub Sms_Exit_Button_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Sms_Exit_Button.Click
        Me.Close()
    End Sub

    Private Sub Sms_Receive_Button_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Sms_Receive_Button.Click
        'UPGRADE_WARNING: Screen 属性 Screen.MousePointer 具有新的行为。 单击以获得更多信息：'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup2065"'
        System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor
        Sms_Receive_Button.Enabled = False
        Dim ReceiveSmsStr As String
        If Sms_Receive("4", ReceiveSmsStr) Then
            ReceiveSms_Text.Text = ReceiveSmsStr
        End If
        Sms_Receive_Button.Enabled = True

        If Sms_AutoFlag() Then
            If Sms_Start_Button.Enabled = True Then
                NewSms_Show.Text = "自动接收短信功能处于关闭状态"
            Else
                NewSms_Show.Text = "未收到新短信"
            End If

        Else
            NewSms_Show.Text = "该短信猫不支持自动接收短信功能"
        End If
        'UPGRADE_WARNING: Screen 属性 Screen.MousePointer 具有新的行为。 单击以获得更多信息：'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup2065"'
        System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default
    End Sub

    Private Sub Sms_Disconnection_Button_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Sms_Disconnection_Button.Click
        'UPGRADE_WARNING: Screen 属性 Screen.MousePointer 具有新的行为。 单击以获得更多信息：'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup2065"'
        System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor
        Sms_Disconnection_Button.Enabled = False
        Sms_Disconnection()
        Sms_Connection_Button.Enabled = True
        Sms_Send_Button.Enabled = False
        Sms_Receive_Button.Enabled = False
        Sms_Delete_Button.Enabled = False
        SendSms_Text.Enabled = False
        TelNum_Text.Enabled = False
        ReceiveSms_Text.Enabled = False
        DeleteSms_Index.Enabled = False
        Sms_Start_Button.Enabled = False
        Sms_Close_Button.Enabled = False
        State_Show.Text = ""
        NewSms_Show.Text = ""
        NewSms_Show.Enabled = False
        NewSms_Timer.Enabled = False
        'UPGRADE_WARNING: Screen 属性 Screen.MousePointer 具有新的行为。 单击以获得更多信息：'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup2065"'
        System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default
    End Sub

    Private Sub Sms_Connection_Button_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Sms_Connection_Button.Click
        'UPGRADE_ISSUE: 不支持 Load 语句。 单击以获得更多信息：'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup1039"'
        'Load(Me)
        'UPGRADE_WARNING: Screen 属性 Screen.MousePointer 具有新的行为。 单击以获得更多信息：'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup2065"'
        System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor
        Sms_Connection_Button.Enabled = False
        Dim TypeStr As String
        Dim CopyRightToCOMStr As String
        Dim CopyRightStr As String
        CopyRightStr = "//上海迅赛信息技术有限公司,网址www.xunsai.com//"

        If Sms_Connection(CopyRightStr, CShort(MobPort.Text), 9600, TypeStr, CopyRightToCOMStr) Then '若使用诺基亚移动电话,请使用数据套件虚拟串口连接
            State_Show.Text = "连接短信猫成功" & Chr(10) & "(短信猫型号为：" & TypeStr & ")"
            Sms_Send_Button.Enabled = True
            Sms_Receive_Button.Enabled = True
            Sms_Delete_Button.Enabled = True
            SendSms_Text.Enabled = True
            TelNum_Text.Enabled = True
            ReceiveSms_Text.Enabled = True
            DeleteSms_Index.Enabled = True
            Sms_Disconnection_Button.Enabled = True
            Sms_Start_Button.Enabled = True
            NewSms_Show.Text = "自动接收短信功能处于关闭状态"
            NewSms_Show.Enabled = True
            NewSms_Timer.Enabled = False
        Else
            State_Show.Text = "连接短信猫失败" & Chr(10) & "(请重新连接短信猫)"
            Sms_Connection_Button.Enabled = True
        End If
        'UPGRADE_WARNING: Screen 属性 Screen.MousePointer 具有新的行为。 单击以获得更多信息：'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup2065"'
        System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default

    End Sub

    Private Sub Sms_Send_Button_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Sms_Send_Button.Click
        'UPGRADE_WARNING: Screen 属性 Screen.MousePointer 具有新的行为。 单击以获得更多信息：'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup2065"'
        System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor
        Sms_Send_Button.Enabled = False
        If Len(Trim(TelNum_Text.Text)) >= 11 And Sms_Send(Trim(TelNum_Text.Text), Trim(SendSms_Text.Text)) Then
            MsgBox("发送短信成功！", MsgBoxStyle.Information, "提示")
        Else
            MsgBox("发送短信失败！", MsgBoxStyle.Critical, "警告")
        End If
        Sms_Send_Button.Enabled = True
        'UPGRADE_WARNING: Screen 属性 Screen.MousePointer 具有新的行为。 单击以获得更多信息：'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup2065"'
        System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default
    End Sub

    Private Sub Sms_Start_Button_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Sms_Start_Button.Click
        If Sms_AutoFlag() Then
            NewSms_Show.Text = "未收到新短信"
            Sms_Start_Button.Enabled = False
            Sms_Close_Button.Enabled = True
            NewSms_Timer.Enabled = True
        Else
            NewSms_Show.Text = "该短信猫不支持自动接收短信功能"
        End If
    End Sub

    Private Sub Sms_Close_Button_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Sms_Close_Button.Click
        NewSms_Show.Text = "自动接收短信功能处于关闭状态"
        Sms_Start_Button.Enabled = True
        NewSms_Timer.Enabled = False
        Sms_Close_Button.Enabled = False
    End Sub

    Private Sub NewSms_Timer_Tick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles NewSms_Timer.Tick
        If Sms_NewFlag() Then
            NewSms_Show.Text = "收到新短信,请查收!"
        End If
    End Sub
End Class