中国DOS联盟

set fso=createobject("scripting.filesystemobject")



scf=inputbox("请输入要加密的脚本文件名","VBS加密程序","*.vbs")

set op=fso.opentextfile(scf)

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(scf,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 "加密成功",,"￥夜七制作￥"

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

Originally posted by YunEr at 2007-7-12 20:49:
怎么都没有注释的啊？。。。

程序应该有必要的注释的....