中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum
游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟
中国DOS联盟论坛
现在时间是 2026-08-07 11:14 		共 48,040 主题排行 / 350,125 发帖 / 今日 0 篇 / 48,252 会员排行
DOS批处理 & 脚本技术（批处理室） » 怎样把VBS里面把读取注册表的键值做成一个子程序
可打印版本 　707 / 4
第1楼　hackhd 发表于 2008-01-30 05:35
中级用户　发帖 102　积分 231
怎样把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

要怎样改哦
第2楼　s11ss 发表于 2008-01-30 10:09
银牌会员　发帖 566　积分 2,098
子程序没错啊，调用错了，应当是：
bb=dg(aa)
第3楼　hackhd 发表于 2008-01-30 14:55
中级用户　发帖 102　积分 231
这样好像也不是啊。弹出来是个空MSGBOX
第4楼　s11ss 发表于 2008-01-30 15:16
银牌会员　发帖 566　积分 2,098
疏忽了。
第5楼　slore 发表于 2008-01-30 15:17
铂金会员　发帖 2,478　积分 5,212
你的函数没有返回值。。。。

Function dg(yy)
dg = wsh.regread("HKEY_CLASSES_ROOT\qqw\" & yy)
End Function
[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023