[置顶] 【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，值为当前程序完整路径的键值对。完成将当前程序添加到启动项的目的。