中国DOS联盟

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

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

中国DOS联盟论坛
现在时间是 2026-08-03 19:27
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » [VBS]如何判断一个注册表的项是否存在? 查看 1,133 回复 4
楼 主 [VBS]如何判断一个注册表的项是否存在? 发表于 2007-03-24 11:40 ·  中国 安徽 马鞍山 电信
中级用户
★★
积分 397
发帖 168
注册 2006-10-08 10:07
19年会员
UID 64934
状态 离线
用VBS。
但在操作之前,最好先知道这个项存在不!

如果存在,那再下步!
不存在就出错了!

所以,想知道如何判断一个注册表的项或者键值存在不!!
2 发表于 2007-03-24 12:17 ·  中国 河北 保定 联通
银牌会员
★★★
积分 1,513
发帖 554
注册 2005-12-30 00:50
20年会员
UID 48180
性别 男
状态 离线

On Error Resume Next
Set WshSHell = WScript.CreateObject("WScript.Shell")
Str=WshSHell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\病毒")
if Err.Number <> 0 then
msgbox "没发现病毒。"
else
msgbox "发现病毒。"
end if
3 发表于 2007-03-26 07:34 ·  中国 安徽 宣城 电信
中级用户
★★
积分 397
发帖 168
注册 2006-10-08 10:07
19年会员
UID 64934
状态 离线
问下,我把脚本保存下来,并重命名为vbs格式的了,但为什么不能顺利运行呢?
我是完整复制代码的!

运行的时候,错误出现在第一行,字符在第一个字符!
错误原因是,无效字符!
代码:80010408

请问怎么解决,我经常碰到这样的事情

我复制的代码是:
================

On Error Resume Next
Set WshSHell = WScript.CreateObject("WScript.Shell")
Str=WshSHell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\病毒")
if Err.Number <> 0 then
msgbox "没发现病毒。"
else
msgbox "发现病毒。"
end if
===================

保存在D盘,名为dd.vbs
4 发表于 2007-03-26 08:06 ·  中国 广东 广州 天河区 电信
金牌会员
★★★★
一叶枝头,万树皆春
积分 2,564
发帖 1,127
注册 2006-12-25 22:57
19年会员
UID 74552
性别 男
状态 离线
reg query "HKLM\software\microsoft\windows\currentversion\run1"||echo 不存在
5 发表于 2007-03-26 23:41 ·  中国 河北 保定 联通
银牌会员
★★★
积分 1,513
发帖 554
注册 2005-12-30 00:50
20年会员
UID 48180
性别 男
状态 离线
Originally posted by kich at 2007-3-26 07:34:
问下,我把脚本保存下来,并重命名为vbs格式的了,但为什么不能顺利运行呢?
我是完整复制代码的!

运行的时候,错误出现在第一行,字符在第 ...



我调试好的,请运行时仔细检查一遍你复制保存的代码看是否复制多或少了字符,另外也许还是象上次一样是你上的这家网吧电脑系统的原因,换家网吧试试


另外你该自己学会分析错误,尤其是就只有这么少的几行代码,
第一行出错,好啊 你把其它几行全删除掉 只留一句On Error Resume Next
看是否还出错,象你说的那情况肯定还要出错,那你仔细看看是否是On Error Resume Next不错,如果确定一字未错,那就去查VBS教科书看看有没有On Error Resume Next这语句,如果没有那是我们错了,如果教科书都有,就不要钻牛角尖的想VBS代码的原因了,请找操作系统和软件的原因。。。。。远了 跑题了。。。。

[ Last edited by baomaboy on 2007-3-26 at 11:52 PM ]
论坛跳转: