示例从注册表中读取出CPU的相关信息,向注册表中添加/删除一个开机自启动项目 。
需要的命名空间:
Imports Microsoft.Win32
读取CPU信息
注册表位置:
HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0
读取程序:
Dim myInfo As RegistryKey
myInfo = Registry.LocalMachine.OpenSubKey("HARDWARE\DESCRIPTION\System\CentralProcessor\0")
TextBox1.Text = myInfo.GetValue("VendorIdentifier")
TextBox2.Text = myInfo.GetValue("ProcessorNameString")
TextBox3.Text = myInfo.GetValue("Identifier")
TextBox4.Text = myInfo.GetValue("~MHZ")
添加一个自启动项目:
注册表位置:
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run
写入一个名为LOAD的键值,运行程序C:\LOAD.EXE
Dim key As RegistryKey
key = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
'注意:如果要进行注册表的写入和删除操作,这里最后的True一定要写上,否则会提示无法写入注册表项
key.SetValue("LOAD","LOAD.EXE")
'设置键值使用SetValue
'创建子项使用CreateSubKey
Dim key As RegistryKey
key = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
'注意:如果要进行注册表的写入和删除操作,这里最后的True一定要写上,否则会提示无法写入注册表项
key.DeleteValue("LOAD")
'删除键值使用DeleteValue
'删除子项使用DeleteSubKey