标题: [已解决]我想用VBS判断一个注册的键值存不存在
[打印本页]
作者: hackhd
时间: 2008-1-27 00:50
标题: [已解决]我想用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 ]
作者: hackhd
时间: 2008-1-27 19:09
给点提示啊。
作者: slore
时间: 2008-1-27 20:49
你会写不会查?query什么的好像……
作者: hackhd
时间: 2008-1-27 21:26
如果这个路径存在。我可以判断到值
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 ]
作者: slore
时间: 2008-1-28 01:11
就是错了就不存在啊
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
作者: hackhd
时间: 2008-1-28 02:27
其实已经解决了我没有把标题修正。
我是加了一个容错代码