新人发问：关于用VB编辑注册表

Question

小弟是新手，现欲求一个用VB编写的编辑注册表的程序
实现功能：通过一个简单的可视化按钮实现对IE历史记录和Word新近打开文档的记录的清除。
注：需要有源代码！希望各位大虾慷慨施援，不胜感谢！！

Answer 1

这是我以前写的清除VB程序中的历史记录，你把Key值改一下就可以了。
注册表操作模块：http://hi.baidu.com/hn123/blog/item/3f052ddd6a4d5fd98c102948.html
-----------
Option Explicit
Dim T
Dim iTemp As String
Dim sTemp As String
Dim i As Integer
Dim bFlag As Boolean
Private Sub cmdDel_Click()
    bFlag = False
    If List1.ListCount = 0 Then
    Else
        If List1.ListIndex < 0 And bFlag = True Then
            MsgBox "Please Select!"
        Else
            iTemp = Val(Left(List1.List(List1.ListIndex), 1))
            T = RegDelVal(HKEY_CURRENT_USER, sTemp, iTemp)
        End If
    End If
    ListRefresh
End SubPrivate Sub ListRefresh()
    Dim SubKeyName() As String, ValueName() As String, ValueType() As ValueType, i As Long
    sTemp = "Software\Microsoft\Visual Basic\6.0\RecentFiles"
    GetKeyInfo HKEY_CURRENT_USER, sTemp, SubKeyName(), ValueName(), ValueType()
    List1.Clear
    If UBound(ValueName) = 0 Then
    Else
        For i = 0 To UBound(ValueName)
            List1.AddItem ValueName(i) & vbTab & GetString(HKEY_CURRENT_USER, sTemp, ValueName(i)), i
        Next i
    End If
End SubPrivate Sub cmdDelAll_Click()
    bFlag = True
    For i = 1 To List1.ListCount
        cmdDel_Click
    Next i
End SubPrivate Sub Form_Load()
    ListRefresh
    cmdDel.Caption = "&DeleteVbRecord"
End Sub
----------
www.vicmiao.com
努力就有美好时光！