vb.net下對註冊表的各種操作

來源:互聯網
上載者:User
註冊表 vs.net提供了microsoft.win32類,下面有三個子類,全是針對註冊表的,Microsoft.Win32.RegistryKey、Microsoft.Win32.Registry、Microsoft.Win32.RegistryHive
Microsoft.Win32.Registry提供了訪問各個註冊表中根的值
Microsoft.Win32.Registry.CurrentUser   '為HKEY_CURRENT_USER根鍵
Microsoft.Win32.Registry.ClassesRoot  '為HKEY_CLASSES_ROOT根鍵
Microsoft.Win32.Registry.CurrentConfig '為HKEY_CURRENT_CONFIG根鍵
Microsoft.Win32.Registry.Users  '為HKEY_USERS根鍵
Microsoft.Win32.Registry.DynDa '對應於HKEY_DYN_DATA主鍵
Microsoft.Win32.Registry.PerformanceData '對應於HKEY_PERFORMANCE_DATA主鍵


Microsoft.Win32.Registry.LocalMachine '為HKEY_LOCAL_MACHINE根鍵
瞭解了這麼多,讓我們來對註冊表進行操作吧!舉個小例子:
Dim key As Microsoft.Win32.RegistryKey, subkey As Microsoft.Win32.RegistryKey
        key = Microsoft.Win32.Registry.CurrentUser  'key為HKEY_USERS根鍵
        subkey = key.CreateSubKey("Software\vb.net")  '在HKEY_USERS\software下建立一個vb.net子鍵
        subkey.SetValue("GOOD?", "of course") '在HKEY_USERS\software\vb.net下設定一個索引值,索引值名為good?,值為of course了
上面是在註冊表裡建立鍵了,下面我們用程式來訪問我們剛建立的註冊表的鍵吧:
             key = microsoft.Win32.Registry.CurrentUser  '如上
            subkey=key.OpenSubKey("software\vb.net",True) 'subkey即為HKEY_USERS\software\vb.net鍵
        dim value as object=subkey.GetValue("Good?") 'value為HKEY_USERS\software\vb.net鍵中的GOOD?的值
        msgbox(value.tostring()) '將出現of course了
上面是擷取註冊表索引值了,要設值,還是用subkey.setvalue了
來講講刪除吧:
        key.DeleteSubKey("software\vb.net")  '刪除這個鍵了也可以用:
        key.DeleteSubKeyTree("software\vb.net")
還可以用key.GetSubKeyNames來遍曆子鍵
即:for i=0 to ubound(key.GetSubKeyNames())
       subkey=key.OpenSubKey(key.GetSubKeyNames()(i),True)
.......  '對每個子鍵的處理
  next
用key.GetValueNames來遍曆各個值
即:
   for i=0 to ubound(key.GetValueNames())
     key.GetValueNames()(i) '為每個值的名稱
     value=key.Getvalue(key.GetValueNames()(i)) '為每個值的值
講到這兒,對註冊表的各項操作也差不多了吧!如果結合起來用,什麼都可以幹了呀,呵呵!


相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。