[置顶] 【VB.NET2010】注册表写入方法

这里，以添加启动项为例：

 

Imports Microsoft.Win32
Imports System.Reflection.Assembly    

Private Sub SetAuto_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SetAuto.Click
        'ok at 13-08-13 设置开机自动启动
        Dim kReg As RegistryKey
        MsgBox("如果弹出添加启动项的警告，请允许本次添加操作", MsgBoxStyle.Information, "添加开机启动")
        kReg = Registry.LocalMachine
        kReg = kReg.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
        'kReg.CreateSubKey("ThreadManager", RegistryKeyPermissionCheck.ReadWriteSubTree)  '这个是给Run再添加一个ThreadManager子项
        kReg.SetValue("ThreadManager", """" & GetExecutingAssembly.Location & """ autorun") '需要引用System.Reflection.Assembly，这个是给Run这个项，添加一个键值对
        kReg.Close()
        kReg = Nothing
    End Sub

这里的这一段代码可以为你的程序在Run这个启动项中，添加一个键名为：ThreadManager，值为当前程序完整路径的键值对。完成将当前程序添加到启动项的目的。