注册表的读写

作者在 2007-07-25 22:14:00 发布以下内容
 

示例从注册表中读取出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

删除/添加的LOAD键值:
Dim key As RegistryKey
key = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
'其他可自启动的位置请看user1/22158/archives/2007/15944.html
'注意:如果要进行注册表的写入和删除操作,这里最后的True一定要写上,否则会提示无法写入注册表项
key.DeleteValue("LOAD")
'删除键值使用DeleteValue
'删除子项使用DeleteSubKey
 
宝贝资料 | 阅读 1297 次
文章评论,共0条
游客请输入验证码