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

原创 2003年09月12日 10:33:00

通过设置和读取注册表,可以实现我们的应用程序随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 NothingThen
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(14215)
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(016)
Me.btnSave.Name = "btnSave"
Me.btnSave.Size = New System.Drawing.Size(14424)
Me.btnSave.TabIndex = 32
Me.btnSave.Text = "保存设置"
'
'
Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(513)
Me.ClientSize = New System.Drawing.Size(14440)
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 

Windows程序中实现程序开机自启动

前几天要实现一个程序开机自启动的功能。很快就找了到实现这个功能的代码,主要的思路就是更改注册表的内容。 BOOL CMainWnd::SetAutoRun()//开机自动运行 { //写...
  • u012501459
  • u012501459
  • 2013年11月30日 18:01
  • 2477

windows将tomcat配置成系统服务开机自启动

在windows上有部署一个tomcat服务,需要在每次开机的时候自动启动,于是研究了下。并将步骤记录下来:       1.  首先在【环境变量】--> 【系统变量】中增加CATALINA_HOME...
  • sulong507
  • sulong507
  • 2016年11月23日 14:37
  • 4726

QT编写Windows开机启动程序

让软件在系统启动时自动运行,可通过修改注册表实现。 在\HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run中添加需启动的...
  • weiren2006
  • weiren2006
  • 2012年04月09日 23:47
  • 4069

Qt Windows下开机自动启动自己的程序

void Widget::Readregedit() { QString path; QDir dir; path=dir.currentPath();//在QtCreator...
  • chrisfxs
  • chrisfxs
  • 2013年10月27日 23:23
  • 3486

windows服务与自启动程序的区别

在客户端服务器项目实践中,作为服务端必须保持程序的24小时不间断运行,需要做一个监控,当监控到该程序已关闭时则重新启动下。      有两种方法可以实现这个功能: 第一是做windows服务,作为...
  • anddy926
  • anddy926
  • 2013年01月04日 13:44
  • 8746

MongoDB安装并随windows开机自启

MongoDB的官方下载站是http://www.mongodb.org/downloads,可以去上面下载最新的程序下来。在下载页面可以看到,对操作系统支持很全面,OS X、Linux、Wind...
  • Free_Wind22
  • Free_Wind22
  • 2015年03月11日 11:12
  • 2055

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

通过设置和读取注册表,可以实现我们的应用程序随Windows的启动即可执行的功能。下面就是实现的代码:Form1.vbImports Microsoft.Win32.RegistryPublic ...
  • hejishan
  • hejishan
  • 2008年03月11日 12:10
  • 184

windows服务程序启动运行一个程序,弹出窗口

  • 2015年08月19日 15:31
  • 40KB
  • 下载

tomcat随windows自动启动

一:确保tomcat 在点击bin\startup 文件可以正常启动访问; 二:本机安装有JDK; 三:本机环境变量配置:JAVA_HOME:C:\Java\jdk1.7.0_17; 四:本机Tomc...
  • jinjianghai
  • jinjianghai
  • 2016年11月03日 15:52
  • 490

windows环境下配置python脚本的开机启动

windows环境下配置python脚本的开机启动 2013-02-04 23:03:17cnblogs.com-Mike_Zhang-点击数:4 更多0 测...
  • wangzhaopeng0316
  • wangzhaopeng0316
  • 2013年02月05日 22:36
  • 1336
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:编写随Windows启动自动运行的程序
举报原因:
原因补充:

(最多只允许输入30个字)