.想在这里问问有没有操作注册表的例子...只要修改创建删除这几个就行了..
中国DOS联盟
联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
请手下留情.不要删啊.求一个VB操作注册表的例子.
标题：请手下留情.不要删啊.求一个VB操作注册表的例子.
用REG DELETE命令可以删除注册表键值或子键值．
可是我想做一个界面..收集一些优化注册表..VB的界面拖过去就行了.我也刚接确.不太会用...每一项优化项目加一个按扭.要优化那项按一下就触发操作注册表..........
VBS的我就看了下...这个好写.不过不会做界面.
恢复被禁的注册\表.
set disreg=wscript.createobject("wscript.shell")
disreg.regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools",0,"REG_DWORD"
恢复被禁的任务管理器
set distaskmgr=wscript.createobject("wscript.shell")
distaskmgr.regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",0,"REG_DWORD"
恢复被禁的注册\表.
set disreg=wscript.createobject("wscript.shell")
disreg.regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools",0,"REG_DWORD"
恢复被禁的任务管理器
set distaskmgr=wscript.createobject("wscript.shell")
distaskmgr.regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",0,"REG_DWORD"
唉，现在联盟怎么老是有人发非DOS的东西？
这个版块就是讨论脚本技术的，脚本当然也包括VBS啦，发在这里也没什么不对的啊，是吧？ =_=
没发现楼主说的是VB么？
VBS有界面的
call SetTitle
Sub SetTitle()
Dim WSHShell
Dim MsgBox_Message_Text
Dim Title_Text
Dim Input
Title_Text = "修改IE主页为空白VBS脚本"
MsgBox_Message_Text = "小程序由实用导航页提供，功能是：" + (Chr(13) & Chr(10) & Chr(13) & Chr(10)) + "清除IE窗口的标题，并可设置IE主页。" + (Chr(13) & Chr(10) & Chr(13) & Chr(10)) + "取消执行请按。" + (Chr(13) & Chr(10) & Chr(13) & Chr(10)) + "输入主页的URL: 默认为空白页"
Input = InputBox(MsgBox_Message_Text,Title_Text,"about:blank")
If Input <> "" Then
Set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.RegWrite "HKLM\Software\Microsoft\Internet Explorer\Main\Window Title", "Microsoft Internet Explorer"
WSHShell.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\Window Title", "Microsoft Internet Explorer"
WSHShell.RegWrite "HKLM\Software\Microsoft\Internet Explorer\Main\Start Page", Input
WSHShell.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page", Input
else
WScript.Quit
End If
End SubDOS和VB也有联系吗。
Originally posted by fastslz at 2006-11-3 07:40:
VBS有界面的
call SetTitle
Sub SetTitle()
Dim WSHShell
Dim MsgBox_Message_Text
Dim Title_Text
Dim Input
Title_Text = "修改IE主页为空白VBS脚本"
MsgBox_Message_Tex ...
学习了！
晕,虽然论坛是叫DOS联盟没错,但这个是批处理室,当然包括VBS啦.
Originally posted by zerostudy at 2006-11-2 16:23:
可是我想做一个界面..收集一些优化注册表..VB的界面拖过去就行了.我也刚接确.不太会用...每一项优化项目加一个按扭.要优化那项按一下就触发操作注册表..........
1、楼主要求是 VB 界面
2、楼主要求能将每一项优化项目拖入 VB 界面后，界面就加一个对应项按扭
VBS 里面有这类界面么？
好象要加上触发事件哦。
来源：https://www.cn-dos.net/forum/viewthread.php?tid=24462 · 打印时间 2026-08-04 00:02