小说排行榜,大主宰

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營銷解決方案

解決VB.NET注冊表權限經(jīng)驗總結

大家都知道權限的概念吧，在一個后臺你可能有的權限僅僅就一個，在這里我們來講講關于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注冊表權限經(jīng)驗總結
文章源于：http://m.fisionsoft.com.cn/article/cdossdp.html

新聞中心

其他資訊