sms.vb.bak

短信源程序代码,请大家试用短信源程序代码,请大家试用短信源程序代码,请大家试用

        Me.DeleteSms_Index.Name = "DeleteSms_Index"
        Me.DeleteSms_Index.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.DeleteSms_Index.Size = New System.Drawing.Size(33, 31)
        Me.DeleteSms_Index.TabIndex = 13
        Me.DeleteSms_Index.Text = ""
        '
        'Label4
        '
        Me.Label4.BackColor = System.Drawing.SystemColors.Control
        Me.Label4.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label4.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label4.Location = New System.Drawing.Point(16, 24)
        Me.Label4.Name = "Label4"
        Me.Label4.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label4.Size = New System.Drawing.Size(75, 13)
        Me.Label4.TabIndex = 12
        Me.Label4.Text = "短信索引号："
        '
        'Frame3
        '
        Me.Frame3.BackColor = System.Drawing.SystemColors.Control
        Me.Frame3.Controls.AddRange(New System.Windows.Forms.Control() {Me.Sms_Receive_Button, Me.ReceiveSms_Text})
        Me.Frame3.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Frame3.Location = New System.Drawing.Point(280, 120)
        Me.Frame3.Name = "Frame3"
        Me.Frame3.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Frame3.Size = New System.Drawing.Size(320, 208)
        Me.Frame3.TabIndex = 9
        Me.Frame3.TabStop = False
        Me.Frame3.Text = "接收短信"
        '
        'Sms_Receive_Button
        '
        Me.Sms_Receive_Button.BackColor = System.Drawing.SystemColors.Control
        Me.Sms_Receive_Button.Cursor = System.Windows.Forms.Cursors.Default
        Me.Sms_Receive_Button.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Sms_Receive_Button.Location = New System.Drawing.Point(104, 168)
        Me.Sms_Receive_Button.Name = "Sms_Receive_Button"
        Me.Sms_Receive_Button.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Sms_Receive_Button.Size = New System.Drawing.Size(91, 31)
        Me.Sms_Receive_Button.TabIndex = 15
        Me.Sms_Receive_Button.Text = "接  收"
        '
        'ReceiveSms_Text
        '
        Me.ReceiveSms_Text.AcceptsReturn = True
        Me.ReceiveSms_Text.AutoSize = False
        Me.ReceiveSms_Text.BackColor = System.Drawing.SystemColors.Window
        Me.ReceiveSms_Text.Cursor = System.Windows.Forms.Cursors.IBeam
        Me.ReceiveSms_Text.ForeColor = System.Drawing.SystemColors.WindowText
        Me.ReceiveSms_Text.Location = New System.Drawing.Point(8, 24)
        Me.ReceiveSms_Text.MaxLength = 0
        Me.ReceiveSms_Text.Multiline = True
        Me.ReceiveSms_Text.Name = "ReceiveSms_Text"
        Me.ReceiveSms_Text.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.ReceiveSms_Text.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
        Me.ReceiveSms_Text.Size = New System.Drawing.Size(304, 137)
        Me.ReceiveSms_Text.TabIndex = 10
        Me.ReceiveSms_Text.Text = ""
        '
        'Frame2
        '
        Me.Frame2.BackColor = System.Drawing.SystemColors.Control
        Me.Frame2.Controls.AddRange(New System.Windows.Forms.Control() {Me.Sms_Send_Button, Me.TelNum_Text, Me.SendSms_Text, Me.Label3, Me.Label2, Me.Label1})
        Me.Frame2.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Frame2.Location = New System.Drawing.Point(16, 160)
        Me.Frame2.Name = "Frame2"
        Me.Frame2.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Frame2.Size = New System.Drawing.Size(253, 256)
        Me.Frame2.TabIndex = 2
        Me.Frame2.TabStop = False
        Me.Frame2.Text = "发送短信"
        '
        'Sms_Send_Button
        '
        Me.Sms_Send_Button.BackColor = System.Drawing.SystemColors.Control
        Me.Sms_Send_Button.Cursor = System.Windows.Forms.Cursors.Default
        Me.Sms_Send_Button.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Sms_Send_Button.Location = New System.Drawing.Point(64, 216)
        Me.Sms_Send_Button.Name = "Sms_Send_Button"
        Me.Sms_Send_Button.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Sms_Send_Button.Size = New System.Drawing.Size(91, 31)
        Me.Sms_Send_Button.TabIndex = 8
        Me.Sms_Send_Button.Text = "发  送"
        '
        'TelNum_Text
        '
        Me.TelNum_Text.AcceptsReturn = True
        Me.TelNum_Text.AutoSize = False
        Me.TelNum_Text.BackColor = System.Drawing.SystemColors.Window
        Me.TelNum_Text.Cursor = System.Windows.Forms.Cursors.IBeam
        Me.TelNum_Text.ForeColor = System.Drawing.SystemColors.WindowText
        Me.TelNum_Text.Location = New System.Drawing.Point(8, 32)
        Me.TelNum_Text.MaxLength = 0
        Me.TelNum_Text.Name = "TelNum_Text"
        Me.TelNum_Text.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.TelNum_Text.Size = New System.Drawing.Size(235, 23)
        Me.TelNum_Text.TabIndex = 6
        Me.TelNum_Text.Text = ""
        '
        'SendSms_Text
        '
        Me.SendSms_Text.AcceptsReturn = True
        Me.SendSms_Text.AutoSize = False
        Me.SendSms_Text.BackColor = System.Drawing.SystemColors.Window
        Me.SendSms_Text.Cursor = System.Windows.Forms.Cursors.IBeam
        Me.SendSms_Text.ForeColor = System.Drawing.SystemColors.WindowText
        Me.SendSms_Text.Location = New System.Drawing.Point(8, 80)
        Me.SendSms_Text.MaxLength = 0
        Me.SendSms_Text.Multiline = True
        Me.SendSms_Text.Name = "SendSms_Text"
        Me.SendSms_Text.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.SendSms_Text.Size = New System.Drawing.Size(237, 95)
        Me.SendSms_Text.TabIndex = 3
        Me.SendSms_Text.Text = ""
        '
        'Label3
        '
        Me.Label3.BackColor = System.Drawing.SystemColors.Control
        Me.Label3.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label3.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label3.Location = New System.Drawing.Point(8, 184)
        Me.Label3.Name = "Label3"
        Me.Label3.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label3.Size = New System.Drawing.Size(241, 29)
        Me.Label3.TabIndex = 7
        Me.Label3.Text = "注：发送内容最多70个汉字或180个英文字母,     超长时自动分段发送。"
        '
        'Label2
        '
        Me.Label2.AutoSize = True
        Me.Label2.BackColor = System.Drawing.SystemColors.Control
        Me.Label2.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label2.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label2.Location = New System.Drawing.Point(8, 64)
        Me.Label2.Name = "Label2"
        Me.Label2.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label2.Size = New System.Drawing.Size(66, 14)
        Me.Label2.TabIndex = 5
        Me.Label2.Text = "手机号码："
        '
        'Label1
        '
        Me.Label1.BackColor = System.Drawing.SystemColors.Control
        Me.Label1.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label1.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label1.Location = New System.Drawing.Point(8, 16)
        Me.Label1.Name = "Label1"
        Me.Label1.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label1.Size = New System.Drawing.Size(79, 15)
        Me.Label1.TabIndex = 4
        Me.Label1.Text = "短信内容："
        '
        'Frame1
        '
        Me.Frame1.BackColor = System.Drawing.SystemColors.Control
        Me.Frame1.Controls.AddRange(New System.Windows.Forms.Control() {Me.Sms_Connection_Button, Me.Sms_Disconnection_Button, Me.State_Show})
        Me.Frame1.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Frame1.Location = New System.Drawing.Point(16, 56)
        Me.Frame1.Name = "Frame1"
        Me.Frame1.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Frame1.Size = New System.Drawing.Size(248, 96)
        Me.Frame1.TabIndex = 0
        Me.Frame1.TabStop = False
        Me.Frame1.Text = "连接诺亚短信猫"
        '
        'Sms_Connection_Button
        '
        Me.Sms_Connection_Button.BackColor = System.Drawing.SystemColors.Control
        Me.Sms_Connection_Button.Cursor = System.Windows.Forms.Cursors.Default
        Me.Sms_Connection_Button.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Sms_Connection_Button.Location = New System.Drawing.Point(24, 56)
        Me.Sms_Connection_Button.Name = "Sms_Connection_Button"
        Me.Sms_Connection_Button.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Sms_Connection_Button.Size = New System.Drawing.Size(91, 31)
        Me.Sms_Connection_Button.TabIndex = 22
        Me.Sms_Connection_Button.Text = "连  接"
        '
        'Sms_Disconnection_Button
        '
        Me.Sms_Disconnection_Button.BackColor = System.Drawing.SystemColors.Control
        Me.Sms_Disconnection_Button.Cursor = System.Windows.Forms.Cursors.Default
        Me.Sms_Disconnection_Button.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Sms_Disconnection_Button.Location = New System.Drawing.Point(136, 56)
        Me.Sms_Disconnection_Button.Name = "Sms_Disconnection_Button"
        Me.Sms_Disconnection_Button.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Sms_Disconnection_Button.Size = New System.Drawing.Size(91, 31)
        Me.Sms_Disconnection_Button.TabIndex = 18
        Me.Sms_Disconnection_Button.Text = "断  开"
        '
        'State_Show
        '
        Me.State_Show.BackColor = System.Drawing.Color.Transparent
        Me.State_Show.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.State_Show.Cursor = System.Windows.Forms.Cursors.Default
        Me.State_Show.ForeColor = System.Drawing.SystemColors.ControlText
        Me.State_Show.Location = New System.Drawing.Point(8, 16)
        Me.State_Show.Name = "State_Show"
        Me.State_Show.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.State_Show.Size = New System.Drawing.Size(233, 29)
        Me.State_Show.TabIndex = 1
        Me.State_Show.TextAlign = System.Drawing.ContentAlignment.TopCenter
        '
        'Label9
        '
        Me.Label9.BackColor = System.Drawing.SystemColors.HighlightText
        Me.Label9.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label9.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label9.Location = New System.Drawing.Point(16, 480)
        Me.Label9.Name = "Label9"
        Me.Label9.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label9.Size = New System.Drawing.Size(585, 17)
        Me.Label9.TabIndex = 28
        Me.Label9.Text = "公司网址：www.taobaozhe.com 咨询与售后服务热线：010-87416460"
        Me.Label9.TextAlign = System.Drawing.ContentAlignment.TopCenter
        '
        'Label8
        '
        Me.Label8.AutoSize = True
        Me.Label8.BackColor = System.Drawing.SystemColors.Control
        Me.Label8.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label8.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label8.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label8.Location = New System.Drawing.Point(240, 456)
        Me.Label8.Name = "Label8"
        Me.Label8.RightToLeft = System.Windows.Forms.RightToLeft.No