【VB编程】如何用VB读取Dword中的值

[逍遥鼠]

'利用API读取HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\AboutURLs中Home的值。

 

Option Explicit
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegQueryValue Lib "advapi32.dll" Alias "RegQueryValueA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal lpValue As String, lpcbValue As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private 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

Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Const REG_DWORD As Long = 4

Private Sub Form_Load()
Dim hKey As Long, mSubKey As String

mSubKey = "SOFTWARE\Microsoft\Internet Explorer\AboutURLs\"

Call RegOpenKey(HKEY_LOCAL_MACHINE, mSubKey, hKey)
Dim nValue As Long
Call RegQueryValueEx(hKey, "Home", 0, REG_DWORD, nValue, 4)
MsgBox nValue

Call RegCloseKey(hKey)
End Sub