建站
咨詢
售后
建站咨詢
新聞中心
在VB.NET中大家有沒(méi)有遇到過(guò)有關(guān)于Array的問(wèn)題，VB.NET實(shí)例教程教你如何解決這個(gè)問(wèn)題，大家快來(lái)嘗試一下吧。
成都創(chuàng)新互聯(lián)，為您提供成都網(wǎng)站建設(shè)、重慶網(wǎng)站制作、網(wǎng)站營(yíng)銷推廣、網(wǎng)站開發(fā)設(shè)計(jì)，對(duì)服務(wù)成都除甲醛等多個(gè)行業(yè)擁有豐富的網(wǎng)站建設(shè)及推廣經(jīng)驗(yàn)。成都創(chuàng)新互聯(lián)網(wǎng)站建設(shè)公司成立于2013年,提供專業(yè)網(wǎng)站制作報(bào)價(jià)服務(wù),我們深知市場(chǎng)的競(jìng)爭(zhēng)激烈，認(rèn)真對(duì)待每位客戶，為客戶提供賞心悅目的作品。 與客戶共同發(fā)展進(jìn)步，是我們永遠(yuǎn)的責(zé)任！
VB.NET實(shí)例教程Array案例：
本實(shí)例需要項(xiàng)目引用：
- Imports Microsoft.Win32 '用途 ： 注冊(cè)表操作
- Imports System.Security.AccessControl'用途 ： 訪問(wèn)權(quán)限控制
首先,對(duì)注冊(cè)表的鍵增加權(quán)限,細(xì)分起來(lái)共有11種可選的權(quán)限類型，它們對(duì)應(yīng)的參數(shù)如下：
- Select Case ComboBox1.Text
- Case "完全控制"
- ObjRegRight = RegistryRights.FullControl
- Case "查詢數(shù)值"
- ObjRegRight = RegistryRights.QueryValues
- Case "設(shè)置數(shù)值"
- ObjRegRight = RegistryRights.SetValue
- Case "創(chuàng)建子項(xiàng)"
- ObjRegRight = RegistryRights.CreateSubKey
- Case "枚舉子項(xiàng)"
- 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
而每個(gè)細(xì)分權(quán)限 又分"允許"和"拒絕"兩種訪問(wèn)控制類型
- Select Case ComboBox2.Text
- Case "允許"
- ObjRegAccess = AccessControlType.Allow
- Case "拒絕"
- ObjRegAccess = AccessControlType.Deny
- End Select
以下為增加注冊(cè)表鍵權(quán)限的函數(shù)
以下兩函數(shù)中 Account代表系統(tǒng)nt帳戶 Rights和ControlType分別為上文提及的權(quán)限類型和訪問(wèn)控制類型
- 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
以下為移除注冊(cè)表鍵權(quán)限的函數(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實(shí)例教程建議大家在做注冊(cè)表編程調(diào)試的時(shí)候，采用虛擬機(jī)調(diào)試 或者備份好本機(jī)資料，注冊(cè)表一旦破壞或者修改不當(dāng)可能導(dǎo)致系統(tǒng)崩潰，切記！
名稱欄目：VB.NET實(shí)例教程對(duì)關(guān)于Array問(wèn)題的解決
文章路徑：http://www.5511xx.com/article/dpejpio.html
