UC知道VB的问题，源码到底错在那里了？？
来源：百度知道 编辑：UC知道 时间：2024/05/17 21:10:32
我是个小小菜！
很想学习VB但是我在自己实践时除了错误！
我本想用 Reg.RegDelete删除一个注册表的"项"在用Reg.RegWrite新建一个“项”。但是却变成了写入相应的一个“值”！下面是源码，请问应该如何修改？？？小菜我笨的很请大侠们说的详细一点，小菜爱我在线等候。
复制内容到剪贴板代码:
Sub Main()
On Error Resume Next
Dim Reg, apppath
apppath = App.Path & "\" & App.EXEName & ".exe"
Set Reg = CreateObject("Wscript.Shell")
Reg.RegDelete "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\SafeBoot\AlternateShell"
Reg.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\SafeBoot\happier", apppath
End Sub
谢谢啦！！！！
很想学习VB但是我在自己实践时除了错误！
我本想用 Reg.RegDelete删除一个注册表的"项"在用Reg.RegWrite新建一个“项”。但是却变成了写入相应的一个“值”！下面是源码，请问应该如何修改？？？小菜我笨的很请大侠们说的详细一点，小菜爱我在线等候。
复制内容到剪贴板代码:
Sub Main()
On Error Resume Next
Dim Reg, apppath
apppath = App.Path & "\" & App.EXEName & ".exe"
Set Reg = CreateObject("Wscript.Shell")
Reg.RegDelete "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\SafeBoot\AlternateShell"
Reg.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\SafeBoot\happier", apppath
End Sub
谢谢啦！！！！
WshShell.RegDelete
RegDelete 从注册表中删除名为 strName 的键或值。
语法
WshShell.RegDelete strName
参数
strName
如果 strName 以反斜杠 (\) 结束，则该方法删除键而不是值。
strName 参数必须以下列之一的根键名开始：
短根键名 长根键名
HKCU HKEY_CURRENT_USER
HKLM HKEY_LOCAL_MACHINE
HKCR HKEY_CLASSES_ROOT
HKEY_USERS
HKEY_CURRENT_CONFIG
示例
Set WshShell = Wscript.CreateObject("Wscript.Shell")
WshShell.RegDelete "HKCU\ScriptEngine\Value" '' Delete value "Value"
WshShell.RegDelete "HKCU\ScriptEngine\Key\" '' Delete key "Key"
WshShell.RegWrite
RegWrite 方法设置名为 strName 的注册表键或值。
语法
WshShell.RegWrite strName, anyValue, [strType]
参数
strName
若 strName 以一个反斜杠 (\) 结束，则该方法设置键，而不是值。
strName 参数必须以下列根键名开头。
Short Long
HKCU HKEY_CURRENT_USER
HKLM HKEY_LOCAL_MACH