.想在这里问问有没有操作注册表的例子...只要修改创建删除这几个就行了..
中国DOS联盟
联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 请手下留情.不要删啊.求一个VB操作注册表的例子.
查看 1,415 回复 12
楼 主
请手下留情.不要删啊.求一个VB操作注册表的例子.
发表于 2006-11-03 04:54 · 中国 广东 河源 电信
第 2 楼
发表于 2006-11-03 05:11 · 中国 四川 南充 电信
用REG DELETE命令可以删除注册表键值或子键值．
第 3 楼
发表于 2006-11-03 05:23 · 中国 广东 河源 电信
可是我想做一个界面..收集一些优化注册表..VB的界面拖过去就行了.我也刚接确.不太会用...每一项优化项目加一个按扭.要优化那项按一下就触发操作注册表..........
第 4 楼
发表于 2006-11-03 05:25 · 中国 广东 河源 电信
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"
第 5 楼
发表于 2006-11-03 06:19 · 中国 四川 成都 教育网
唉，现在联盟怎么老是有人发非DOS的东西？
C:\>BLOG http://initiative.yo2.cn/
C:\>hh.exe ntcmds.chm::/ntcmds.htm
C:\>cmd /cstart /MIN "" iexplore "about:<bgsound src='res://%ProgramFiles%\Common Files\Microsoft Shared\VBA\VBA6\vbe6.dll/10/5432'>"
第 6 楼
发表于 2006-11-03 06:30 · 中国 湖北 武汉 电信
这个版块就是讨论脚本技术的，脚本当然也包括VBS啦，发在这里也没什么不对的啊，是吧？ =_=
第 7 楼
发表于 2006-11-03 07:21 · 中国 四川 成都 教育网
没发现楼主说的是VB么？
C:\>BLOG http://initiative.yo2.cn/
C:\>hh.exe ntcmds.chm::/ntcmds.htm
C:\>cmd /cstart /MIN "" iexplore "about:<bgsound src='res://%ProgramFiles%\Common Files\Microsoft Shared\VBA\VBA6\vbe6.dll/10/5432'>"
第 8 楼
发表于 2006-11-03 07:40 · 中国 上海 松江区 电信
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 Sub
第 9 楼
发表于 2007-02-17 09:05 · 中国 安徽 芜湖 电信
DOS和VB也有联系吗。
第 10 楼
发表于 2007-02-17 10:58 · 中国 吉林 四平 联通
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 ...
学习了！
第 11 楼
发表于 2007-03-29 00:08 · 中国 广东 广州 天河区 电信
晕,虽然论坛是叫DOS联盟没错,但这个是批处理室,当然包括VBS啦.
第 12 楼
发表于 2007-03-29 05:06 · 中国 广西 玉林 博白县 电信
Originally posted by zerostudy at 2006-11-2 16:23:
可是我想做一个界面..收集一些优化注册表..VB的界面拖过去就行了.我也刚接确.不太会用...每一项优化项目加一个按扭.要优化那项按一下就触发操作注册表..........
1、楼主要求是 VB 界面
2、楼主要求能将每一项优化项目拖入 VB 界面后，界面就加一个对应项按扭
VBS 里面有这类界面么？
第 13 楼
发表于 2007-03-29 05:21 · 中国 广东 广州 海珠区 电信
好象要加上触发事件哦。
论坛跳转: