请手下留情.不要删啊.求一个VB操作注册表的例子. - 中国DOS联盟论坛

.想在这里问问有没有操作注册表的例子...只要修改创建删除这几个就行了..

用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"

唉，现在联盟怎么老是有人发非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 Sub

DOS和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 里面有这类界面么？

好象要加上触发事件哦。

第1楼　zerostudy	发表于 2006-11-03 04:54
中级用户　发帖 98　积分 266
请手下留情.不要删啊.求一个VB操作注册表的例子. .想在这里问问有没有操作注册表的例子...只要修改创建删除这几个就行了..

第2楼　不得不爱	发表于 2006-11-03 05:11
超级版主　发帖 2,044　积分 5,310　来自四川南充
用REG DELETE命令可以删除注册表键值或子键值．

第3楼　zerostudy	发表于 2006-11-03 05:23
中级用户　发帖 98　积分 266
可是我想做一个界面..收集一些优化注册表..VB的界面拖过去就行了.我也刚接确.不太会用...每一项优化项目加一个按扭.要优化那项按一下就触发操作注册表..........

第4楼　zerostudy	发表于 2006-11-03 05:25
中级用户　发帖 98　积分 266
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"

第5楼　electronixtar	发表于 2006-11-03 06:19
铂金会员　发帖 2,672　积分 7,493
唉，现在联盟怎么老是有人发非DOS的东西？

第6楼　lxmxn	发表于 2006-11-03 06:30
版主　发帖 4,938　积分 11,386
这个版块就是讨论脚本技术的，脚本当然也包括VBS啦，发在这里也没什么不对的啊，是吧？ =_=

第7楼　electronixtar	发表于 2006-11-03 07:21
铂金会员　发帖 2,672　积分 7,493
没发现楼主说的是VB么？

第8楼　fastslz	发表于 2006-11-03 07:40
铂金会员　发帖 2,315　积分 5,493　来自上海
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楼　htysm	发表于 2007-02-17 09:05
高级用户　发帖 415　积分 866
DOS和VB也有联系吗。

第10楼　anqing	发表于 2007-02-17 10:58
高级用户　发帖 413　积分 859
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楼　binghuochanmian	发表于 2007-03-29 00:08
初级用户　发帖 23　积分 55　来自广东
晕,虽然论坛是叫DOS联盟没错,但这个是批处理室,当然包括VBS啦.

第12楼　zh159	发表于 2007-03-29 05:06
金牌会员　发帖 1,467　积分 3,687
Originally posted by zerostudy at 2006-11-2 16:23: 可是我想做一个界面..收集一些优化注册表..VB的界面拖过去就行了.我也刚接确.不太会用...每一项优化项目加一个按扭.要优化那项按一下就触发操作注册表.......... 1、楼主要求是 VB 界面 2、楼主要求能将每一项优化项目拖入 VB 界面后，界面就加一个对应项按扭 VBS 里面有这类界面么？

第13楼　flyinspace	发表于 2007-03-29 05:21
银牌会员　发帖 517　积分 1,206
好象要加上触发事件哦。