Any2Bat.vbs将exe文件转换成bat

	一个把任何文件转成批处理的很好用的脚本。 用Base64编码数据，好处是压缩了大小（相对bin2str而言），缺点是增加处理时间和脚本复杂度。 由于效率瓶颈是在bat生成vbs这一步，所以总的来说还是合算了。 写文件用ADODB.Recordset，比debug好使多了。 大部分事都是脚本做的，批处理只是用echo来生成脚本而已。 echo版的好处是，全选复制粘贴到cmd shell里就把文件上传了。 新版本改进如下： 1，增加数据压缩功能（使用系统自带的makecab.exe和expand.exe）。 2，Base64编码采用Microsoft.XMLDOM，速度快，代码更简洁。 3，echo生成临时脚本时文件名不带后缀，避免杀毒软件频繁扫描，提高效率。 用法不变。以文件名为参数，或拖放文件到Any2Bat.vbs的图标上。 文件大小以生成的bat不超过500K为宜。 '====================代码分割线============== 'Any2Bat.vbs v2.0 by zzzEVAzzz Set fso = CreateObject("Scripting.FileSystemObject") Set shl = CreateObject("WScript.Shell") Set xml = CreateObject("Microsoft.XMLDOM") Set stm = CreateObject("ADODB.Stream") Set arg = WScript.Arguments If arg.Count = 0 Then WScript.Quit If Not fso.FileExists(arg(0)) Then WScript.Quit Set f = fso.GetFile(arg(0)) rr = shl.Run("makecab.exe """ & f.Path & """ xx.cab", 0, True) If rr <> 0 Then WScript.Quit Set el = xml.createElement("cab") el.dataType = "bin.base64" stm.Open : stm.Type = 1 stm.LoadFromFile "xx.cab" el.nodeTypedValue = stm.Read txt = Replace(el.text, vbLf, ">>xx" & vbNewLine & "@echo ") stm.Close fso.DeleteFile "xx.cab" With fso.OpenTextFile(f.Path & ".bat", 2, True) .WriteLine "@echo ^<package^>^<cab xmlns:dt=""urn:schemas-microsoft-com:datatypes"" dt:dt=""bin.base64""^> >xx" .Write "@echo " : .Write txt : .WriteLine ">>xx" .WriteLine "@echo ^</cab^>^<job^>^<script language=""VBScript""^> >>xx" .WriteLine "@echo Set xml = CreateObject(""Microsoft.XMLDOM"")>>xx" .WriteLine "@echo xml.load WScript.ScriptFullName>>xx" .WriteLine "@echo Set stm = CreateObject(""ADODB.Stream"")>>xx" .WriteLine "@echo stm.Open : stm.Type = 1 >>xx" .WriteLine "@echo stm.Write xml.documentElement.childNodes.item(0).nodeTypedValue>>xx" .WriteLine "@echo stm.SaveToFile ""xx.cab"">>xx" .WriteLine "@echo ^</script^>^</job^>^</package^> >>xx" .WriteLine "rename xx xx.wsf" .WriteLine "cscript.exe //nologo xx.wsf" .WriteLine "expand.exe -r xx.cab>nul" .Write "del xx.wsf & del xx.cab" .Close End With '================代码结束================

ＣooL．泪猪说：

	楼主发帖辛苦了，谢谢楼主分享！ 酷家QQ空间社区，我的最爱！

ＣooL．皇児说：