中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum
游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟
中国DOS联盟论坛
现在时间是 2026-09-26 22:28 		共 47,813 主题排行 / 349,918 发帖 / 今日 0 篇 / 48,276 会员排行
DOS批处理 & 脚本技术（批处理室） » [已解决]我想用VBS判断一个注册的键值存不存在
可打印版本 　891 / 5
第1楼　hackhd 发表于 2008-01-27 00:50
中级用户　发帖 102　积分 231
[已解决]我想用VBS判断一个注册的键值存不存在
"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer\Run\"
"""mingzi""=""1.exe"""

假如我想在VBS里面判断这个键值为mingzi存不存在。内容为1.exe存不存在。怎么做？

[ Last edited by hackhd on 2008-1-28 at 02:27 AM ]
第2楼　hackhd 发表于 2008-01-27 19:09
中级用户　发帖 102　积分 231
给点提示啊。
第3楼　slore 发表于 2008-01-27 20:49
铂金会员　发帖 2,478　积分 5,212
你会写不会查？query什么的好像……
第4楼　hackhd 发表于 2008-01-27 21:26
中级用户　发帖 102　积分 231
如果这个路径存在。我可以判断到值
Dim WshShell,keys
Set WshShell = WScript.CreateObject("WScript.Shell")
keys=wshshell.regread ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run\Explorer")

if keys<>"qq.exe" then
msgbox("呀呀，没有写进去啊")
end if

那要是路径不存在就会出错。就要加一个判断路径是否存在的语句。。

怎做呢？

[ Last edited by hackhd on 2008-1-27 at 11:34 PM ]
第5楼　slore 发表于 2008-01-28 01:11
铂金会员　发帖 2,478　积分 5,212
就是错了就不存在啊


on Error Resume Next
Dim WshShell,keys
Set WshShell = WScript.CreateObject("WScript.Shell")
keys = wshshell.regread ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run\Explorer")
If Err Then
MsgBox Err.description
Else
If keys <> "qq.exe" Then
MsgBox "呀呀，没有写进去啊"
End If
End If
第6楼　hackhd 发表于 2008-01-28 02:27
中级用户　发帖 102　积分 231
其实已经解决了我没有把标题修正。
我是加了一个容错代码
[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023