UC知道VB下注册表问题 解决加100分
来源：百度知道 编辑：UC知道 时间：2024/06/15 11:35:30
请帮我写一段VB代码实现以下功能：
1.首先读取“HKEY_LOCAL_MACHINE\SYSTEM\”如果其下没有"DlxpPnp"这个项则新建"DlxpPnp"项,再在dlxppnp这个项下再新建avi项，再在avi项下新建Dword值open 数据为1
如果有DlxpPnp项则弹出窗口“已有此项”
2.更改HKEY_LOCAL_MACHINE\SYSTEM\DlxpPnp\AVI\下的OPEN 数据为0
3.删除HKEY_LOCAL_MACHINE\SYSTEM\DlxpPnp\AVI\下的值 OPEN
4.删除HKEY_LOCAL_MACHINE\SYSTEM\DlxpPnp\下的AVI子项
小弟刚学编程没多久,对VB知之甚少,请各位前辈不吝赐教
增加项呢？
1.首先读取“HKEY_LOCAL_MACHINE\SYSTEM\”如果其下没有"DlxpPnp"这个项则新建"DlxpPnp"项,再在dlxppnp这个项下再新建avi项，再在avi项下新建Dword值open 数据为1
如果有DlxpPnp项则弹出窗口“已有此项”
2.更改HKEY_LOCAL_MACHINE\SYSTEM\DlxpPnp\AVI\下的OPEN 数据为0
3.删除HKEY_LOCAL_MACHINE\SYSTEM\DlxpPnp\AVI\下的值 OPEN
4.删除HKEY_LOCAL_MACHINE\SYSTEM\DlxpPnp\下的AVI子项
小弟刚学编程没多久,对VB知之甚少,请各位前辈不吝赐教
增加项呢？
好像是锐起无盘的
Dim WshShell As Object
Set WshShell = CreateObject("Wscript.Shell")
'创建对像
'RegDelete 从注册表中删除指定的键或值。
'RegRead 从注册表中返回指定的键或值。
'RegWrite 在注册表中设置指定的键或值。
'例建立或修改
WshShell.RegWrite "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\xxx", App.Path & "\" & App.EXEName & ".exe"
'例删除
WshShell.RegDelete "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\POSTOOL"
'读取
WshShell.RegRead ("HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\POSTOOL")
增加就是建立