几行VB代码拿下注册表

'****************************注册表操作函数**********************
'声明：以下代码由轻风工作室REDICE编写，引用时请作一说明。
'****************************************************************

'*****下面先声明一些常量******************************************
Public Const HKEY_CLASSES_ROOT = &H80000000
Public Const HKEY_CURRENT_CONFIG = &H80000005
Public Const HKEY_CURRENT_USER = &H80000001
Public Const HKEY_DYN_DATA = &H80000006
Public Const HKEY_LOCAL_MACHINE = &H80000002
Public Const HKEY_USERS = &H80000003
Public Const REG_OPTION_NON_VOLATILE = 0
Public Const KEY_ALL_ACCESS = (&H20000 Or &H1 Or &H2 Or &H4 Or &H8 Or &H10 Or &H20) And (Not &H100000)
Public Const REG_SZ = 1
Public Const REG_DWORD = 4
'*****************************************************************

'*****下面声明注册表操作中用到的API函数****************************
Public Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Public Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal uloptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Public Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long
Public Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Public Declare Function RegSetValueExLong Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpValue As Long, ByVal cbData As Long) As Long
Public Declare Function RegSetValueExString Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpValue As String, ByVal cbData As Long) As Long
Public Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long
'*****************************************************************

'*****下面是我自己写的一些注册表操作中常用的一些函数**************
'*****新键注册表项
Public Function createnewkey(ip As Long, snewkeyname As String)
     Dim hnewkey As Long
     Dim retval As Long
     retval = RegCreateKey(ip, snewkeyname, hnewkey)
     If retval = 0 Then
       RegCloseKey (hnewkey)   '关闭上面建立或打开的项
     End If
End Function
'实例：在HKEY_CURRENT_USER下建立项"xiaopeng"
'代码为 createnewkey HKEY_CURRENT_USER ,"xiaopeng"
'******************************************************************

'*******删除注册表项***********************************************
Public Function deletekey(ip As Long, skeyname As String)
     Dim hKey As Long
     Dim retval As Long
     retval = RegOpenKeyEx(ip, skeyname, 0, KEY_ALL_ACCESS, hKey)
     If retval = 0 Then
       RegDeleteKey ip, skeyname
     End If
End Function
'实例：删除上面建立的HKEY_CURRENT_USER下的项"xiaopeng"
'代码为 deletekey HKEY_CURRENT_USER ,"xiaopeng"
'******************************************************************

'********新建,设置数值名称*****************************************
Public Function setkeyvalue(ByVal ip As Long, ByVal keyname As String, ByVal valuename As String, ByVal valuesetting As Variant, ByVal valuetype As Long)
     Dim retval As Long
     Dim hKey As Long
     If RegOpenKeyEx(ip, keyname, 0, KEY_ALL_ACCESS, hKey) > 0 Then Exit Function
     Select Case valuetype
           Case REG_SZ
             RegSetValueExString hKey, valuename, 0&, REG_SZ, valuesetting, Len(valuesetting)
           Case REG_DWORD
             RegSetValueExLong hKey, valuename, 0, valuetype, valuesetting, 4
     End Select
     RegCloseKey (hKey)
End Function
'实例：在HKEY_CURRENT_USER下的项"xiaopeng"中建立名为"redice",键值为"is xiaopeng",类型为REG_SZ的新键
'代码为 setkeyvalue HKEY_CURRENT_USER ,"xiaopeng" ,"redice","is xiaopeng",REG_SZ
'又如:在HKEY_CURRENT_USER下的项"xiaopeng"中建立名为"ceshi",键值为2,类型为REG_DWORD的新键
'代码为"setkeyvalue HKEY_CURRENT_USER,"xiaopeng","ceshi",2,REG_DWORD
'******************************************************************

'*********删除数值名称*********************************************
Public Function deletevalue(ByVal ip As Long, ByVal keyname As String, ByVal valuename As String)
     Dim retval As Long
     Dim hKey As Long
     retval = RegOpenKeyEx(ip, keyname, 0, KEY_ALL_ACCESS, hKey)
     If retval > 0 Then
         Exit Function
     End If
     RegDeleteValue hKey, valuename
     RegCloseKey hKey
End Function
'实例：删除HKEY_CURRENT_USER下的项"xiaopeng"中名为"redice"的新键
'代码为 deletevalue HKEY_CURRENT_USER ,"xiaopeng","redice"
'******************************************************************
'**********查询已存在的数值内容************************************
Public Function getvalue(ByVal ip As Long, keyname As String, valuename As String) As String
     Dim retval As Long
     Dim hKey As Long
     Dim valuesetting As Variant
     Dim cddata As Long
     Dim lvalue As Long
     Dim svalue As String
     Dim lvaluetye As Long
     retval = RegOpenKeyEx(ip, keyname, 0, KEY_ALL_ACCESS, hKey)
     If retval > 0 Then
       getvalue = ""
       Exit Function
     End If
     retval = RegQueryValueEx(hKey, valuename, 0, lvaluetype, ByVal VBNullString, cddata)
     If retval <> 0 Then
       RegCloseKey hKey
       Exit Function
     End If
     Select Case lvaluetype
           Case REG_SZ
                 svalue = String(cddata, Chr(0))
                 RegQueryValueEx hKey, valuename, 0, lvaluetype, ByVal svalue, cddata
                 valuesetting = Left$(svalue, cddata)
                 getvalue = CStr(valuesetting)
           Case REG_DWORD
                 RegQueryValueEx hKey, valuename, 0, lvaluetype, lvalue, cddata
                 valuesetting = lvalue
                 getvalue = CStr(valuesetting)
     End Select
End Function
'实例：获取HKEY_CURRENT_USER下的项"xiaopeng"中名为"redice"的新键的键值
'代码为 getvalue HKEY_CURRENT_USER ,"xiaopeng","redice"
'*********************************************************************

摘自：网络整理

几行VB代码拿下注册表相关推荐

php怎么创建表命令行,laravel使用命令行结合代码创建数据表的方法
laravel使用命令行结合代码创建数据表的方法发布时间:2021-01-19 10:12:17 来源:亿速云阅读:91 作者:小新这篇文章主要介绍laravel使用命令行结合代码创建数据表的方 ...
BAT批处理代码快速打开注册表并定位到指定目录
主要代码: @echo off echo %1 copy %~nx0 c:\windows\system32 if "%1" NEQ "" (set regPa ...
java代码操作注册表,java操作注册表范例代码
java操作注册表实例代码以下代码的作用是读取USB设备: package org.yangzc.reglistener; import com.ice.jni.registry.Registry; ...
cmd命令行下常见的注册表操作
基础知识注册表的五个根建 hkey classes root,里面存储着应用程序启动所需要的所有信息,有扩展名,启动对应扩展名文件所需要的程序等. HKCU hkey current user,存储 ...
使用vb调用api注册表
2019独角兽企业重金招聘Python工程师标准>>> 有时候我们需要读取某个Key下的所有名称的值,找到特定的或者全部名称的值以作它用,比如我在编写清除著名的"木马冰河& ...
Unity通过代码修改注册表。
读:读取的注册表中HKEY_LOCAL_MACHINE\SOFTWARE目录下的XXX目录中名称为name的注册表值: private string GetRegistData(string name ...
vb修改注册表！！调用WSH实现
vb修改注册表!!调用WSH实现!!!!! [旭发飘扬发表于 2007-3-5 下午 12:30:04] 在VB中,注册表的读写,可以用自身的SaveSetting.GetSetting函数,但 ...
恶意代码修改IE和注册表恢复全集
阻止恶意代码修改注册表: 1.大部分的恶意代码只对IE5.0版本有效,所以将IE升级到6.0,并及时下载打上补丁! 下载安装微软WSH最新版,好像是5.6版! 2.安装最新的杀毒软件,打开实时监控保护 ...
[实用资料系列]注册表技术大全「五注册表优化全攻略」
防止匿名用户登录虽然"Windows 98"可以为每个用户定制各自的使用界面并指定口令,但任何人都能通过点击登录窗口中的"取消"或按"ESC&quo ...

几行VB代码拿下注册表

几行VB代码拿下注册表相关推荐

最新文章

热门文章