[ 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 其实已经解决了我没有把标题修正。
我是加了一个容错代码