通过设置和读取注册表,
可以实现我们的应用程序随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
分享到:
相关推荐
项目中使用python写一个监控程序,每隔5秒监控目录,发现文件就...为了谨防程序崩溃,特别编写一个守护进程程序,时刻监控程序是否崩溃并重新启动。 博文: http://blog.csdn.net/alex_bean/article/details/77923178
一个Windows批处理脚本,可以实现秒级别延时启动程序
C++编写的具有病毒基本功能的程序设计 实现的功能 (1)在主程序中要求将程序拷贝到系统盘\windows\目录下并更名为taskmgr.exe,同时复制第二份到系统盘\windows\system32目录下并更名为explorer.exe。用以混淆用户...
Springboot-服务-Windows 一键启动、停止脚本
用列表显示系统正在运行的程序, 编写控制面板小应用程序,编写Windows服务,执行一个外部程序直到其结束, 阻止程序重复运行, 动画鼠标,限制鼠标移动区域, 控制键盘指示灯,鼠标形状,线程操作, 访问DLL中的...
Windows虚拟化了显示硬件,使为Windows编写的程序可使用任何具有Windows设备驱动程序的视频卡或打印机,而程序无需确定系统相连的设备类型。 对Windows开发者来说,将与设备无关的图形接口输出到IBM PC上不是件轻松...
由Windows启动服务,并记录服务运行情况,在服务终止(如关机等)后自动根据现有密保卡,运行NET USER修改指定用户的密码(本程序中指定MyTestUser,可自行修改),将对应生成的密钥写到密码提示信息中。在下一次...
运行环境 Windows XP/7 系统 开发工具 visual C++ 6.0 程序语言 C 语言 2.软件功能说明 贪吃蛇游戏 要求: 1.欢迎界面及游戏说明 2.初始化游戏界面 3.初始化蛇 4.显示蛇模块 5.显示食物模块 6.显示等级模块 7.显示...
1. 在windows 下编写一个控制台应用...在windows 环境下编写一个控制台应用程序,输出系统中正在运行的进程的信息,包括进程号、进程所运行的程序、进程的启动时间、在核心态下消耗的时间以及在用户态下消耗的时间。
用VB 编写的小程序 实现Windows系统(95/98/2000/xp/vista/win7/以及服务器windows系统均可)的定时关机和重新启动,无需安装,单击运行,小巧方便。程序编写,难免存在不足,如有软件漏洞,造成信息损失,系统故障,...
BatServices.exe: 64位程序,使用C++编写的服务程序,其启动后,自动调用run.bat文件,只要服务处于运行状态,run.bat结束后,会自动重新运行run.bat,相当于一个守护进程 run.bat: 真实运行的内容,可自主编辑 ...
本文使用QtService演示如何实现一个windows下的后台进程,可用于一些简单的windows服务程序中。 博客介绍:https://luoyayun361.blog.csdn.net/article/details/120655011?spm=1001.2014.3001.5502
程序开发者,可用此软件进行安装和卸载自己编写的windows服务)本人写了个windows服务,安装,卸载 都比较麻烦。所以就写了个软件,对开发程序的人很有用的,不用dos命令来进行服务的操作了,我用的还行。我的运行...
为命令行式操作系统编写的MS-DOS下的程序可以在窗口中运行,使得程序可以在多任务基础上可以使用使用,虽然这个版本只是为家庭用户设计的,很多游戏和娱乐程序仍然要求DOS存取。 MS-DOS的文件管理程序被基于图标的...
用vs2008编写 本程序以服务形式运行。当然,双击它也是开始监听了…… 安装服务:FlashThief.exe -install 卸载服务:FlashThief.exe -uninstall 安装服务后,默认启动方式为自动启动。你要安装后就运行,请使用 ...
本软件综合了,windows服务控制(安装卸载等),windows服务启动程序(服务控制定时运行程序),动态编译(根据SQL语句生成对应的实体类),反射(将泛型传递给方法,根据类字段类型判断数据类型),泛型的灵活使用...
因为本程序没有使用MFC,VCL等类库,用Windows SDK(Windows Software Development kit,即windows软件开发工具包)编写,可以说是在Windows下编程的最低层,也是windows程序的标准编写方式。相信本程序对理解在windows...
DELPHI专题文档-程序应用 更改Windows95的墙纸 类似于VB中的doevents功能 DELPHI下的多线程程序设计 用Delphi 3.0编制MP3音乐点歌台 ...如何将你的程序放在Windows启动中 获取当前程序的目录
DELPHI专题文档-程序应用 更改Windows95的墙纸 类似于VB中的doevents功能 DELPHI下的多线程程序设计 用Delphi 3.0编制MP3音乐点歌台 ...如何将你的程序放在Windows启动中 获取当前程序的目录