免费视频淫片aa毛片_日韩高清在线亚洲专区vr_日韩大片免费观看视频播放_亚洲欧美国产精品完整版

網(wǎng)友評論 0 條 轉(zhuǎn)載到博客 2007-5-7 13:24:47　來源: 互聯(lián)網(wǎng)

頂一下
-
vs.net提供了microsoft.win32類，下面有三個(gè)子類，全是針對注冊表的，Microsoft.Win32.RegistryKey、Microsoft.Win32.Registry、Microsoft.Win32.RegistryHive
Microsoft.Win32.Registry提供了訪問各個(gè)注冊表中根的值
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 '對應(yīng)于HKEY_DYN_DATA主鍵
Microsoft.Win32.Registry.PerformanceData '對應(yīng)于HKEY_PERFORMANCE_DATA主鍵

Microsoft.Win32.Registry.LocalMachine '為HKEY_LOCAL_MACHINE根鍵
了解了這么多，讓我們來對注冊表進(jìn)行操作吧！舉個(gè)小例子：
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下創(chuàng)建一個(gè)vb.net子鍵
        subkey.SetValue("GOOD?", "of course") '在HKEY_USERS\software\vb.net下設(shè)置一個(gè)鍵值，鍵值名為good?,值為of course了
上面是在注冊表里創(chuàng)建鍵了，下面我們用程序來訪問我們剛創(chuàng)建的注冊表的鍵吧：
             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()) '將出現(xiàn)of course了
上面是獲取注冊表鍵值了，要設(shè)值，還是用subkey.setvalue了
來講講刪除吧：
        key.DeleteSubKey("software\vb.net")  '刪除這個(gè)鍵了也可以用：
        key.DeleteSubKeyTree("software\vb.net")
還可以用key.GetSubKeyNames來遍歷子鍵
即：for i=0 to ubound(key.GetSubKeyNames())
       subkey=key.OpenSubKey(key.GetSubKeyNames（）(i),True)
.......  '對每個(gè)子鍵的處理
  next
用key.GetValueNames來遍歷各個(gè)值
即：
   for i=0 to ubound(key.GetValueNames())
     key.GetValueNames()(i) '為每個(gè)值的名稱
     value=key.Getvalue(key.GetValueNames()(i)) '為每個(gè)值的值
講到這兒，對注冊表的各項(xiàng)操作也差不多了吧！如果結(jié)合起來用，什么都可以干了呀，呵呵！