|
zerostudy
中级用户
积分 266
发帖 98
注册 2006-4-21
状态 离线
|
『楼 主』:
请手下留情.不要删啊.求一个VB操作注册表的例子.
.想在这里问问有没有操作注册表的例子...只要修改创建删除这几个就行了..
|
|
 2006-11-3 04:54 |
|
|
不得不爱
超级版主
我爱DOS
积分 5310
发帖 2044
注册 2005-9-26
来自 四川南充
状态 离线
|
|
|
2006-11-3 05:11 |
|
|
zerostudy
中级用户
积分 266
发帖 98
注册 2006-4-21
状态 离线
|
『第
3 楼』:
可是我想做一个界面..收集一些优化注册表..VB的界面拖过去就行了.我也刚接确.不太会用...每一项优化项目加一个按扭.要优化那项按一下就触发操作注册表..........
|
|
|
2006-11-3 05:23 |
|
|
zerostudy
中级用户
积分 266
发帖 98
注册 2006-4-21
状态 离线
|
『第
4 楼』:
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"
|
|
|
2006-11-3 05:25 |
|
|
electronixtar
铂金会员
积分 7493
发帖 2672
注册 2005-9-2
状态 离线
|
『第
5 楼』:
唉，现在联盟怎么老是有人发非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'>" |
|
|
2006-11-3 06:19 |
|
|
lxmxn
版主
积分 11386
发帖 4938
注册 2006-7-23
状态 离线
|
『第
6 楼』:
这个版块就是讨论脚本技术的，脚本当然也包括VBS啦，发在这里也没什么不对的啊，是吧？ =_=
|
|
|
2006-11-3 06:30 |
|
|
electronixtar
铂金会员
积分 7493
发帖 2672
注册 2005-9-2
状态 离线
|
『第
7 楼』:
没发现楼主说的是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'>" |
|
|
2006-11-3 07:21 |
|
|
fastslz
铂金会员
DOS一根葱
积分 5493
发帖 2315
注册 2006-5-1
来自 上海
状态 离线
|
『第
8 楼』:
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
|
第一高手 第二高手
我的小站
 |
|
|
2006-11-3 07:40 |
|
|
htysm
高级用户
积分 866
发帖 415
注册 2005-12-4
状态 离线
|
|
|
2007-2-17 09:05 |
|
|
anqing
高级用户
积分 859
发帖 413
注册 2006-8-14
状态 离线
|
『第
10 楼』:
| Quote: | Originally posted by fastslz at 2006-11-3 07:40:
VBS有界面的
[code]call SetTitle
Sub SetTitle()
Dim WSHShell
Dim MsgBox_Message_Text
Dim Title_Text
Dim Input
Title_Text = "修改IE主页为空白VBS脚本"
MsgBox_Message_Tex ... |
|
学习了！
|
|
|
2007-2-17 10:58 |
|
|
binghuochanmian
初级用户
积分 55
发帖 23
注册 2006-12-22
来自 广东
状态 离线
|
『第
11 楼』:
晕,虽然论坛是叫DOS联盟没错,但这个是批处理室,当然包括VBS啦.
|
|
|
2007-3-29 00:08 |
|
|
zh159
金牌会员
积分 3687
发帖 1467
注册 2005-8-8
状态 离线
|
『第
12 楼』:
| Quote: | Originally posted by zerostudy at 2006-11-2 16:23:
可是我想做一个界面..收集一些优化注册表..VB的界面拖过去就行了.我也刚接确.不太会用...每一项优化项目加一个按扭.要优化那项按一下就触发操作注册表.......... |
|
1、楼主要求是 VB 界面
2、楼主要求能将每一项优化项目拖入 VB 界面后，界面就加一个对应项按扭
VBS 里面有这类界面么？
|
|
|
2007-3-29 05:06 |
|
|
flyinspace
银牌会员
积分 1206
发帖 517
注册 2007-3-25
状态 离线
|
|
|
2007-3-29 05:21 |
|
