科技行者

行者学院 转型私董会 科技行者专题报道 网红大战科技行者

知识库

知识库 安全导航

至顶网软件频道如何编写随Windows启动运行的程序

如何编写随Windows启动运行的程序

  • 扫一扫
    分享文章到微信

  • 扫一扫
    关注官方公众号
    至顶头条

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

作者:中国IT实验室 来源:中国IT实验室 2007年9月13日

关键字: Windows 编写 编程

  • 评论
  • 分享微博
  • 分享邮件
  

通过设置和读取注册表,可以实现我们的应用程序随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 

查看本文来源

    • 评论
    • 分享微博
    • 分享邮件
    闂備緡鍙庨崰鏇炩枎閵忋垺濯奸柕蹇嬪€栭~锟�

    婵犵鈧啿鈧綊鎮樻径鎰畺闁靛ň鏅滄慨婊堟偨椤栨稓鎽冮柟鐑╂櫊瀹曟岸宕堕埡鍌滄殸闂佽鍨伴崢鏍姳閿涘嫭鍠嗘い銈呭姬婵☆偅婢樺Λ妤呮偂濞嗘挸瀚夐柍褜鍓熷顒侊紣娓氣偓閻涙捇鏌涘┑鍛樂缂佹鐭傞獮搴ㄥ焵椤掑嫬瀚夋い鏍ㄧ懁缁诲棝鏌熼褍鐏茬紒杈ㄧ箞閺屽洭鏁愰崟顓犳澖闁荤姳闄嶉崹钘壩i崟顖涘殜闁硅泛顫曢埀顒€锕︾槐鏃堝箣閻愬弬妤呮煛閸偄鐏﹂柛瀣墬缁傛帞鎹勯搹瑙勵啈闂佸搫瀚烽崹閬嶅磻瀹ュ鍎嶉柛鏇ㄥ墯娴犳ê霉閿濆棗鈻曢柍褜鍓氶弻銊ф閻愬鈻曢悗锝傛櫇椤忛亶鏌曢崱顓熷

    重磅专题
    往期文章
    最新文章