VBS脚本怎样批量加密？

godxch

1. On Error Resume Next
   
2. set arg=wscript.arguments
   
3. set fso=createobject("scripting.filesystemobject")
   
4. set ws=createobject("wscript.shell")
   
5. Set objDialog = CreateObject("UserAccounts.CommonDialog")
   
6. do
   
7. if arg(0)="" then
   
8.     objDialog.Filter = "vbs File|*.vbs|All Files|*.*"
   
9.     objDialog.InitialDir = ""
   
10.     objDialog.ShowOpen
    
11.     strLoadFile = objDialog.FileName
    
12. Else
    
13. strLoadFile=arg(0)
    
14. end if
    
15. if strLoadFile="" then
    
16. k=msgbox("您没有选择任何文件，重新选择吗？",vbYesNo,"vbs代码加密工具")
    
17. if k=vbno Then wscript.quit
    
18. Else
    
19. Exit Do
    
20. end if
    
21. loop
    
22. set f=fso.getfile(strLoadFile)
    
23. path=f.parentfolder
    
24. name=f.name
    
25. set fr=fso.opentextfile(strLoadFile)
    
26. dow=13
    
27. do while fr.atendofstream=false
    
28.     line=fr.readline
    
29.     for i=1 to len(line)
    
30.         achar=mid(line,i,1)
    
31.         dow=dow&Chr(44)&asc(achar)
    
32.     next
    
33.      dow=dow&chr(44)&"13"&chr(44)&"10"
    
34. loop
    
35. fr.close
    
36. set fw=fso.createtextfile(strLoadFile,2)
    
37. fw.write "strs=array("&dow&")"&chr(13)&chr(10)&_
    
38. "for i=1 to UBound(strs)"&chr(13)&chr(10)&_
    
39. "        runner=runner&chr(strs(i))"&chr(13)&chr(10)&_
    
40. "next"&chr(13)&chr(10)&_
    
41. "Execute runner"

复制代码

这个代码一次只能选择一个修改进行加密 高手帮忙修改成批量的 谢谢