节奏大师的视频:如何编写随Windows启动运行的程序(How to write programs tha...
来源:百度文库 编辑:偶看新闻 时间:2024/05/04 20:03:22
如何编写随Windows启动运行的程序[ English ]
2008-2-24 1:52:38 中国学网跟贴 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
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
转帖于 Xue163.com_VB.NET
2008-2-24 1:52:38 中国学网跟贴 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
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
转帖于 Xue163.com_VB.NET
如何让自己编写的程序运行
如何在启动WINDOWS时禁止自动运行程序的运行
如何让程序在Windows XP启动期间运行
学生如何配一台适合编写,运行程序的电脑?
如何运行C语言编写的CGI程序?
如何让Delphi编写的程序定时运行?
为什么我的电脑启动时总会自动运行“Windows Help”这个程序阿?如何删除?
C语言编写的程序怎么给他加上在WINDOWS下运行的程序截面
如何编写自动运行程序脚本
如何关闭随windows启动一起开启的程序
【如何操控WINDOWS的自启动程序?】
如何终止windows的自启动程序
运行控制windows启动程序的 字母是什么
请问用什么计算机语言可以编写出在WINDOWS MOBILE下运行的程序?
windows XP下能运行C#编写出的程序吗?
基于FOSBASE编写的程序怎么在WINDOWS系统下运行?
如何在windows里面启动一个程序的时候,让另一个程序也伴随运行?需要在这个程序后面加什么参数?
windows是用什么程序编写的
奇怪的随WINDOWS启动程序
在运行中输入什么可以查看windows启动是运行的程序
如何删除启动windows时,自动运行的应用程序?
如何删除启动计算后自动运行的程序?
如何让一个自动启动的程序自动最小化运行?
如何取消计算机启动时自动运行的程序