sms.vb

来自「用于GSM通讯开发的短信Dll。 适应各种机型以及wavecome芯片！」· VB 代码 · 共 654 行 · 第 1/3 页

        '
        Me.DeleteSms_Index.AcceptsReturn = True
        Me.DeleteSms_Index.BackColor = System.Drawing.SystemColors.Window
        Me.DeleteSms_Index.Cursor = System.Windows.Forms.Cursors.IBeam
        Me.DeleteSms_Index.ForeColor = System.Drawing.SystemColors.WindowText
        Me.DeleteSms_Index.Location = New System.Drawing.Point(88, 16)
        Me.DeleteSms_Index.MaxLength = 0
        Me.DeleteSms_Index.Name = "DeleteSms_Index"
        Me.DeleteSms_Index.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.DeleteSms_Index.Size = New System.Drawing.Size(33, 21)
        Me.DeleteSms_Index.TabIndex = 13
        '
        '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.Add(Me.Sms_Receive_Button)
        Me.Frame3.Controls.Add(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 = "接  收"
        Me.Sms_Receive_Button.UseVisualStyleBackColor = False
        '
        'ReceiveSms_Text
        '
        Me.ReceiveSms_Text.AcceptsReturn = True
        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
        '
        'Frame2
        '
        Me.Frame2.BackColor = System.Drawing.SystemColors.Control
        Me.Frame2.Controls.Add(Me.Sms_Send_Button)
        Me.Frame2.Controls.Add(Me.TelNum_Text)
        Me.Frame2.Controls.Add(Me.SendSms_Text)
        Me.Frame2.Controls.Add(Me.Label3)
        Me.Frame2.Controls.Add(Me.Label2)
        Me.Frame2.Controls.Add(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 = "发  送"
        Me.Sms_Send_Button.UseVisualStyleBackColor = False
        '
        'TelNum_Text
        '
        Me.TelNum_Text.AcceptsReturn = True
        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, 21)
        Me.TelNum_Text.TabIndex = 6
        '
        'SendSms_Text
        '
        Me.SendSms_Text.AcceptsReturn = True
        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
        '
        '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(65, 12)
        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.Add(Me.Sms_Connection_Button)
        Me.Frame1.Controls.Add(Me.Sms_Disconnection_Button)
        Me.Frame1.Controls.Add(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 = "连接GSM MODEM"
        '
        '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 = "连  接"
        Me.Sms_Connection_Button.UseVisualStyleBackColor = False
        '
        '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 = "断  开"
        Me.Sms_Disconnection_Button.UseVisualStyleBackColor = False
        '
        '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
        '
        'Label7
        '
        Me.Label7.BackColor = System.Drawing.SystemColors.Control