中国DOS联盟

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

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

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

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 怎样把VBS里面把读取注册表的键值做成一个子程序

hackhd
中级用户

积分 231
发帖 102
注册 2008-1-25
状态离线

『楼主』: 怎样把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

要怎样改哦

2008-1-30 05:35

s11ss
银牌会员

积分 2098
发帖 566
注册 2007-9-11
状态离线

『第 2 楼』:

子程序没错啊，调用错了，应当是：
bb=dg(aa)

2008-1-30 10:09

hackhd
中级用户

积分 231
发帖 102
注册 2008-1-25
状态离线

『第 3 楼』:

这样好像也不是啊。弹出来是个空MSGBOX

2008-1-30 14:55

s11ss
银牌会员

积分 2098
发帖 566
注册 2007-9-11
状态离线

『第 4 楼』:

疏忽了。

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

2008-1-30 15:16

slore
铂金会员

积分 5212
发帖 2478
注册 2007-2-8
状态离线

『第 5 楼』:

你的函数没有返回值。。。。

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

2008-1-30 15:17

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

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

论坛跳转: