标题: 关于VBS代码的问题救教！ [打印本页]

---

作者: 5872169     时间: 2008-7-19 13:56    标题: 关于VBS代码的问题救教！

我把VBS代码，保存到WORD文档，再从WORD文档复制到TXT文件后保存为VBS，但无法使用，请高手解释一下，怎么才能收藏这个代码，以下是一个VBS加密代码，产生了这个现象！
set fso=createobject("scripting.filesystemobject")
Set objDialog = CreateObject("UserAccounts.CommonDialog")
objDialog.Filter = "vbs File|*.vbs|All Files|*.*"
objDialog.InitialDir = ""
objDialog.ShowOpen
strLoadFile = objDialog.FileName

if not strLoadFile = "" then
set op=fso.opentextfile(strLoadFile)
dow=13
do while op.atendofstream=false
line=op.readline
for i=1 to len(line)
achar=mid(line,i,1)
dow=dow&Chr(44)&asc(achar)

next
dow=dow&chr(44)&"13"&chr(44)&"10"
loop
op.close
set op=fso.opentextfile(strLoadFile,2)
op.write "strs=array("&dow&")"&chr(13)&chr(10)&_
"for i=1 to UBound(strs)"&chr(13)&chr(10)&_
" runner=runner&chr(strs(i))"&chr(13)&chr(10)&_
"next"&chr(13)&chr(10)&_
"Execute runner"
msgbox "加密成功",,"￥夜七制作 - zh159修改￥"
end if

---

作者: slore     时间: 2008-7-19 14:05
你的系统问题吧？

UserAccounts.CommonDialog对象无法创建？

你哪里报什么错误？

这个代码很。。。。

就是把代码转成ascii码。然后execute

---

作者: 5872169     时间: 2008-7-19 14:14
我这里出现
行：28
字符：8
错误：语句未结束
代码：800A0401
源：microsoft vbscript编译器错误

---

作者: slore     时间: 2008-7-19 14:20
你在复制下这个吧？

这个总共才28行……最后1行才6个字符……

估计是你复制的时候有问题。

---

作者: 5872169     时间: 2008-7-19 14:37
我仔细看了一下，真是错了，哈哈，谢谢楼上的朋友！！