如何对注册表进行操作~~~~~~~~~

Imports Microsoft.Win32

Dim myDec As RegistryKey
Dim myScsi As RegistryKey
Dim myPort As RegistryKey
Dim myBus As RegistryKey
Dim myHd As RegistryKey
Dim myInfo As RegistryKey
Dim myHW As RegistryKey
Dim myLM As RegistryKey
myLM = Registry.LocalMachine
myHW = myLM.OpenSubKey("HARDWARE")
myDec = myHW.OpenSubKey("DEVICEMAP")
myScsi = myDec.OpenSubKey("Scsi")
myPort = myScsi.OpenSubKey("Scsi Port 1")
myBus = myPort.OpenSubKey("Scsi Bus 0")
myHd = myBus.OpenSubKey("Target Id 0")
myInfo = myHd.OpenSubKey("Logical Unit Id 0")
dStr = myInfo.GetValue("Identifier").ToString.Trim & ""
msgbox (dStr)
试试，有可能是空值，如果你的注册表里没有这一项

如何在注册表中....指定的路径中添加一个新项~......

你使用上面的代码后
在myInfo后面加个"."就可以看到很多很多东西，找一下就找到了

能不能解释一下代码....本人比较菜....

哈~~~~~~
Imports Microsoft.Win32'引用

'定义
Dim myDec As RegistryKey
Dim myScsi As RegistryKey
Dim myPort As RegistryKey
Dim myBus As RegistryKey
Dim myHd As RegistryKey
Dim myInfo As RegistryKey
Dim myHW As RegistryKey
Dim myLM As RegistryKey
'LocalMachine这个你打开注册表对一下就知道了
myLM = Registry.LocalMachine
'读子键
myHW = myLM.OpenSubKey("HARDWARE")
myDec = myHW.OpenSubKey("DEVICEMAP")
myScsi = myDec.OpenSubKey("Scsi")
myPort = myScsi.OpenSubKey("Scsi Port 1")
myBus = myPort.OpenSubKey("Scsi Bus 0")
myHd = myBus.OpenSubKey("Target Id 0")
myInfo = myHd.OpenSubKey("Logical Unit Id 0")
'得到值
dStr = myInfo.GetValue("Identifier").ToString.Trim & ""
'Msgbox
msgbox (dStr)

要不要 dim dStr as string

运行到 myInfo = myHd.OpenSubKey("Logical Unit Id 0") 出错......未将对象引用设置到对象的实例。

怎么办呀////

[此贴子已经被作者于2007-7-24 15:02:36编辑过]

要不要 dim dStr as string？
你说要不要呢？
出错？
你打开注册表看看有没有"Logical Unit Id 0"这个子键
没有的话当然出错

??????????谢过高手了.........

没有找到添加新的字符串的东西.......怎么办........