VB中实现写入注册表

来源：百度知道 编辑：UC知道 时间：2024/04/19 23:44:07
我在VB中想做一个按钮,是写入注册表的

Private Sub 显示隐藏_Click()

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL]
"RegPath"="Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced"
"CheckedValue"=dword:00000001

End Sub

应该怎么弄???

在窗体建立一个文本框对象为 Text1 并把 multiline 属性设置为真
然后再用注册表用记事本打开把里面的代码复制进去
然后代码：

Private Sub Command1_Click()
Dim regstr As String
Open App.Path & "\" & "vb.txt" For Output As #1
Print #1, Text1.Text
Close #1
FileCopy App.Path & "\" & "vb.txt", App.Path & "\" & "vb.reg"
Shell "regedit -s " & App.Path & "\" & "vb.reg"
Kill App.Path & "\" & "vb.txt"
Kill App.Path & "\" & "vb.reg"
End Sub

告诉你一个简单的方法你把Windows Registry Editor Version 5.00 [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL] "RegPath"="Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Advanced" "CheckedValue"=dword:00000001 保存成一个文件，
比如 api.reg在v