Board logo

标题: 怎样把VBS里面把读取注册表的键值做成一个子程序 [打印本页]
作者: hackhd     时间: 2008-1-30 05:35    标题: 怎样把VBS里面把读取注册表的键值做成一个子程序
dim wsh
set wsh=createobject("wscript.shell")
wsh.regread ("HKEY_CLASSES_ROOT\qqw\abcd")

这样可以读到ABCD的键值


dim wsh
set wsh=createobject("wscript.shell")
aa="1234"

dg aa = bb

msgbox bb '无法打开注册键值"HKEY_CLASSES_ROOT\qqw\False“进行读取

function dg(yy)
wsh.regread ("HKEY_CLASSES_ROOT\qqw\"&yy)
end function

要怎样改哦
作者: s11ss     时间: 2008-1-30 10:09
子程序没错啊，调用错了，应当是：
bb=dg(aa)
作者: hackhd     时间: 2008-1-30 14:55
这样好像也不是啊。弹出来是个空MSGBOX
作者: s11ss     时间: 2008-1-30 15:16
疏忽了。


dim wsh

set wsh=createobject("wscript.shell")

aa="1234"



bb=dg(aa) 



msgbox bb

function dg(yy)

dg=wsh.regread ("HKEY_CLASSES_ROOT\qqw\"&yy)

end function
作者: slore     时间: 2008-1-30 15:17
你的函数没有返回值。。。。

Function dg(yy)
dg = wsh.regread("HKEY_CLASSES_ROOT\qqw\" & yy)
End Function