编写随Windows启动自动运行的程序

VB.NET 专栏收录该内容
13 篇文章 0 订阅

通过设置和读取注册表,可以实现我们的应用程序随Windows的启动即可执行的功能。下面就是实现的代码:

Form1.vb

Imports  Microsoft.Win32.Registry
Public   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
< 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  =   " 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( " Software/Microsoft/Windows/CurrentVersion/Run " 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( " Software/Microsoft/Windows/CurrentVersion/Run " True )
Reg.SetValue(
" MengXianHui " , Application.ExecutablePath)
Else
Reg 
=  CurrentUser.OpenSubKey( " Software/Microsoft/Windows/CurrentVersion/Run " 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 Sub
End Class  

  • 0
    点赞
  • 1
    评论
  • 0
    收藏
  • 一键三连
    一键三连
  • 扫一扫,分享海报

相关推荐
©️2020 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值