楼 主
怎样把VBS里面把读取注册表的键值做成一个子程序
发表于 2008-01-30 05:35 · 中国 湖南 常德 电信
中级用户
★★
积分 231
发帖 102
注册 2008-01-25 23:45
18年会员
UID 109557
性别 男
状态 离线
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 楼
发表于 2008-01-30 10:09 · 中国 北京 电信
银牌会员
★★★
积分 2,098
发帖 566
注册 2007-09-11 07:27
18年会员
UID 97070
性别 男
状态 离线
子程序没错啊，调用错了，应当是：
bb=dg(aa)
第 3 楼
发表于 2008-01-30 14:55 · 中国 湖南 常德 电信
中级用户
★★
积分 231
发帖 102
注册 2008-01-25 23:45
18年会员
UID 109557
性别 男
状态 离线
第 4 楼
发表于 2008-01-30 15:16 · 中国 北京 电信
银牌会员
★★★
积分 2,098
发帖 566
注册 2007-09-11 07:27
18年会员
UID 97070
性别 男
状态 离线
疏忽了。
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
第 5 楼
发表于 2008-01-30 15:17 · 中国 陕西 西安 电信
铂金会员
★★★★
积分 5,212
发帖 2,478
注册 2007-02-08 23:39
19年会员
UID 79003
性别 男
状态 离线
你的函数没有返回值。。。。
Function dg(yy)
dg = wsh.regread("HKEY_CLASSES_ROOT\qqw\" & yy)
End Function
论坛跳转:
