• 您的位置我爱Aspx >> VB.Net >> 编写随Windows启动运行的程序

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

  • 作者:aspxer  来源:internet  日期:2007-4-25 20:55:38  关键字:

  • 编写随Windows启动运行的程序 作者：孟宪会 出自：【孟宪会之精彩世界】 发布日期：2003年9月11日 23点12分46秒

    通过设置和读取注册表，可以实现我们的应用程序随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() &#123;Me.btnSave, Me.CheckBox1&#125;) 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

    【我对这篇文章有话说?】
  • 广告位招租，广告代号：content_468_15
  • 上一篇：遍历主机的所有IP地址
    下一篇：一个不需要CDO和IIS发送邮件的例子
  • 相关文章