VB.NET讓軟體隨系統啟動運行

編寫隨Windows啟動啟動並執行程式
通過設定和讀取註冊表，
可以實現我們的應用程式隨Windows的啟動即可執行檔功能。
下面就是實現的代碼：

Code:

1. form1.vb   
2.   
3. imports Microsoft.Win32.Registry   
4. Public Class Form1   
5.   Inherits System.Windows.Forms.Form  
6.  
7. #region " Windows 表單設計器產生的程式碼 "   
8.   Public Sub New()   
9.     MyBase.New()   
10.     '該調用是 Windows 表單設計器所必需的。   
11.     InitializeComponent()   
12.     '在 InitializeComponent() 調用之後添加任何初始化   
13.   End Sub  
14.   
15.   '表單重寫處置以清理組件列表。   
16.   Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)   
17.     If disposing Then  
18.       If Not (components Is Nothing) Then  
19.         components.Dispose()   
20.       End If  
21.     End If  
22.     MyBase.Dispose(disposing)   
23.   End Sub  
24.   
25.   'Windows 表單設計器所必需的   
26.   Private components As System.ComponentModel.IContainer   
27.   
28.   '注意：以下過程是 Windows 表單設計器所必需的   
29.   '可以使用 Windows 表單設計器修改此過程。   
30.   '不要使用代碼編輯器修改它。   
31.   Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox   
32.   Friend WithEvents btnSave As System.Windows.Forms.Button   
33.    Private Sub InitializeComponent()   
34.     Me.CheckBox1 = New System.Windows.Forms.CheckBox()   
35.     Me.btnSave = New System.Windows.Forms.Button()   
36.     Me.SuspendLayout()   
37.     '   
38.     'CheckBox1   
39.     '   
40.     Me.CheckBox1.BackColor = System.Drawing.SystemColors.Control   
41.     Me.CheckBox1.Checked = True  
42.     Me.CheckBox1.CheckState = System.Windows.Forms.CheckState.Checked   
43.     Me.CheckBox1.ForeColor = System.Drawing.SystemColors.ControlText   
44.     Me.CheckBox1.ImeMode = System.Windows.Forms.ImeMode.NoControl   
45.     Me.CheckBox1.Name = "CheckBox1"  
46.     Me.CheckBox1.RightToLeft = System.Windows.Forms.RightToLeft.Yes   
47.     Me.CheckBox1.Size = New System.Drawing.Size(142, 15)   
48.     Me.CheckBox1.TabIndex = 21   
49.     Me.CheckBox1.Text = "Windows開機即運行"  
50.     Me.CheckBox1.TextAlign = System.Drawing.ContentAlignment.MiddleRight   
51.     '   
52.     'btnSave   
53.     '   
54.     Me.btnSave.BackColor = System.Drawing.SystemColors.Control   
55.     Me.btnSave.Font = New System.Drawing.Font("宋體", 10.0!)   
56.     Me.btnSave.ForeColor = System.Drawing.SystemColors.ControlText   
57.     Me.btnSave.ImeMode = System.Windows.Forms.ImeMode.NoControl   
58.     Me.btnSave.Location = New System.Drawing.Point(0, 16)   
59.     Me.btnSave.Name = "btnSave"  
60.     Me.btnSave.Size = New System.Drawing.Size(144, 24)   
61.     Me.btnSave.TabIndex = 32   
62.     Me.btnSave.Text = "儲存設定"  
63.     '   
64.     'Form1   
65.     '   
66.     Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)   
67.     Me.ClientSize = New System.Drawing.Size(144, 40)   
68.     Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.btnSave, Me.CheckBox1})   
69.     Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow   
70.     Me.Name = "Form1"  
71.     Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen   
72.     Me.Text = "Windows開機即運行"  
73.     Me.ResumeLayout(False)   
74.   
75.   End Sub 
76.  
77. #end Region   
78.   
79.   Dim Reg As Microsoft.Win32.RegistryKey   
80.   Private Sub InitVar()   
81.     If btnSave.Visible = True Then  
82.   
83.     End If  
84.     Reg = CurrentUser.OpenSubKey("SoftwareMicrosoftWindowsCurrentVersionRun", True)   
85.     If Reg.GetValue("MengXianHui") <> "" Then  
86.       CheckBox1.Checked = True  
87.     Else  
88.       CheckBox1.Checked = False  
89.     End If  
90.   End Sub  
91.   Private Sub SaveSettings()   
92.     If CheckBox1.Checked = True Then  
93.       Reg = CurrentUser.OpenSubKey("SoftwareMicrosoftWindowsCurrentVersionRun", True)   
94.       Reg.SetValue("MengXianHui", Application.ExecutablePath)   
95.     Else  
96.       Reg = CurrentUser.OpenSubKey("SoftwareMicrosoftWindowsCurrentVersionRun", True)   
97.       Reg.SetValue("MengXianHui", "")   
98.     End If  
99.     InitVar()   
100.     MessageBox.Show("您已經設定了，請重新啟動電腦看效果。", "提示", _   
101.       MessageBoxButtons.OK, MessageBoxIcon.Information)   
102.     If CheckBox1.Checked = True Then  
103.       Me.Dispose(True)   
104.     End If  
105.   End Sub  
106.   
107.   Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _   
108.     Handles btnSave.Click   
109.     SaveSettings()   
110.   End Sub  
111. End Class