⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 sms.vb

📁 短信源程序代码,请大家试用短信源程序代码,请大家试用短信源程序代码,请大家试用
💻 VB
📖 第 1 页 / 共 3 页
字号:
🔍
123 
        Me.Label8.TabIndex = 27
        Me.Label8.Text = "版权所有 北京诺亚软件有限公司"
        '
        'Label7
        '
        Me.Label7.BackColor = System.Drawing.SystemColors.Control
        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(49, 13)
        Me.Label6.TabIndex = 24
        Me.Label6.Text = "端口号："
        '
        'Label5
        '
        Me.Label5.BackColor = System.Drawing.SystemColors.Control
        Me.Label5.Cursor = System.Windows.Forms.Cursors.Default
        Me.Label5.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label5.Location = New System.Drawing.Point(16, 424)
        Me.Label5.Name = "Label5"
        Me.Label5.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label5.Size = New System.Drawing.Size(601, 25)
        Me.Label5.TabIndex = 16
        Me.Label5.Text = "注：本短信二次开发接口适用于诺亚短信设备。"
        '
        'mainsms
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 13)
        Me.ClientSize = New System.Drawing.Size(618, 511)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Frame5, Me.Sms_Exit_Button, Me.Frame4, Me.Frame3, Me.Frame2, Me.Frame1, Me.Label9, Me.Label8, Me.Label6, Me.Label7, Me.Label5, 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.Frame3.ResumeLayout(False)
        Me.Frame2.ResumeLayout(False)
        Me.Frame1.ResumeLayout(False)
        Me.ResumeLayout(False)

    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
			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.noahsoft.cn)试用产品//"
		
		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
123

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -