请问怎么用API得到注册表中的键值？？？？？？？。最好有例子。谢谢。

内容   如上。谢谢帮助。！！！！！！！！！！ 问题点数：20、回复次数：2Top

1 楼berylw（漏洞）回复于 2003-11-04 16:44:19 得分 20

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   Declare   Function   RegCreateKey   Lib   "advapi32.dll"   Alias   "RegCreateKeyA"   (ByVal   hKey   As   Long,   ByVal   lpSubKey   As   String,   phkResult   As   Long)   As   Long  
   
  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  
   
  Sub   Main()  
  Dim   ret   As   Long,   hKey   As   Long,   hKey2   As   Long  
  ret   =   RegOpenKey(HKEY_LOCAL_MACHINE,   "SOFTWARE\Microsoft",   hKey)  
  If   ret   =   0   Then  
  MsgBox   "HKLM\SOFTWARE\Microsoft   =   "   &   hKey  
  End   If  
   
  ret   =   RegOpenKey(hKey,   "Windows\CurrentVersion",   hKey2)  
  If   ret   =   0   Then  
  MsgBox   "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion   =   "   &   hKey2  
  End   If  
   
  ret   =   RegCreateKey(HKEY_LOCAL_MACHINE,   "SOFTWARE\Hongqt",   hKey)  
  If   Not   ret   Then  
  MsgBox   "Create   HKEY_LOCAL_MACHINE\SOFTWARE\Hongqt   SubKey   Success"  
  Else  
  MsgBox   "Create   Subkey   Operation   Fail"  
  End   If  
   
  RegCloseKey   hKey  
  RegCloseKey   hKey2  
  End   SubTop

2 楼zjn12（无情？）回复于 2003-11-04 17:35:03 得分 0

这个不是。是注册表的键值数据。5555Top

相关问题

• dll
• hkey
• regopenkey
• advapi32
• byval
• long
• lib
• public const
• function

• 帖主：zjn12
• berylw

• Visual Basic类图书
• Visual Basic类源码下载