程式設計專區
|
|
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)) '為每個值的值
|
| |
| |
|
|
