如何解決VB.NET注冊表權限問題

這篇文章主要介紹如何解決VB.NET注冊表權限問題，文中介紹的非常詳細，具有一定的參考價值，感興趣的小伙伴們一定要看完！

本實例需要項目引用：

Imports Microsoft.Win32  '用途 ： 注冊表操作  Imports System.Security.AccessControl'用途 ： 訪問權限控制

首先,對VB.NET注冊表權限增加,細分起來共有11種可選的權限類型，它們對應的參數(shù)如下：

Select Case ComboBox1.Text  Case "完全控制"  ObjRegRight = RegistryRights.FullControl  Case "查詢數(shù)值"  ObjRegRight = RegistryRights.QueryValues  Case "設置數(shù)值"  ObjRegRight = RegistryRights.SetValue  Case "創(chuàng)建子項"  ObjRegRight = RegistryRights.CreateSubKey  Case "枚舉子項"  ObjRegRight = RegistryRights.EnumerateSubKeys  Case "通知"  ObjRegRight = RegistryRights.Notify  Case "創(chuàng)建鏈接"  ObjRegRight = RegistryRights.CreateLink  Case "刪除"  ObjRegRight = RegistryRights.Delete   Case "寫入DAC"  ObjRegRight = RegistryRights.WriteKey  Case "寫入所有者"  ObjRegRight = RegistryRights.TakeOwnership  Case "讀取控制"  ObjRegRight = RegistryRights.ReadPermissions  End Select

而每個細分權限 又分"允許"和"拒絕"兩種訪問控制類型

Select Case ComboBox2.Text  Case "允許"  ObjRegAccess = AccessControlType.Allow  Case "拒絕"  ObjRegAccess = AccessControlType.Deny  End Select

以下為增加VB.NET注冊表權限的函數(shù)

以下兩函數(shù)中 Account代表系統(tǒng)nt帳戶  Rights和ControlType分別為上文提及的權限類型和訪問控制類型

Private Sub AddRegistrySecurity(ByVal Str_FileName As String, ByVal Account As String, ByVal Rights As RegistryRights, ByVal ControlType As AccessControlType)  Dim RegKey As RegistryRegistryKey = Registry.CurrentUser.CreateSubKey("此處填寫具體鍵地址")  Dim RegkeyAcl As RegistrySecurity = RegKey.GetAccessControl()  Dim AccessRule As RegistryAccessRule = New RegistryAccessRule(Account, Rights, ControlType)  RegkeyAcl.AddAccessRule(AccessRule)  RegKey.SetAccessControl(RegkeyAcl)  RegKey.Close()  End Sub

以下為移除注冊表鍵權限的函數(shù)

Private Sub RemoveRegistrySecurity(ByVal Str_FileName As String, ByVal Account As String, ByVal Rights As RegistryRights, ByVal ControlType As AccessControlType)  Dim RegKey As RegistryRegistryKey = Registry.CurrentUser.CreateSubKey("此處填寫具體鍵地址")  Dim RegkeyAcl As RegistrySecurity = RegKey.GetAccessControl()  Dim AccessRule As RegistryAccessRule = New RegistryAccessRule(Account, Rights, ControlType)  RegkeyAcl.RemoveAccessRule(AccessRule)  RegKey.SetAccessControl(RegkeyAcl)  RegKey.Close()  End Sub

以上是“如何解決VB.NET注冊表權限問題”這篇文章的所有內(nèi)容，感謝各位的閱讀！希望分享的內(nèi)容對大家有幫助，更多相關知識，歡迎關注億速云行業(yè)資訊頻道！