使用vb调用api注册表

有时候我们需要读取某个Key下的所有名称的值，找到特定的或者全部名称的值以作它用，比如我在编写清除著名的"木马冰河" 服务器端程序时，就需要查找HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRun下的所有可疑的加载程序项目然后删除之。

　　要用到的API函数的详细描述参看“注册表编程相关函数”一文。一个完整的例子如下：

'EnumVal2.bas**

Option Explicit Public Const HKEY_CLASSES_ROOT = &H80000000 Public Const HKEY_CURRENT_USER = &H80000001 Public Const HKEY_LOCAL_MACHINE = &H80000002 Public Const HKEY_USERS = &H80000003 Public Const HKEY_PERFORMANCE_DATA = &H80000004 Public Const HKEY_CURRENT_CONFIG = &H80000005 Public Const HKEY_DYN_DATA = &H80000006

Public Const REG_NONE = 0 Public Const REG_SZ = 1 Public Const REG_EXPAND_SZ = 2 Public Const REG_BINARY = 3 Public Const REG_DWORD = 4 Public Const REG_DWORD_BIG_ENDIAN = 5 Public Const REG_MULTI_SZ = 7 '注意以下的函数声明须在一行内写完 Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long,ByVal lpSubKey As String,phkResult As Long) As Long Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long

Declare Function RegQueryValue Lib "advapi32.dll" Alias "RegQueryValueA" (ByVal hKey As Long,ByVal lpValue As String,lpcbValue As Long) As Long

Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long,ByVal lpValueName As String,ByVal lpReserved As Long,lpType As Long,lpData As Any,lpcbData As Long) As Long

Declare Function RegEnumValue Lib "advapi32.dll" Alias "RegEnumValueA" (ByVal hKey As Long,ByVal dwIndex As Long,lpcbValueName As Long,lpReserved As Long,lpData As Byte,lpcbData As Long) As Long

Declare Function RegEnumValueAsAny Lib "advapi32.dll" Alias "RegEnumValueA" (ByVal hKey As Long,lpcbData As Long) As Long

Declare Function RegEnumValueAsAny2 Lib "advapi32.dll" Alias "RegEnumValueA" (ByVal hKey As Long,lpValueName As Any,lpcbData As Long) As Long

Declare Function ExpandEnvironmentStrings Lib "kernel32" Alias "ExpandEnvironmentStringsA" (ByVal lpSrc As String,ByVal lpDst As String,ByVal nSize As Long) As Long

Sub MultiStringToStringArray(S As String,S2() As String) 'S为我们读取出来的多重字符串 'S2为转换后的字符串数组 Dim count As Integer,pos As Integer,pos2 As Integer,idx As Integer pos = InStr(S,Chr(0))

While pos > 0 count = count + 1 pos = InStr(pos + 1,S,Chr(0)) Wend '取得多重字符串中的字符串个数 count = count - 1

ReDim S2(0 To count - 1) pos = 1 For idx = 0 To count - 1 pos2 = InStr(pos,Chr(0)) S2(idx) = Mid(S,pos,pos2 - pos) pos = pos2 + 1 Next End Sub

'在form中添加command按钮和text文本框

'EnumVal2.frm****

'以下的Command1_Click事件中我们将列举出'HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRun下的所有name及其Value. Private Sub Command1_Click() Dim hKey As Long,ret As Long,lenData As Long,typeData As Long Dim Name As String Dim lenName As Long Dim idx As Integer,j As Integer Dim bName(256) As Byte ret = RegOpenKey(HKEY_LOCAL_MACHINE,"SoftwareMicrosoftWindowsCurrentVersionRun",hKey) If ret <> 0 Then Exit Sub

ret = 0 idx = 0 While ret = 0 lenName = 256

ret=RegEnumValueAsAny2(hKey,idx,bName(0),lenName,ByVal 0,typeData,ByVal vbNullString,lenData) If ret <> 0 Then RegCloseKey hKey Exit Sub End If '上面的RegEnumValueAsAny2调用得到了第一个Name的长度lenName,不含chr(0) Name = String(lenName + 1,Chr(0)) lenName = Len(Name) Select Case typeData Case REG_SZ,REG_EXPAND_SZ,REG_MULTI_SZ Dim S As String S = String(lenData,Chr(0)) RegEnumValueAsAny hKey,Name,ByVal S,lenData If typeData = REG_SZ Then S = Left(S,InStr(S,Chr(0)) - 1) Text1.SelText=IIf(lenName=0,"(预设值)",Left(Name,InStr(Name,Chr(0))-1)) & "=" & S & vbCrLf ElseIf typeData = REG_EXPAND_SZ Then Dim S2 As String S2 = String(Len(S) + 256,Chr(0)) ExpandEnvironmentStrings S,S2,Len(S2) S = Left(S2,InStr(S2,Chr(0)) - 1) Text1.SelText = Left(Name,Chr(0)) - 1) & " = " & S & vbCrLf ElseIf typeData = REG_MULTI_SZ Then Dim SArr() As String MultiStringToStringArray S,SArr For j = 0 To UBound(SArr) Text1.SelText = Left(Name,Chr(0)) - 1) & "(" & j & ") = " & SArr(j) & vbCrLf Next End If Case REG_DWORD,REG_DWORD_BIG_ENDIAN Dim L As Long RegEnumValueAsAny hKey,L,lenData Text1.SelText = Left(Name,Chr(0)) - 1) & " = " & L & vbCrLf Case REG_BINARY ReDim bArr(0 To lenData - 1) As Byte RegEnumValueAsAny hKey,bArr(0),Chr(0)) - 1) & " = " For j = 0 To UBound(bArr) Text1.SelText = Hex(bArr(j)) & " " Next Text1.SelText = vbCrLf End Select idx = idx + 1 Wend RegCloseKey hKey End Sub

结束啦，最好多练习，你懂得

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!