7,763
社区成员
发帖
与我相关
我的任务
分享添加编辑删除注册表项
问题1 如题
问题2 ：
注册表路径 HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows 这个windows下有Run 我需要把它删除 请问VB代码怎么编写
...全文
请发表友善的回复…
发表回复
几罗星人 2011-03-05
- 打赏
- 举报
简单，用脚本宿主对象，如下语句：
注明一下:regread是读注册表的，regwrite是写注册表的，如果在用regwrite写注册表时，需要写的项不存在，就自动生成。如果最后的项名后加一个斜杠，就表示读这个项的默认值，如：
就是读HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System这个项的默认值。
至于删除，就用API吧，上面有说。
Dim WSHShell
Set WSHShell = CreateObject("WScript.Shell")
WSHShell.regread
WSHShell.regwrite
注明一下:regread是读注册表的，regwrite是写注册表的，如果在用regwrite写注册表时，需要写的项不存在，就自动生成。如果最后的项名后加一个斜杠，就表示读这个项的默认值，如：
a=WSHShell.regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\")
就是读HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System这个项的默认值。
至于删除，就用API吧，上面有说。
神马被哪个妞占用了呢 2011-03-05
- 打赏
- 举报
Public Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long
Public Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long
Public Declare Function RegCreateKeyEx Lib "advapi32.dll" Alias "RegCreateKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, phkResult As Long, lpdwDisposition As Long) As Long
Public Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public Declare Function RegConnectRegistry Lib "advapi32.dll" Alias "RegConnectRegistryA" (ByVal lpMachineName As String, ByVal hKey As Long, phkResult As Long) As Long
Public Declare Function RegCloseKey Lib "advapi32.dll" Alias "RegCloseKey" (ByVal hKey As Long) As Long
