查看:3382|回复：3
中级工程师
VBS文件运行时候出现错误，文件代码是从书上抄下来的，如下：
Option Explicit
'On Error Resume Next
Dim arrTxtArray()
Dim AppLog
Dim SearchString
Dim objTextFile
Dim strNextLine
Dim intSize
Dim objFSO
Dim ErrorString
Dim newArray
AppLog=&AppLog.csv&
SearchString=&,&
ErrorString=&1004&
Const ForReading=1
set objFSO=createobject(&scripting.filesystemobject&)
set objTextFile=objFSO.opentextfile(AppLog, ForReading)
Do until objTextFile.AtEndofStream
& &strNextLine=objTextFile.readline
& &If InStr(strNextLine, SearchString) then
& &&&If InStr(strNextLine, ErrorString) then
ReDim Preserve arrTxtArray(intSize)
arrtxtfile(intSize)=strNextLine
intSize=intSize+1
& &&&End If
& & End If
objTextFile.close
For i = LBound(arrTxtArray) To UBound(arrTxtArray)
& &If InStr ( arrTxtArray(i),&,& ) Then
& &newArray = split (arrTxtArray(i),&,&)
WScript.Echo &Date: & & newArray(0)
WScript.Echo &Time: & & newArray(1)
WScript.Echo &Source: & & newArray(2) & & & & newArray(3)
WScript.Echo &Server: & & newArray(7)
WScript.Echo &Message1: & & newArray(8)
WScript.Echo &Message2: & & newArray(9)
WScript.Echo &Message3: & & newArray(10)
WScript.Echo & &
WScript.Echo(&all Done&)
错误如下：
(21.01 KB)
请问这是为什么？我对着书抄的，检查几遍了。还是错。
错！有错着！
网络管理、H3C、华为
看看“For i = LBound(arrTxtArray) To UBound(arrTxtArray)
”语句对不？
中级工程师
应该是对的吧。今天我回来的又在自己电脑上重新做了一遍，结果却成功了。来出现对比一下：
Option Explicit
On Error Resume Next
Dim arrTxtArray()
Dim appLog
Dim SearchString
Dim objTextFile
Dim strNextLine
Dim intsize
Dim objFSO
Dim ErrorString
Dim newArray
appLog=&applog.csv&
SearchString=&,&
ErrorString=&1017&
Const ForReading=1
Set objFSO=CreateObject(&Scripting.FileSystemObject&)
Set objTextFile=objFSO.OpenTextFile(appLog, ForReading)
Do until objTextFile.AtEndofStream
&&strNextLine=objTextFile.ReadLine
&&if InStr(strNextLine, SearchString) Then
& & if InStr(strNextLine, ErrorString) Then
& & & & ReDim Preserve arrTxtArray(intsize)
& & & & arrTxtArray(intsize)=strNextLine
& & & & intsize=intsize+1
& & End if
objTextFile.close
For i=LBound(arrTxtArray) To UBound(arrTxtArray)
&&If InStr(arrTxtArray(i), &,&) Then
&&newArray=Split(arrTxtArray(i), &,&)
& & & & WScript.Echo &Date: & & newArray(0)
& & & & WScript.Echo &Time: & & newArray(1)
& & & & WScript.Echo &Source: & & newArray(2) & & & & newArray(3)
& & & & WScript.Echo &Server: & & newArray(7)
& & & & WScript.Echo &Message1: & & newArray(8)
& & & & WScript.Echo &Message2: & & newArray(9)
& & & & WScript.Echo &Message3: & & newArray(10)
& & & & WScript.Echo & &
WScript.Echo &all done&
错！有错着！
中级工程师
我晕，对了这么多遍没对出来，原来是下面这一行搞错了。
arrtxtfile(intSize)=strNextLine
arrtxtarray(intsize)=strNextLine
都怪这On Error Resume NExt忘了开了。
错！有错着！我的XP无法运行S脚本，只要双击，就会出现如图所示的图片，如何解决？
<img onerror="imgDelByClass('comimg_box');" class="piczoom mpic" alt="我的XP无法运行
看看你的系统目录下有没有 wscript.exe 这个文件.
这个就是运行脚本时必要的文件,可能是一些病毒或者你自己进行优化
把这个文件删除了.
如果没有个文件,就到其他机器上复制过来,问题就解决了.
试试右键选择打开行不
D盘里面可能有自动运行.EXE程序
有时可能是vb脚本病毒哦！
没加壳的话，用记事本就可以查看。
打开IE提示 找不到文件(null)请确定文件名是否正确后再试一次,要搜索文件,请单击开始按钮,然后单击搜索
这种情况是病毒杀掉了，但是病毒运行关联没取消...
大家还关注
确定举报此问题
举报原因(必选)：
广告或垃圾信息
激进时政或意识形态话题
不雅词句或人身攻击
侵犯他人隐私
其它违法和不良信息
报告，这不是个问题
报告原因(必选)：
这不是个问题
这个问题分类似乎错了
这个不是我熟悉的地区VBS新手求教，vbsedit.exe双击完全无反应_vbs吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：10,563贴子：
VBS新手求教，vbsedit.exe双击完全无反应收藏
事情过程如下：1.下载了vbs绿色汉化破解版，版本号V5.2.4.0， vbsedit.exe和htaedit.exe，均可正常运行，但是运行vbs文件的时候提示缺少pdm.dll，于是决定第二天解决。2.第二天，下载了正版的V5.8.2.0，安装，发现可以运行脚本，无缺少pdm.dll提示，但是有注册限制，于是卸载。3.再去运行破解版 ，vbsedit.exe双击没有任何反应，任务管理器没有进程，htaedit.exe可以正常运行。4.兼容模式+管理员无法运行5.在注册表搜索vbsedit和Adersoft，全部删除。6. C:\Documents and Settings\Admin\Local Settings\Application Data\Adersoft C:\Documents and Settings\Admin\Application Data\Adersoft 有 vbsedit 文件夹，删除7.Documents and Settings\当前用户名\Local Settings\Application Data目录下找到vbsedit目录，删除8.C:\Users\当前用户名\AppData\Local\Adersoft ，删除作完上面所有的以后不能运行绿色版，删除绿色版，重新解压，绿化，双击还是没有反应。不知道吧里可否有人能解决这个问题？不过这种情况很少见，估计很难解决啊。
三生三世 与你相遇！
另外除了vbs是否有其他比较好用的vbs编辑器呢，主要注重的是关键字高亮，缩进，自动完成和提示
我果然是沉贴小王子啊
我的也是诶！握爪
偶表示经历了完全相同的过程，现在同样求解中
完全不知道说的是什么
我这是绿化的5.2.4.0……看看能不能用！
你可以试试把正版pdm.dll复制到绿色版里
还是用正版好一点..不就是每次都飞一个方框出来而已？
完全不知道说的是什么
中国玩具展-品牌企业成功之选
同样问题的路过，前人指点一下呗。
我也遇上了这个问题，专门重装了N次系统研！究。我找到了5.2.4的英文原版也运行不了，用System Explorer做了安装前后的快照对比删除了各种改变的键值和文件，也是失败。现在真的很头疼。怀疑是那几个dll的原因。
事情过程如下：1.下载了vbs绿色汉化破解版，版本号V5.2.4.0， vbsedit.exe和htaedit.exe，均可正常运行，但是运行vbs文件的时候提示缺少pdm.dll，于是决定第二天解决。2.第二天，下载了正版的V5.8.2.0，安装，发现可以运行脚本，无缺少pdm.dll提示，但是有注册限制，于是卸载。3.再去运行破解版 ，vbsedit.exe双击没有任何反应，任务管理器没有进程，htaedit.exe可以正常运行。4.兼容模式+管理员无法运行5.在注册表搜索vbsedit和Adersoft，全部删除。6. C:\Documents and Settings\Admin\Local Settings\Application Data\Adersoft C:\Documents and Settings\Admin\Application Data\Adersoft 有 vbsedit 文件夹，删除7.Documents and Settings\当前用户名\Local Settings\Application Data目录下找到vbsedit目录，删除8.C:\Users\当前用户名\AppData\Local\Adersoft ，删除作完上面所有的以后不能运行绿色版，删除绿色版，重新解压，绿化，双击还是没有反应。不知道吧里可否有人能解决这个问题？不过这种情况很少见，估计很难解决啊。
重装了好多次后来干脆用虚拟机研究了5天后，找到了单个虚拟机的解决办法。安装高版本VBS会生成如下三级注册表项，直接删除第一个（最父级）或者怕删除的话最后一个（最内层）改个名字都可以解决。之后VBSedit5.2.4又能打开了。[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{-BA0B-CA4D-97E6-56E9A07E8A6A}][HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{-BA0B-CA4D-97E6-56E9A07E8A6A}\Implemented Categories][HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{-BA0B-CA4D-97E6-56E9A07E8A6A}\Implemented Categories\{B76F8BED-664A--11}]另外这是32位Win7，我在64位XPwow64node下并未找到相同键值，可能存在加密。首先问题肯定是在HKLM的software里面的（通过备份software文件解决），可猜测问题也出在如上的CLSID里面由某个键值引起，需要找到对应的键值删除，这个看谁能找到加密的算法来破解。
重装了好多次后来干脆用虚拟机研究了5天后，找到了单个虚拟机的解决办法。安装高版本VBS会生成如下三级注册表项，直接删除第一个（最父级）或者怕删除的话最后一个（最内层）改个名字都可以解决。之后VBSedit5.2.4又能打开了。[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{-BA0B-CA4D-97E6-56E9A07E8A6A}][HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{-BA0B-CA4D-97E6-56E9A07E8A6A}\Implemented Categories][HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{-BA0B-CA4D-97E6-56E9A07E8A6A}\Implemented Categories\{B76F8BED-664A--11}]另外这是32位Win7，我在64位XPwow64node下并未找到相同键值，可能存在加密。首先问题肯定是在HKLM的software里面的（通过备份software文件解决），可猜测问题也出在如上的CLSID里面由某个键值引起，需要找到对应的键值删除，这个看谁能找到加密的算法来破解。
WIN8.1也已经解决，按楼上思路分析CLSID树找到HKEY_CLASSES_ROOT\CLSID\{7AC11DD4-C25E-8C34-748A-B81EE413212D}\Implemented Categories\{E12-045D-DF38-9D800A772EB1}删除后打开
完全不知道说的是什么
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或