标题: 请手下留情.不要删啊.求一个VB操作注册表的例子. [打印本页]
作者: zerostudy 时间: 2006-11-3 04:54 标题: 请手下留情.不要删啊.求一个VB操作注册表的例子.
.想在这里问问有没有操作注册表的例子...只要修改创建删除这几个就行了..
作者: 不得不爱 时间: 2006-11-3 05:11
用REG DELETE命令可以删除注册表键值或子键值．
作者: zerostudy 时间: 2006-11-3 05:23
可是我想做一个界面..收集一些优化注册表..VB的界面拖过去就行了.我也刚接确.不太会用...每一项优化项目加一个按扭.要优化那项按一下就触发操作注册表..........
作者: zerostudy 时间: 2006-11-3 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"
作者: electronixtar 时间: 2006-11-3 06:19
唉，现在联盟怎么老是有人发非DOS的东西？
作者: lxmxn 时间: 2006-11-3 06:30
这个版块就是讨论脚本技术的，脚本当然也包括VBS啦，发在这里也没什么不对的啊，是吧？ =_=
作者: electronixtar 时间: 2006-11-3 07:21
没发现楼主说的是VB么？
作者: fastslz 时间: 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_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
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
作者: htysm 时间: 2007-2-17 09:05
DOS和VB也有联系吗。
作者: anqing 时间: 2007-2-17 10:58
| Quote: | |
|
学习了！
作者: binghuochanmian 时间: 2007-3-29 00:08
晕,虽然论坛是叫DOS联盟没错,但这个是批处理室,当然包括VBS啦.
作者: zh159 时间: 2007-3-29 05:06
| Quote: | |
|
1、楼主要求是 VB 界面
2、楼主要求能将每一项优化项目拖入 VB 界面后，界面就加一个对应项按扭
VBS 里面有这类界面么？
作者: flyinspace 时间: 2007-3-29 05:21
好象要加上触发事件哦。