Board logo

标题: 请问这段注册表如何用VBS的RegWrite写出来 [打印本页]

作者: hello547rf44     时间: 2007-11-6 15:49    标题: 请问这段注册表如何用VBS的RegWrite写出来

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

[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main]
"Display Inline Videos"="yes"
"Play_Background_Sounds"="yes"
"Play_Animations"="yes"
作者: abcd     时间: 2007-11-6 16:08
什么意思啊?

是写入注册表,还是从注册表读取啊
作者: lgaint     时间: 2007-11-6 17:47
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文件即可
作者: hello547rf44     时间: 2007-11-6 19:23
太谢谢了!!!
作者: hello547rf44     时间: 2007-11-6 20:16
把上面那段注册表的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