读取注册表项的值

[slysmart]

Sub Button1Click(sender As Object, e As EventArgs)

Dim Root1 As RegistryKey = Registry.LocalMachine
Dim key1 As RegistryKey = Root1.OpenSubKey ( "SOFTWARE\Autodesk\CSP" ,true )
textBox1.Text =key1.GetValue("Oce TCS")
End Sub


调试时报错， "未处理NullReferenceException"

[yishumei]

楼主先查一下注册表里有没有"LocalMachine\SOFTWARE\Autodesk\CSP"这个项吧

[slysmart]

引用 1 楼 yishumei 的回复:

楼主先查一下注册表里有没有"LocalMachine\SOFTWARE\Autodesk\CSP"这个项吧

肯定有的，我还换过键值，错误一样

[yishumei]

引用 2 楼 slysmart 的回复:

[quote=引用 1 楼 yishumei 的回复:] 楼主先查一下注册表里有没有"LocalMachine\SOFTWARE\Autodesk\CSP"这个项吧

肯定有的，我还换过键值，错误一样[/quote] "LocalMachine\SOFTWARE\Autodesk\CSP"里有Oce TCS这个项吗？ If (key1 Is Nothing) Then Else TextBox1.Text = key1.GetValue("ReleaseVersion") key1.Close() End If 楼主可以断点调试一下。

[slysmart]

引用 3 楼 yishumei 的回复:

[quote=引用 2 楼 slysmart 的回复:] [quote=引用 1 楼 yishumei 的回复:] 楼主先查一下注册表里有没有"LocalMachine\SOFTWARE\Autodesk\CSP"这个项吧

肯定有的，我还换过键值，错误一样[/quote] "LocalMachine\SOFTWARE\Autodesk\CSP"里有Oce TCS这个项吗？ If (key1 Is Nothing) Then Else TextBox1.Text = key1.GetValue("ReleaseVersion") key1.Close() End If 楼主可以断点调试一下。[/quote] 谢谢你 调试key1确实为nothing,但注册表中值肯定存在的，不知道为什么为空值

[slysmart]

引用 4 楼 slysmart 的回复:

[quote=引用 3 楼 yishumei 的回复:] [quote=引用 2 楼 slysmart 的回复:] [quote=引用 1 楼 yishumei 的回复:] 楼主先查一下注册表里有没有"LocalMachine\SOFTWARE\Autodesk\CSP"这个项吧

肯定有的，我还换过键值，错误一样[/quote] "LocalMachine\SOFTWARE\Autodesk\CSP"里有Oce TCS这个项吗？ If (key1 Is Nothing) Then Else TextBox1.Text = key1.GetValue("ReleaseVersion") key1.Close() End If 楼主可以断点调试一下。[/quote] 谢谢你 调试key1确实为nothing,但注册表中值肯定存在的，不知道为什么为空值[/quote] 这段代码应该没问题，我换了个键值能获取到，就是不知道我原来键值为什么获取不到

[slysmart]

目前测试下来，currentUser键值能获取，但localmachine不能获取 感觉是权限问题了