图片如何转换为可以在批处理中使用的十六进制代码？

phandsome

图片如何转换代码，给个源代码&使用说明

BatCoder

你想把图片转换成什么？转换成F22战斗机？

phandsome

类似于 00 B6 37 B3 96 00 B6 37 B3 96
......................

Batcher

any2bat之批处理版和VBS版
http://bbs.bathome.net/thread-4435-1-1.html

ht河豚

PS:我转载个,Any2Bat超慢
下面VBS

1. Set fso = CreateObject("Scripting.FileSystemObject")
   
2. Set shl = CreateObject("WScript.Shell")
   
3. Set xml = CreateObject("Microsoft.XMLDOM")
   
4. Set stm = CreateObject("ADODB.Stream")
   
5. 
   
6. Set arg = WScript.Arguments
   
7. If arg.Count = 0 Then WScript.Quit
   
8. If Not fso.FileExists(arg(0)) Then WScript.Quit
   
9. 
   
10. Set f = fso.GetFile(arg(0))
    
11. rr = shl.Run("makecab.exe """ & f.Path & """ """ & f.Name & ".cab""", 0, True)
    
12. If rr <> 0 Then WScript.Quit
    
13. 
    
14. Set el = xml.createElement("tmp")
    
15. el.dataType = "bin.base64"
    
16. stm.Open : stm.Type = 1
    
17. stm.LoadFromFile f.Name & ".cab"
    
18. el.nodeTypedValue = stm.Read
    
19. txt = Replace(el.text, vbLf, ">>CAB" & vbNewLine & "@echo ")
    
20. stm.Close
    
21. fso.DeleteFile f.Name & ".cab"
    
22. 
    
23. With fso.OpenTextFile(f.Path & ".bat", 2, True)
    
24. .WriteLine "@echo off"
    
25. .WriteLine "echo 正在释放CAB包文件..."
    
26. .WriteLine "echo ^<package^>^<cab xmlns:dt=""urn:schemas-microsoft-com:datatypes"" dt:dt=""bin.base64""^> >CAB"
    
27. .WriteLine "("
    
28. .Write "@echo " : .Write txt : .WriteLine ">>CAB"
    
29. .WriteLine ")"
    
30. .WriteLine "echo ^</cab^>^<job^>^<script language=""VBScript""^> >>CAB"
    
31. .WriteLine "echo Set xml = CreateObject(""Microsoft.XMLDOM"")>>CAB"
    
32. .WriteLine "echo xml.load WScript.ScriptFullName>>CAB"
    
33. .WriteLine "echo Set stm = CreateObject(""ADODB.Stream"")>>CAB"
    
34. .WriteLine "echo stm.Open : stm.Type = 1 >>CAB"
    
35. .WriteLine "echo stm.Write xml.documentElement.childNodes.item(0).nodeTypedValue>>CAB"
    
36. .WriteLine "echo stm.SaveToFile ""CAB.cab"">>CAB"
    
37. .WriteLine "echo ^</script^>^</job^>^</package^> >>CAB"
    
38. .WriteLine "echo 正在解压缩文件..."
    
39. .WriteLine "rename CAB CAB.wsf"
    
40. .WriteLine "cscript.exe //nologo CAB.wsf"
    
41. .WriteLine "expand.exe -r CAB.cab>nul"
    
42. .Write "del CAB.wsf & del CAB.cab"
    
43. .Close
    
44. End With
    
45. WScript.Echo "Successful!"

复制代码

把文件拖到VBS图标上即可打包