求教一读取注册表例子,谢谢!!!

Question

求教一读取注册表例子,谢谢!!!
如我想把HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TypedURLs里的数据读出写入LISYBOX里,并在删除其中一些数据后,再写入注册表
如读取数据后在LISTBOX1里显示数据:
http://auto.search.msn.com/response.asp
vb 读写文件
WRAR 3.0
把LISTBOX1里面数据删除后再写入注册表

Answer 1

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 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 
'Use RegCreateKey function to create subkey "HKEY_LOCAL_MACHINE\SOFTWARE\Hongqt"
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 Sub

Answer 2

'下边是窗体中的代码，不过得需要一个模块.bas，太大了，我贴不过来，把邮箱留下，我给你传过去.'一个list,三个command
'command1列表,command2删除在列表中选择的项目,command3写回注册表
Option Explicit
Const HKEY_CLASSES_ROOT = &H80000000
Const HKEY_CURRENT_CONFIG = &H80000005
Const HKEY_CURRENT_USER = &H80000001
Const HKEY_DYN_DATA = &H80000006
Const HKEY_LOCAL_MACHINE = &H80000002
Const HKEY_PERFORMANCE_DATA = &H80000004
Const HKEY_USERS = &H80000003
Private sKeyName() As String, vName() As String, vType() As Long, i As LongPrivate Sub Command1_Click()
List1.Clear
GetKeyInfo HKEY_CURRENT_USER, "Software\Microsoft\Internet Explorer\TypedURLs", sKeyName(), vName(), vType()
For i = 0 To UBound(vName)
    List1.AddItem GetKeyValue(HKEY_CURRENT_USER, "Software\Microsoft\Internet Explorer\TypedURLs", vName(i))
Next i
End SubPrivate Sub Command2_Click()
If List1.ListIndex >= 0 Then List1.RemoveItem List1.ListIndex
End SubPrivate Sub Command3_Click()
For i = 0 To UBound(vName)
    DeleteKey HKEY_CURRENT_USER, "Software\Microsoft\Internet Explorer\TypedURLs", vName(i)
Next i
For i = 1 To List1.ListCount
    SetKey HKEY_CURRENT_USER, "Software\Microsoft\Internet Explorer\TypedURLs", "url" & CStr(i), List1.List(i - 1)
Next i
End Sub

Answer 3

谢谢！！！goodname008(goodname008) ，谢谢！！！
[email protected]