编写随Windows启动自动运行的程序
2008-04-24 15:43
429 查看
编写随Windows启动自动运行的程序 【孟宪会之精彩世界】 通过设置和读取注册表,可以实现我们的应用程序随Windows的启动即可执行的功能。下面就是实现的代码:
Form1.vb
Imports Microsoft.Win32.RegistryPublic Class Form1 Inherits System.Windows.Forms.Form#Region " Windows 窗体设计器生成的代码 " 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 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 = "CheckBox1" Me.CheckBox1.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.CheckBox1.Size = New System.Drawing.Size(142, 15) Me.CheckBox1.TabIndex = 21 Me.CheckBox1.Text = "Windows开机即运行" Me.CheckBox1.TextAlign = System.Drawing.ContentAlignment.MiddleRight ' 'btnSave ' Me.btnSave.BackColor = System.Drawing.SystemColors.Control Me.btnSave.Font = New System.Drawing.Font("宋体", 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 = "btnSave" Me.btnSave.Size = New System.Drawing.Size(144, 24) Me.btnSave.TabIndex = 32 Me.btnSave.Text = "保存设置" ' '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 = "Form1" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "Windows开机即运行" 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("SoftwareMicrosoftWindowsCurrentVersionRun", True) If Reg.GetValue("MengXianHui") <> "" Then CheckBox1.Checked = True Else CheckBox1.Checked = False End If End Sub Private Sub SaveSettings() If CheckBox1.Checked = True Then Reg = CurrentUser.OpenSubKey("SoftwareMicrosoftWindowsCurrentVersionRun", True) Reg.SetValue("MengXianHui", Application.ExecutablePath) Else Reg = CurrentUser.OpenSubKey("SoftwareMicrosoftWindowsCurrentVersionRun", True) Reg.SetValue("MengXianHui", "") End If InitVar() MessageBox.Show("您已经设置了,请重新启动计算机看效果。", "提示", _ 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 SubEnd Class
Form1.vb
Imports Microsoft.Win32.RegistryPublic Class Form1 Inherits System.Windows.Forms.Form#Region " Windows 窗体设计器生成的代码 " 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 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 = "CheckBox1" Me.CheckBox1.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.CheckBox1.Size = New System.Drawing.Size(142, 15) Me.CheckBox1.TabIndex = 21 Me.CheckBox1.Text = "Windows开机即运行" Me.CheckBox1.TextAlign = System.Drawing.ContentAlignment.MiddleRight ' 'btnSave ' Me.btnSave.BackColor = System.Drawing.SystemColors.Control Me.btnSave.Font = New System.Drawing.Font("宋体", 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 = "btnSave" Me.btnSave.Size = New System.Drawing.Size(144, 24) Me.btnSave.TabIndex = 32 Me.btnSave.Text = "保存设置" ' '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 = "Form1" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "Windows开机即运行" 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("SoftwareMicrosoftWindowsCurrentVersionRun", True) If Reg.GetValue("MengXianHui") <> "" Then CheckBox1.Checked = True Else CheckBox1.Checked = False End If End Sub Private Sub SaveSettings() If CheckBox1.Checked = True Then Reg = CurrentUser.OpenSubKey("SoftwareMicrosoftWindowsCurrentVersionRun", True) Reg.SetValue("MengXianHui", Application.ExecutablePath) Else Reg = CurrentUser.OpenSubKey("SoftwareMicrosoftWindowsCurrentVersionRun", True) Reg.SetValue("MengXianHui", "") End If InitVar() MessageBox.Show("您已经设置了,请重新启动计算机看效果。", "提示", _ 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 SubEnd Class
相关文章推荐
- 编写随Windows启动自动运行的程序
- 编写随Windows启动自动运行的程序
- 编写随Windows启动自动运行的程序
- windows中系统开机自动运行程序和自动启动服务
- windows 不登录自动运行/启动程序
- 编写随Windows启动运行的程序
- windows中系统开机自动运行程序和自动启动服务
- 在Windows 7 下使用Visual Studio 2010 编写自动申请管理员权限运行的程序
- 让你写的c#程序一开机就自动运行 Windows服务实现开机启动
- 编写随Windows启动运行的程序
- Windows系统开机自动运行程序和自动启动服务
- 编写随Windows启动运行的程序
- 让程序在Windows CE系统启动时自动运行的两种方法
- 让程序在Windows启动时自动运行并自动隐藏
- 编写随Windows启动运行的程序
- java修改windows注册表设置程序自动运行
- Windows自动启动程序的十大藏身之所(转载)
- Windows自动启动程序的十大藏身之所
- 重新想象 Windows 8 Store Apps (69) - 其它: 自定义启动屏幕, 程序的运行位置, 保持屏幕的点亮状态, MessageDialog, PopupMenu
- Qt Windows下开机自动启动自己的程序