中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 请问这段注册表如何用VBS的RegWrite写出来

hello547rf44
初级用户

积分 172
发帖 63
注册 2007-11-3
状态离线

『楼主』: 请问这段注册表如何用VBS的RegWrite写出来

请问这段注册表如何用VBS的RegWrite写出来

[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main]
"Display Inline Videos"="yes"
"Play_Background_Sounds"="yes"
"Play_Animations"="yes"

2007-11-6 15:49

abcd
银牌会员

积分 1436
发帖 739
注册 2007-10-11
状态离线

『第 2 楼』:

什么意思啊？

是写入注册表，还是从注册表读取啊

2007-11-6 16:08

(470237592)

lgaint
初级用户

积分 22
发帖 7
注册 2006-10-25
状态离线

『第 3 楼』:

object.RegWrite(strName, anyValue [,strType])
参数
object
WshShell 对象。
strName
表示要创建、添加或更改的项名、值名或值的字符串值。
anyValue
要创建的新项名称、要添加到现有项中的值名或要指派给现有值名的新值。
strType
可选。表示值的数据类型的字符串值。

############################################
[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main]
"Display Inline Videos"="yes"
"Play_Background_Sounds"="yes"
"Play_Animations"="yes"
############################################

set wshshell=wscript.createobject("WScript.Shell")

wshshell.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\Display Inline Videos", "yes"
wshshell.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\Play_Background_Sounds", "yes"
wshshell.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\Play_Animations", "yes"

set wshshell=nothing

另存为VBS文件即可

此帖被 +4 点积分点击查看详情

2007-11-6 17:47

hello547rf44
初级用户

积分 172
发帖 63
注册 2007-11-3
状态离线

『第 4 楼』:

太谢谢了！！！

2007-11-6 19:23

hello547rf44
初级用户

积分 172
发帖 63
注册 2007-11-3
状态离线

『第 5 楼』:

把上面那段注册表的VBS单独保存可以运行。把它加在下面那段VBS上面为什么会报错呢？

set wshshell=wscript.createobject("WScript.Shell")

wshshell.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\Display Inline Videos", "yes"
wshshell.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\Play_Background_Sounds", "yes"
wshshell.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\Play_Animations", "yes"
set wshshell=nothing

set WshShell = Wscript.CreateObject("Wscript.Shell")
path = WshShell.CurrentDirectory
set ie=wscript.createobject("internetexplorer.application","event_")
ie.fullscreen=1
ie.width=300
ie.height=100
ie.navigate path & "\" & wscript.arguments(0)
ie.left=fix((ie.document.parentwindow.screen.availwidth-ie.width)/2)
ie.top=fix((ie.document.parentwindow.screen.availheight-ie.height)/2)
ie.visible=1
wscript.sleep 3000
ie.quit

2007-11-6 20:16

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: