vb.net搜索注册表 vbs判断注册表项是否存在( 七 )

End If
End Sub
Private Sub Form_Load()
Dim hkey As Long
Dim lvalue As Long
Dim cddata As Long
Dim retval As Long
retval = RegOpenKeyEx(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", 0, KEY_ALL_ACCESS, hkey)
If retval0 Then
MsgBox "打开注册表失败，错误代码：" + CStr(retval), vbExclamation, "错误"
End If
retval = RegQueryValueEx(hkey, "NoDriveTypeAutoRun", 0, REG_DWORD, lvalue, 4)
RegCloseKey hkey
If retval0 Then
MsgBox "读取注册表失败，错误代码：" + CStr(retval), vbExclamation, "错误"
End If
ShowCheck (lvalue)
End Sub
Private Sub ShowCheck(lvalue As Long)
Check0.Value = https://www.04ip.com/post/lvalue Mod 2
lvalue = https://www.04ip.com/post/(lvalue - Check0.Value) / 2
Check1.Value = https://www.04ip.com/post/lvalue Mod 2
lvalue = https://www.04ip.com/post/(lvalue - Check1.Value) / 2
Check2.Value = https://www.04ip.com/post/lvalue Mod 2
lvalue = https://www.04ip.com/post/(lvalue - Check2.Value) / 2
Check3.Value = https://www.04ip.com/post/lvalue Mod 2
lvalue = https://www.04ip.com/post/(lvalue - Check3.Value) / 2
Check4.Value = https://www.04ip.com/post/lvalue Mod 2
lvalue = https://www.04ip.com/post/(lvalue - Check4.Value) / 2
Check5.Value = https://www.04ip.com/post/lvalue Mod 2
【vb.net搜索注册表 vbs判断注册表项是否存在】lvalue = https://www.04ip.com/post/(lvalue - Check5.Value) / 2
Check6.Value = https://www.04ip.com/post/lvalue Mod 2
End Sub
Private Function GetValue() As Long
GetValue = https://www.04ip.com/post/Check0.Value + Check1.Value * 2 + Check2.Value * 4 + Check3.Value * 8 + Check4.Value * 16 + Check5.Value * 32 + Check6.Value * 64 + 128
End Function
以上。
饿的老狼
VB.NET中怎么读取注册表键值利用VB.NET访问注册表
译者注：访问注册表的例子比较多vb.net搜索注册表，然而通过VB.NET访问注册表的例子并不多，本文翻译vb.net搜索注册表了一篇MSDN上的利用VB.NET存取注册表的例子，挺详细也挺全面的。
(
)
Cat
Francis
Visual
Studio
Team
Microsoft
Corporation
April
2002
摘要：这篇文章描述了利用VB.NET内置函数DeleteSetting,
GetAllSettings,
GetSetting
和
SaveSetting，以及通用语言运行时的两个类Registry
和
RegistryKey来存取注册表的实例，详述了所需的权限，解释了何时利用注册表编辑器，并向vb.net搜索注册表你展示了如何利用程序从注册表中动态的读取数据及如何写入数据。
引言
当用VB.NET进行编程时，你可能会选择用VB.NET或.NET框架中的Registry类中的函数来访问注册表。虽然大多数情况下VB.NET的内置函数足够用了，然而某些情况下你仍然需要.NET框架类来解决问题。
注册表不仅存储了本地机上一些程序的信息，还保存了操作系统的信息。操作注册表可能会有危险。因此编程时必须谨慎的查看代码，确保程序对所运行的机器上的安全不会构成威胁。
注册表入口点包括两部分：键名和键值。入口点是存储在系统中的键和子键，类似于文件系统中的目录和子目录。
必备知识
要想读懂本文需要有如下的必备知识：
1、熟悉上一个版本的Visual
Basic 。
2、注册表设计和利用的知识。
3、理解访问注册表的安全含义。
用VB.NET内置函数访问注册表
VB.NET提供了四个访问注册表的函数，为了使用它们，首先必须有读写权限。任何运行在全信任模式下的代码都必须有访问注册表的必要的权限。可以查看RegistryPermission类从而