编写自动启动运行的程序代码,VB.Net代码库,德仔网

代码语言
代码分类
【VB.Net】编写自动启动运行的程序
作者:Dezai.CN / 发布于2013/6/18/ 1645

	Form1.vb

	Imports Microsoft.Win32.Registry
	Public Class Form1
	Inherits System.Windows.Forms.Form
	#Region &quot; Windows 窗体设计器生成的代码 &quot;
	Public Sub New()
	MyBase.New()
	'该调用是 Windows 窗体设计器所必需的。
	InitializeComponent()
	'在 InitializeComponent() 调用之后添加任何初始化
	End Sub
	'窗体重写处置以清理组件列表。
	Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
	If disposing Then
	If Not (components Is Nothing) Then
	components.Dispose()
	End If
	End If
	MyBase.Dispose(disposing)
	End Sub
	'Windows 窗体设计器所必需的
	Private components As System.ComponentModel.IContainer
	'注意：以下过程是 Windows 窗体设计器所必需的
	'可以使用 Windows 窗体设计器修改此过程。
	'不要使用代码编辑器修改它。
	Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox
	Friend WithEvents btnSave As System.Windows.Forms.Button
	<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
	Me.CheckBox1 = New System.Windows.Forms.CheckBox()
	Me.btnSave = New System.Windows.Forms.Button()
	Me.SuspendLayout()
	'
	'CheckBox1
	'
	Me.CheckBox1.BackColor = System.Drawing.SystemColors.Control
	Me.CheckBox1.Checked = True
	Me.CheckBox1.CheckState = System.Windows.Forms.CheckState.Checked
	Me.CheckBox1.ForeColor = System.Drawing.SystemColors.ControlText
	Me.CheckBox1.ImeMode = System.Windows.Forms.ImeMode.NoControl
	Me.CheckBox1.Name = &quot;CheckBox1&quot;
	Me.CheckBox1.RightToLeft = System.Windows.Forms.RightToLeft.Yes
	Me.CheckBox1.Size = New System.Drawing.Size(142, 15)
	Me.CheckBox1.TabIndex = 21
	Me.CheckBox1.Text = &quot;Windows开机即运行&quot;
	Me.CheckBox1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
	'
	'btnSave
	'
	Me.btnSave.BackColor = System.Drawing.SystemColors.Control
	Me.btnSave.Font = New System.Drawing.Font(&quot;宋体&quot;, 10.0!)
	Me.btnSave.ForeColor = System.Drawing.SystemColors.ControlText
	Me.btnSave.ImeMode = System.Windows.Forms.ImeMode.NoControl
	Me.btnSave.Location = New System.Drawing.Point(0, 16)
	Me.btnSave.Name = &quot;btnSave&quot;
	Me.btnSave.Size = New System.Drawing.Size(144, 24)
	Me.btnSave.TabIndex = 32
	Me.btnSave.Text = &quot;保存设置&quot;
	'
	'Form1
	'
	Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
	Me.ClientSize = New System.Drawing.Size(144, 40)
	Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.btnSave, Me.CheckBox1})
	Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
	Me.Name = &quot;Form1&quot;
	Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
	Me.Text = &quot;Windows开机即运行&quot;
	Me.ResumeLayout(False)
	End Sub
	#End Region
	Dim Reg As Microsoft.Win32.RegistryKey
	Private Sub InitVar()
	If btnSave.Visible = True Then
	End If
	Reg = CurrentUser.OpenSubKey(&quot;Software\Microsoft\Windows\CurrentVersion\Run&quot;, True)
	If Reg.GetValue(&quot;MengXianHui&quot;) <> &quot;&quot; Then
	CheckBox1.Checked = True
	Else
	CheckBox1.Checked = False
	End If
	End Sub
	Private Sub SaveSettings()
	If CheckBox1.Checked = True Then
	Reg = CurrentUser.OpenSubKey(&quot;Software\Microsoft\Windows\CurrentVersion\Run&quot;, True)
	Reg.SetValue(&quot;MengXianHui&quot;, Application.ExecutablePath)
	Else
	Reg = CurrentUser.OpenSubKey(&quot;Software\Microsoft\Windows\CurrentVersion\Run&quot;, True)
	Reg.SetValue(&quot;MengXianHui&quot;, &quot;&quot;)
	End If
	InitVar()
	MessageBox.Show(&quot;您已经设置了，请重新启动计算机看效果。&quot;, &quot;提示&quot;, _
	MessageBoxButtons.OK, MessageBoxIcon.Information)
	If CheckBox1.Checked = True Then
	Me.Dispose(True)
	End If
	End Sub
	Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
	Handles btnSave.Click
	SaveSettings()
	End Sub
	End Class
试试其它关键字
　自动启动运行　
同语言下
可能有用的
Dezai.CN贡献的其它代码(4037)