BC30451＆＃39; RegistryValueKind＆＃39;没有宣布

Question

我想尝试使用VB.NET

更改互联网设置级别

Public Class Form1


Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim regKey As Microsoft.Win32.RegistryKey

    regKey = Microsoft.Win32.RegistryKey.OpenBaseKey("Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\", True)

    regKey.SetValue("2400", 0, RegistryValueKind.DWord)

End Sub

End Class

我收到此错误： BC30451＆＃39; RegistryValueKind＆＃39;没有宣布。由于其保护级别，它可能无法访问。

有没有解决方案？

Answer 1

首先，当您运行代码时，应该在尝试设置regKey =时抛出异常，其实例为空。当试图使用它时，它将失败。您的错误消息是@Mark提到的不导入Import Microsoft.Win32命名空间的状态。当您实际导入此命名空间时，您将遇到我上面提到的问题...请参阅下面的解决方案。

尝试过＆amp;测试

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Dim regKey As Microsoft.Win32.RegistryKey = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\", True)
    If regKey IsNot Nothing Then regKey.SetValue("2400", 0, RegistryValueKind.DWord) : regKey.Close()

End Sub

我可以改变这个和第四个。完成后请不要忘记Close密钥，在我的代码中它会这样做。