Board logo

标题: [问题求助] VBS如何以二进制形式输出一个exe文件 [打印本页]
作者: wskwfkbdn    时间: 2016-8-28 11:17     标题: VBS如何以二进制形式输出一个exe文件

VBS如何以二进制形式输出一个exe文件
求教
目的是不想附带一个第三方命令行程序，直接让vbs脚本写出exe文件。
作者: CrLf    时间: 2016-8-28 11:52

http://www.bathome.net/viewthread.php?tid=4435

[拓展]批处理的另一种解决方案：
http://www.bathome.net/thread-12349-1-1.html
作者: wskwfkbdn    时间: 2016-8-28 11:56

回复 2# CrLf


    感谢
作者: codegay    时间: 2016-8-28 13:40

本帖最后由 codegay 于 2016-8-28 16:54 编辑

编码后再解码，比如用base64编码。是更简单通用的玩法吧？
x64的系统已经不带debug了
作者: wskwfkbdn    时间: 2016-8-28 13:51

回复 4# codegay


    能不能给个代码
作者: codegay    时间: 2016-8-28 14:11

回复 5# wskwfkbdn


    我又不玩VBS。
不过道理上相通。
base64的编码方法在很多语言里都有标准库。

#以下python3 代码是把wget.exe 的二进制流经过base64编码，然后再把base64编码的字符串还原成xxx.exe，测试还能运行。
  1. """

  2. python base64 模块学习

  3. #2016年8月28日 13:50:30 codegay

  4. 

  5. """

  6. 

  7. import base64

  8. 

  9. with open("wget.exe","rb") as f:

  10.     txt=base64.encodebytes(f.read())

  11. 

  12. 

  13. with open("xxx.exe","wb") as f:

  14.     f.write(base64.standard_b64decode(txt.decode()))
复制代码
作者: codegay    时间: 2016-8-28 15:50

python3

我把sleep.exe 编码成了字符串。
sleep.exe 是一个第三方命令行工具，用来延迟的。

运行以下python代码可以还原得到resleep.exe
  1. import base64

  2. 

  3. ss = """TVqQAAMAAAAEAAAA//8AALgAAAAAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  4. AAAA4AAAAA4fug4AtAnNIbgBTM0hVGhpcyBwcm9ncmFtIGNhbm5vdCBiZSBydW4gaW4gRE9TIG1v

  5. ZGUuDQ0KJAAAAAAAAAD+ls8EuvehV7r3oVe696FXOf+uV7v3oVe696BXrvehVzn//Fe/96FXNP/+

  6. V7T3oVc5//9Xu/ehVzn/+1e796FXUmljaLr3oVcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABQRQAA

  7. TAEDAAmhoD4AAAAAAAAAAOAADwELAQcKAAgAAAAIAAAAAAAA7hIAAAAQAAAAIAAAAAAAAQAQAAAA

  8. AgAABQACAAUAAgAEAAAAAAAAAABAAAAABAAAq6UAAAMAAIAAAAQAACAAAAAAEAAAEAAAAAAAABAA

  9. AAAAAAAAAAAAAPAUAAA8AAAAADAAAAgEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABgEAAAHAAA

  10. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACgRAABAAAAAAAAAAAAAAAAAEAAAUAAAAAAAAAAAAAAA

  11. AAAAAAAAAAAAAAAAAAAAAC50ZXh0AAAAjgYAAAAQAAAACAAAAAQAAAAAAAAAAAAAAAAAACAAAGAu

  12. ZGF0YQAAACQAAAAAIAAAAAIAAAAMAAAAAAAAAAAAAAAAAABAAADALnJzcmMAAAAIBAAAADAAAAAG

  13. AAAADgAAAAAAAAAAAAAAAAAAQAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  14. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  15. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  16. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  17. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  18. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  19. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  20. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGIW

  21. AABqFgAAAAAAAJgVAACmFQAAsBUAALgVAADEFQAA1BUAAOAVAACQFQAABBYAABQWAAAiFgAANBYA

  22. AFQWAACGFQAA9BUAAHwVAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJoaA+AAAAAAIAAAAaAAAA

  23. cBEAAHAFAAAgICAgICAgICVzIFstY10gY29tbWl0ZWQtbWVtb3J5IHJhdGlvICgxJSUtMTAwJSUp

  24. CgAAICAgICAgICAlcyBbLW1dIHRpbWUtdG8tc2xlZXAtaW4tbWlsbGlzZWNvbmRzCgAAVXNhZ2U6

  25. ICAlcyAgICAgIHRpbWUtdG8tc2xlZXAtaW4tc2Vjb25kcwoAAAAtYwAALW0AAAAAAAD/////OhQA

  26. AU4UAAEAAAAASAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  27. AAAAAAAAAAAAAAAABCAAAcARAAEBAAAATkIxMAAAAAAJoaA+AQAAAHNsZWVwLnBkYgAAAAAAAAAA

  28. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADkFAAAVos1SBAA

  29. AVeLfCQMV2jgEAAB/9ZXaLAQAAH/1ldofBAAAf/Wg8QYX17CBACLVCQEM8DrFYD5MHwYgPk5fxMP

  30. vsmNBICNREHQQooKhMl15esDg8j/wgQAVYvsg+wsg030/4NN/P+DfQgCU4tdDFbHRfjoAwAAdQ3/

  31. cwTorf///4lF/OtZagNZOU0IdVeLcwRXvxARAAEzwPOmdRL/cwjoif///4lF/MdF+AEAAACLcwRq

  32. A1m/DBEAATPA86ZfdR7/cwjoZf///4P4ZIlF9H8Ox0X8CgAAAMdF+AEAAACDffz/dQz/M+gW////

  33. M8BA6zeLdfSD/v90H41F1FD/FQQQAAE5ddh8HotF+A+vRfxQ/xUAEAAB6+GLRfgPr0X8UP8VABAA

  34. ATPAXlvJw2ooaBgRAAHongEAAGaBPQAAAAFNWnUooTwAAAGBuAAAAAFQRQAAdRcPt4gYAAABgfkL

  35. AQAAdCGB+QsCAAB0BoNl5ADrKoO4hAAAAQ528TPJOYj4AAAB6xGDuHQAAAEOdt4zyTmI6AAAAQ+V

  36. wYlN5INl/ABqAf8VNBAAAVmDDRggAAH/gw0cIAAB//8VMBAAAYsNFCAAAYkI/xUsEAABiw0QIAAB

  37. iQihRBAAAYsAoyAgAAHo7QAAAIM9ACAAAQB1DGiSFAAB/xUkEAABWejBAAAAaFwQAAFoWBAAAeis

  38. AAAAoQwgAAGJRdyNRdxQ/zUIIAABjUXgUI1F2FCNRdRQ/xUcEAABiUXMaFQQAAFoUBAAAeh2AAAA

  39. i0Xgiw0YEAABiQH/deD/ddj/ddTo/v3//4PEMIvwiXXIg33kAHUHVv8VFBAAAf8VEBAAAesti0Xs

  40. iwiLCYlN0FBR6CkAAABZWcOLZeiLddCDfeQAdQdW/xUoEAAB/xVAEAABg038/4vG6GEAAADDzP8l

  41. DBAAAf8lIBAAAWgAAAMAaAAAAQDoWwAAAFlZwzPAw8zMzGjkFAABZKEAAAAAUItEJBCJbCQQjWwk

  42. ECvgU1ZXi0X4iWXoUItF/MdF/P////+JRfiNRfBkowAAAADDi03wZIkNAAAAAFlfXlvJUcP/JTgQ

  43. AAH/JTwQAAE4FQAAAAAAAAAAAABIFgAADBAAACwVAAAAAAAAAAAAAIAWAAAAEAAAAAAAAAAAAAAA

  44. AAAAAAAAAAAAAABiFgAAahYAAAAAAACYFQAAphUAALAVAAC4FQAAxBUAANQVAADgFQAAkBUAAAQW

  45. AAAUFgAAIhYAADQWAABUFgAAhhUAAPQVAAB8FQAAAAAAAO8CcHJpbnRmAADKAF9jX2V4aXQA+wBf

  46. ZXhpdABOAF9YY3B0RmlsdGVyAM0AX2NleGl0AACaAmV4aXQAAHEAX19pbml0ZW52AHAAX19nZXRt

  47. YWluYXJncwBAAV9pbml0dGVybQCeAF9fc2V0dXNlcm1hdGhlcnIAALsAX2FkanVzdF9mZGl2AACD

  48. AF9fcF9fY29tbW9kZQAAiABfX3BfX2Ztb2RlAACcAF9fc2V0X2FwcF90eXBlAADyAF9leGNlcHRf

  49. aGFuZGxlcjMAAG1zdmNydC5kbGwAANsAX2NvbnRyb2xmcAAASQNTbGVlcAD6AUdsb2JhbE1lbW9y

  50. eVN0YXR1cwAAS0VSTkVMMzIuZGxsAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  51. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  52. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  53. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  54. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  55. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  56. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAAAE7m

  57. QLsAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  58. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  59. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  60. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  61. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  62. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  63. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  64. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  65. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  66. AAAAAAAAAAEAEAAAABgAAIAAAAAAAAAAAAAAAAAAAAEAAQAAADAAAIAAAAAAAAAAAAAAAAAAAAEA

  67. CQQAAEgAAABgMAAApAMAAAAAAAAAAAAAAAAAAAAAAACkAzQAAABWAFMAXwBWAEUAUgBTAEkATwBO

  68. AF8ASQBOAEYATwAAAAAAvQTv/gAAAQACAAUAAADODgIABQAAAM4OPwAAAAgAAAAEAAQAAQAAAAAA

  69. AAAAAAAAAAAAAAIDAAABAFMAdAByAGkAbgBnAEYAaQBsAGUASQBuAGYAbwAAAN4CAAABADAANAAw

  70. ADkAMAA0AEIAMAAAAEwAFgABAEMAbwBtAHAAYQBuAHkATgBhAG0AZQAAAAAATQBpAGMAcgBvAHMA

  71. bwBmAHQAIABDAG8AcgBwAG8AcgBhAHQAaQBvAG4AAAA8AAoAAQBGAGkAbABlAEQAZQBzAGMAcgBp

  72. AHAAdABpAG8AbgAAAAAASQBEAFcAIAB0AG8AbwBsAHMAAABwACgAAQBGAGkAbABlAFYAZQByAHMA

  73. aQBvAG4AAAAAADUALgAyAC4AMwA3ADkAMAAuADAAIABiAHUAaQBsAHQAIABiAHkAOgAgAGQAbgBz

  74. AHIAdgBfAGQAZQB2ACgAdgAtAHMAbQBnAHUAbQApAAAATgAXAAEASQBuAHQAZQByAG4AYQBsAE4A

  75. YQBtAGUAAABTAGwAZQBlAHAALgBFAHgAZQAgAGEAbgBkACAAQgBlAGUAcAAuAEUAeABlAAAAAACA

  76. AC4AAQBMAGUAZwBhAGwAQwBvAHAAeQByAGkAZwBoAHQAAACpACAATQBpAGMAcgBvAHMAbwBmAHQA

  77. IABDAG8AcgBwAG8AcgBhAHQAaQBvAG4ALgAgAEEAbABsACAAcgBpAGcAaAB0AHMAIAByAGUAcwBl

  78. AHIAdgBlAGQALgAAAFYAFwABAE8AcgBpAGcAaQBuAGEAbABGAGkAbABlAG4AYQBtAGUAAABTAGwA

  79. ZQBlAHAALgBFAHgAZQAgAGEAbgBkACAAQgBlAGUAcAAuAEUAeABlAAAAAABqACUAAQBQAHIAbwBk

  80. AHUAYwB0AE4AYQBtAGUAAAAAAE0AaQBjAHIAbwBzAG8AZgB0AK4AIABXAGkAbgBkAG8AdwBzAK4A

  81. IABPAHAAZQByAGEAdABpAG4AZwAgAFMAeQBzAHQAZQBtAAAAAAA6AAsAAQBQAHIAbwBkAHUAYwB0

  82. AFYAZQByAHMAaQBvAG4AAAA1AC4AMgAuADMANwA5ADAALgAwAAAAAABEAAAAAQBWAGEAcgBGAGkA

  83. bABlAEkAbgBmAG8AAAAAACQABAAAAFQAcgBhAG4AcwBsAGEAdABpAG8AbgAAAAAACQSwBAAAAAAA

  84. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  85. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  86. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  87. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  88. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  89. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  90. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  91. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  92. AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA="""

  93. 

  94. with open("resleep.exe","wb") as f:

  95.     f.write(base64.standard_b64decode(ss))
复制代码
作者: codegay    时间: 2016-8-29 00:57

PowerShell 脚本中嵌入二进制文件
http://www.pstips.net/powershell ... in-your-script.html
作者: B魔方大人    时间: 2016-9-13 05:04

本帖最后由 B魔方大人 于 2016-9-13 05:11 编辑

base64处理后数据量会变大，事实上不如用原码，如果对编码方面有需求，当然base64是不错的！
如果是稍微大点的数据或许可以考虑LZ算法系列，不过由于解码过程抵消了一部分压缩量，所以处理稍微大点的数据比较合适！
作者: codegay    时间: 2016-9-13 08:01

回复 9# B魔方大人


   光给出一个“最NB的”解决方向，但是没有可行性或者很难实现，是没用的。

类似“坐直升机上班快”这种建议对大家真的一点用的都没有。因为都造不出直升机也买不起。
作者: B魔方大人    时间: 2016-9-13 08:13

回复 10# codegay


    呵呵，请认真看！
作者: more    时间: 2016-9-18 09:46     标题: RE: VBS如何以二进制形式输出一个exe文件

本帖最后由 more 于 2016-9-18 09:53 编辑

这是我以前写的一个还原铃声的代码,可以借鉴一下:
  1. Option Explicit

  2. 

  3. '把保存为 TXT 的文件恢复为原文件

  4. Dim arrBit(), arrChr, objFso, objFile, objADODB, lngCnt, strFile, i

  5. Dim blnStart, strTmp

  6. 

  7. blnStart = False

  8. lngCnt = 0

  9. 

  10. Set objFso = CreateObject("Scripting.FileSystemObject")

  11. strFile = objFso.GetSpecialFolder(2) & "\不要用我的爱来伤害我.mp3"	'文件还原到"临时文件夹"

  12. 

  13. '如果已经存在指定文件(非第一次运行此脚本)则直接调用播放的过程

  14. If objFso.FileExists(strFile) Then

  15. 	Call PlaySong(strFile)

  16. 	Set objFso = Nothing

  17. 	WScript.Quit

  18. End If

  19. 

  20. Set objFile = objFso.OpenTextFile(WScript.ScriptFullName, 1, False)

  21. Set objADODB = CreateObject("ADODB.Stream")

  22. 

  23. '把文件内容赋值给数组

  24. Do Until objFile.AtEndOfStream

  25. 	If blnStart = True Then

  26. 		ReDim Preserve arrBit(lngCnt)

  27. 		strTmp = objFile.ReadLine

  28. 		arrBit(lngCnt) = Right(strTmp, Len(strTmp) - 1)

  29. 		lngCnt = lngCnt + 1

  30. 	Else

  31. 		If objFile.ReadLine = "'不要用我的爱来伤害我.mp3" Then blnStart = True

  32. 	End If

  33. Loop

  34. objFile.Close

  35. Set objFile = Nothing

  36. 

  37. '还原文件

  38. lngCnt = lngCnt - 1

  39. ReDim arrChr(lngCnt \ 2)

  40. For i = 0 To lngCnt - 1 Step 2

  41. 	arrChr(i \ 2) = ChrW(arrBit(i + 1) * 256 + arrBit(i))

  42. Next

  43. If i = lngCnt Then arrChr(i \ 2) = ChrW(arrBit(i))

  44. arrChr = Join(arrChr, "")

  45. objADODB.Type = 1

  46. objADODB.Open

  47. With CreateObject("ADODB.Stream")

  48. 	.Type = 2

  49. 	.Open

  50. 	.Writetext arrChr

  51. 	.Position =  2

  52. 	.Copyto objADODB

  53. 	.Close

  54. End With

  55. objADODB.SaveToFile strFile, 2

  56. objADODB.Close

  57. Set objADODB = Nothing

  58. Set objFso = Nothing

  59. 

  60. Call PlaySong(strFile)

  61. 

  62. Sub PlaySong(strMusic)

  63. 	Dim i

  64. 	For i = 0 To 2	'播放三次

  65. 		With CreateObject("WMPlayer.ocx")

  66. 			.url = strMusic

  67. 			.controls.play

  68. 			Do Until .playstate = 1

  69. 				WScript.Sleep 500

  70. 			Loop

  71. 		End With

  72. 	Next

  73. End Sub

  74. 

  75. '不要用我的爱来伤害我.mp3

  76. '255

  77. '250

  78. '179
复制代码
'由于 2M 的铃声文件(txt后缀)提示文件过大而无法上传,遗憾

'分隔符#######################
'这个函数可以把文件以二进制分解后存储为 txt 后缀
  1. Sub Backup(srcFile)

  2.     Dim objADODB, objFso, objFl, i, arrBit(0)

  3.     Set objADODB = CreateObject("ADODB.Stream")

  4.     Set objFso = CreateObject("Scripting.FileSystemObject")

  5.     Set objFl = objFso.OpenTextFile(srcFile & "_Back.txt", 2, True)

  6.     With objADODB

  7.         .Open

  8.         .Type = 1    'adTypeBinary = 1

  9.         .LoadFromFile srcFile

  10.         For i = 0 To .Size - 1

  11.             arrBit(0) = AscB(.Read(1))

  12.             objFl.WriteLine arrBit(0)

  13.         Next

  14.         .Close

  15.     End With

  16.     Set objADODB = Nothing

  17.     objFl.Close

  18.     Set objFl = Nothing

  19.     Set objFso = Nothing

  20. End Sub
复制代码
作者: yu2n    时间: 2016-9-18 12:43

参考：
VBS 二进制文件 与 Base64编码文本文件 互转工具
  1. Option Explicit

  2. 

  3. Dim sTitle

  4. sTitle = "二进制文件 与 Base64编码文本文件 互转工具"

  5. If WScript.Arguments.Count = 0 Then

  6. 	MsgBox "使用方法：请将要格式化的文件拖动到这个文件上。", vbInformation, sTitle

  7. 	WScript.Quit

  8. End If

  9. 

  10. Dim sReturn

  11. sReturn = Msgbox("请选择转化模式：" & vbCrLf & vbCrLf & _

  12.                 "   [ 是(Y) ]   二进制文件 转 Base64编码文本文件" & vbCrLf & _

  13.                 "   [ 否(N) ]   Base64编码文本文件 转 二进制文件 " & vbCrLf , _

  14.                 vbQuestion + vbYesNoCancel, sTitle)

  15.                 

  16. If sReturn = vbCancel Then WScript.Quit

  17. 

  18. Dim fso, wso

  19. Set fso = Createobject("Scripting.FileSystemObject") 

  20. Set wso = CreateObject("WScript.Shell")

  21. 

  22. Dim i

  23. For Each i In WScript.Arguments

  24.     If sReturn = vbYes Then BinaryToBase64 i, i & ".base64.txt"

  25.     If sReturn = vbNo  Then Base64ToBinary i, i & ".bin"

  26. Next

  27. 

  28. 

  29. wso.popup chr(13) + "文件格式化完成。    " + chr(13), 1, "提示", vbInformation

  30. WScript.Quit

  31. 

  32. 

  33. Function BinaryToBase64(ByVal BinaryFile, ByVal TextFile)

  34.     ' This script reads jpg picture named SuperPicture.jpg, converts it to base64

  35.     ' code using encoding abilities of MSXml2.DOMDocument object and saves

  36.     ' the resulting data to encoded.txt file

  37. 	' http://stackoverflow.com/questions/496751/base64-encode-string-in-vbscript

  38. 

  39.     'Option Explicit

  40. 

  41.     Const fsDoOverwrite     = true  ' Overwrite file with base64 code

  42.     Const fsAsASCII         = false ' Create base64 code file as ASCII file

  43.     Const adTypeBinary      = 1     ' Binary file is encoded

  44. 

  45.     ' Variables for writing base64 code to file

  46.     Dim objFSO

  47.     Dim objFileOut

  48. 

  49.     ' Variables for encoding

  50.     Dim objXML

  51.     Dim objDocElem

  52. 

  53.     ' Variable for reading binary picture

  54.     Dim objStream

  55. 

  56.     ' Open data stream from picture

  57.     Set objStream = CreateObject("ADODB.Stream")

  58.     objStream.Type = adTypeBinary

  59.     objStream.Open()

  60.     'objStream.LoadFromFile("SuperPicture.jpg")

  61.     objStream.LoadFromFile(BinaryFile)

  62. 

  63.     ' Create XML Document object and root node

  64.     ' that will contain the data

  65.     Set objXML = CreateObject("MSXml2.DOMDocument")

  66.     Set objDocElem = objXML.createElement("Base64Data")

  67.     objDocElem.dataType = "bin.base64"

  68. 

  69.     ' Set binary value

  70.     objDocElem.nodeTypedValue = objStream.Read()

  71. 

  72.     ' Open data stream to base64 code file

  73.     Set objFSO = CreateObject("Scripting.FileSystemObject")

  74.     'Set objFileOut = objFSO.CreateTextFile("encoded.txt", fsDoOverwrite, fsAsASCII)

  75.     Set objFileOut = objFSO.CreateTextFile(TextFile, fsDoOverwrite, fsAsASCII)

  76. 

  77.     ' Get base64 value and write to file

  78.     objFileOut.Write objDocElem.text

  79.     objFileOut.Close()

  80. 

  81.     ' Clean all

  82.     Set objFSO = Nothing

  83.     Set objFileOut = Nothing

  84.     Set objXML = Nothing

  85.     Set objDocElem = Nothing

  86.     Set objStream = Nothing

  87.     

  88. End Function

  89. 

  90. 

  91. Function Base64ToBinary(ByVal sTextFile, ByVal sBinaryFile)

  92. 

  93.     Const foForReading          = 1 ' Open base 64 code file for reading

  94.     Const foAsASCII             = 0 ' Open base 64 code file as ASCII file

  95.     Const adSaveCreateOverWrite = 2 ' Mode for ADODB.Stream

  96.     Const adTypeBinary          = 1 ' Binary file is encoded

  97. 

  98.     ' Variables for reading base64 code from file

  99.     Dim objFSO

  100.     Dim objFileIn

  101.     Dim objStreamIn

  102. 

  103.     ' Variables for decoding

  104.     Dim objXML

  105.     Dim objDocElem

  106. 

  107.     ' Variable for write binary picture

  108.     Dim objStream

  109. 

  110.     ' Open data stream from base64 code filr

  111.     Set objFSO = CreateObject("Scripting.FileSystemObject")

  112.     'Set objFileIn   = objFSO.GetFile("encoded.txt")

  113.     Set objFileIn   = objFSO.GetFile(sTextFile)

  114.     Set objStreamIn = objFileIn.OpenAsTextStream(foForReading, foAsASCII)

  115. 

  116.     ' Create XML Document object and root node

  117.     ' that will contain the data

  118.     Set objXML = CreateObject("MSXml2.DOMDocument")

  119.     Set objDocElem = objXML.createElement("Base64Data")

  120.     objDocElem.DataType = "bin.base64"

  121. 

  122.     ' Set text value

  123.     objDocElem.text = objStreamIn.ReadAll()

  124. 

  125.     ' Open data stream to picture file

  126.     Set objStream = CreateObject("ADODB.Stream")

  127.     objStream.Type = adTypeBinary

  128.     objStream.Open()

  129. 

  130.     ' Get binary value and write to file

  131.     objStream.Write objDocElem.NodeTypedValue

  132.     'objStream.SaveToFile "SuperPicture.jpg", adSaveCreateOverWrite

  133.     objStream.SaveToFile sBinaryFile, adSaveCreateOverWrite

  134. 

  135.     ' Clean all

  136.     Set objFSO = Nothing

  137.     Set objFileIn = Nothing

  138.     Set objStreamIn = Nothing

  139.     Set objXML = Nothing

  140.     Set objDocElem = Nothing

  141.     Set objStream = Nothing

  142.     

  143. End Function
复制代码




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