form1.vb

用VB.Net写的一个发送短信的东东

        'txtCon
        '
        Me.txtCon.Location = New System.Drawing.Point(80, 56)
        Me.txtCon.Multiline = True
        Me.txtCon.Name = "txtCon"
        Me.txtCon.Size = New System.Drawing.Size(176, 80)
        Me.txtCon.TabIndex = 3
        Me.txtCon.Text = ""
        '
        'chkBlink
        '
        Me.chkBlink.Location = New System.Drawing.Point(80, 152)
        Me.chkBlink.Name = "chkBlink"
        Me.chkBlink.Size = New System.Drawing.Size(56, 26)
        Me.chkBlink.TabIndex = 4
        Me.chkBlink.Text = "闪烁"
        '
        'chkFlash
        '
        Me.chkFlash.Location = New System.Drawing.Point(148, 153)
        Me.chkFlash.Name = "chkFlash"
        Me.chkFlash.Size = New System.Drawing.Size(48, 24)
        Me.chkFlash.TabIndex = 5
        Me.chkFlash.Text = "免提"
        '
        'cmdSend
        '
        Me.cmdSend.Enabled = False
        Me.cmdSend.Location = New System.Drawing.Point(205, 152)
        Me.cmdSend.Name = "cmdSend"
        Me.cmdSend.Size = New System.Drawing.Size(56, 24)
        Me.cmdSend.TabIndex = 6
        Me.cmdSend.Text = "发送"
        '
        'txtReceive
        '
        Me.txtReceive.Location = New System.Drawing.Point(13, 21)
        Me.txtReceive.Multiline = True
        Me.txtReceive.Name = "txtReceive"
        Me.txtReceive.Size = New System.Drawing.Size(184, 152)
        Me.txtReceive.TabIndex = 0
        Me.txtReceive.Text = ""
        '
        'Label4
        '
        Me.Label4.AutoSize = True
        Me.Label4.Location = New System.Drawing.Point(19, 27)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(66, 17)
        Me.Label4.TabIndex = 0
        Me.Label4.Text = "我要读出第"
        '
        'txtIndex
        '
        Me.txtIndex.Location = New System.Drawing.Point(84, 23)
        Me.txtIndex.Name = "txtIndex"
        Me.txtIndex.Size = New System.Drawing.Size(32, 21)
        Me.txtIndex.TabIndex = 1
        Me.txtIndex.Text = ""
        '
        'cmdRead
        '
        Me.cmdRead.Enabled = False
        Me.cmdRead.Location = New System.Drawing.Point(208, 24)
        Me.cmdRead.Name = "cmdRead"
        Me.cmdRead.Size = New System.Drawing.Size(64, 24)
        Me.cmdRead.TabIndex = 2
        Me.cmdRead.Text = "读短信"
        '
        'Label5
        '
        Me.Label5.AutoSize = True
        Me.Label5.Location = New System.Drawing.Point(16, 64)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(66, 17)
        Me.Label5.TabIndex = 3
        Me.Label5.Text = "来自号码："
        '
        'txtFromNo
        '
        Me.txtFromNo.Location = New System.Drawing.Point(80, 64)
        Me.txtFromNo.Name = "txtFromNo"
        Me.txtFromNo.Size = New System.Drawing.Size(104, 21)
        Me.txtFromNo.TabIndex = 4
        Me.txtFromNo.Text = ""
        '
        'Label6
        '
        Me.Label6.AutoSize = True
        Me.Label6.Location = New System.Drawing.Point(16, 96)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(66, 17)
        Me.Label6.TabIndex = 5
        Me.Label6.Text = "发送时间："
        '
        'txtSendTime
        '
        Me.txtSendTime.Location = New System.Drawing.Point(80, 96)
        Me.txtSendTime.Name = "txtSendTime"
        Me.txtSendTime.Size = New System.Drawing.Size(104, 21)
        Me.txtSendTime.TabIndex = 6
        Me.txtSendTime.Text = ""
        '
        'txtReadCon
        '
        Me.txtReadCon.Location = New System.Drawing.Point(280, 56)
        Me.txtReadCon.Multiline = True
        Me.txtReadCon.Name = "txtReadCon"
        Me.txtReadCon.Size = New System.Drawing.Size(200, 72)
        Me.txtReadCon.TabIndex = 7
        Me.txtReadCon.Text = ""
        '
        'Label7
        '
        Me.Label7.AutoSize = True
        Me.Label7.Location = New System.Drawing.Point(208, 68)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(66, 17)
        Me.Label7.TabIndex = 8
        Me.Label7.Text = "短信内容："
        '
        'Label8
        '
        Me.Label8.AutoSize = True
        Me.Label8.Location = New System.Drawing.Point(126, 29)
        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(42, 17)
        Me.Label8.TabIndex = 9
        Me.Label8.Text = "条短信"
        '
        'Axalasunsms1
        '
        Me.Axalasunsms1.ContainingControl = Me
        Me.Axalasunsms1.Enabled = True
        Me.Axalasunsms1.Location = New System.Drawing.Point(424, 8)
        Me.Axalasunsms1.Name = "Axalasunsms1"
        Me.Axalasunsms1.OcxState = CType(resources.GetObject("Axalasunsms1.OcxState"), System.Windows.Forms.AxHost.State)
        Me.Axalasunsms1.Size = New System.Drawing.Size(37, 37)
        Me.Axalasunsms1.TabIndex = 4
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(520, 453)
        Me.Controls.Add(Me.GroupBox4)
        Me.Controls.Add(Me.GroupBox3)
        Me.Controls.Add(Me.GroupBox2)
        Me.Controls.Add(Me.GroupBox1)
        Me.MaximizeBox = False
        Me.Name = "Form1"
        Me.Text = "亚商短信控件使用示例(VB.NET版)"
        Me.GroupBox1.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        Me.GroupBox3.ResumeLayout(False)
        Me.GroupBox4.ResumeLayout(False)
        CType(Me.Axalasunsms1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub cmdConnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdConnect.Click
        Axalasunsms1.CommPort = Val(txtCommPort.Text)
        If Axalasunsms1.OpenComm() = 0 Then
            Axalasunsms1.SetMsgCenterNo(txtMsgCenter.Text)
            cmdConnect.Enabled = False
            cmdDisConnect.Enabled = True
            cmdSend.Enabled = True
            cmdRead.Enabled = True
            MsgBox("设备打开成功")
        Else
            MsgBox("设备打开失败")
        End If
    End Sub

    Private Sub cmdDisConnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdDisConnect.Click
        If Axalasunsms1.CloseComm = 0 Then
            cmdConnect.Enabled = True
            cmdDisConnect.Enabled = False
            cmdSend.Enabled = False
            cmdRead.Enabled = False
            MsgBox("设备关闭成功")
        Else
            MsgBox("设备关闭失败")
        End If
    End Sub

    Private Sub cmdSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSend.Click
        Dim lngMsgType As Long
        If chkBlink.Checked Then
            lngMsgType = lngMsgType + 2
        End If
        If chkFlash.Checked Then
            lngMsgType = lngMsgType + 4
        End If
        If Axalasunsms1.SendMsg(txtNo.Text, txtCon.Text, "", lngMsgType, False) = 0 Then
            MsgBox("发送成功")
        Else
            MsgBox("发送成功")
        End If
    End Sub

    Private Sub Axalasunsms1_OnReceive(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Axalasunsms1.OnReceive
        Dim sNo As String, sCon As String, sMsgCenterNo As String
        Dim dSendTime As Date, lTimeZone As Integer
        If Axalasunsms1.ReadMsg(sNo, sCon, sMsgCenterNo, dSendTime, lTimeZone) = 0 Then
            txtReceive.Text = dSendTime & "收到来自" & sNo & "的短信，短信中心号：" & sMsgCenterNo & "内容：" & sCon
        End If
    End Sub

    Private Sub cmdRead_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdRead.Click
        Dim sNo As String, sCon As String, sMsgCenterNo As String
        Dim dSendTime As Date, lTimeZone As Integer
        If Axalasunsms1.ReadMsgByIndex(CInt(txtIndex.Text), sNo, sCon, sMsgCenterNo, dSendTime, lTimeZone) = 0 Then
            txtFromNo.Text = CStr(sNo)
            txtSendTime.Text = CStr(dSendTime)
            txtReadCon.Text = CStr(sCon)
        End If
    End Sub


End Class