Board logo

标题: [问题求助] VBS脚本怎样批量加密? [打印本页]

作者: godxch    时间: 2012-2-20 22:57     标题: VBS脚本怎样批量加密?

  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"
复制代码
这个代码一次只能选择一个修改进行加密 高手帮忙修改成批量的 谢谢




欢迎光临 批处理之家 (http://bathome.net./) Powered by Discuz! 7.2