萬(wàn)能批處理文件生成器(any2bat)

將任何文件編程批處理文件的工具，把任何文件的內(nèi)存數(shù)據(jù)保存到批處理文件中，只要你將想要轉(zhuǎn)換的文件拖拽至any2bat.vbs文件圖標(biāo)上即可。

把想要處理的文件拖放到 any2bat上，會(huì)處理完畢顯示successful,生成一個(gè)以處理文件的名字命名的批處理文件

不支持64位系統(tǒng)（win7，vista）

any2bat的vbs源碼見下:

'any2bat {s11ss 2008-1-17}
'獲取要轉(zhuǎn)換的文件：
If Not WScript.Arguments.Count=1 Then WScript.Echo "將要轉(zhuǎn)換的文件托拽到我身上！":WScript.Quit
Set fso=CreateObject("scripting.filesystemobject")
Set f=fso.GetFile(WScript.Arguments(0))
If Err Then WScript.Quit
If f.Size=0 Then WScript.Quit
'獲取文件2進(jìn)制代碼：
Set stream=CreateObject("adodb.stream")
With stream
.Type=1:.Open:.LoadFromFile f
End With
bin=stream.Read(f.Size)
'生成bat：
cr=vbCrLf:n=&h100:line=1:seg=1:segeof=false:str=""
Set bat=fso.CreateTextFile(f.Path&".bat")
bat.WriteLine "@md %tmp%\t1.17&&pushd %tmp%\t1.17&&more <""%~f0"" +1|debug>nul&&popd&©/b %tmp%\t1.17\t* """&f.Name&"""&&rd/s/q %tmp%\t1.17&goto :eof"
For i=1 To Lenb(bin)
zero="":segeof=false:one=Ascb(Midb(bin,i,1))
If one<16 Then zero="0"
str=str&" "&zero& Hex(one)
If i Mod 16=0 Then bat.WriteLine "e"& Hex(n)&str:str="":n=n+16:line=line+1
If line Mod 4081=0 Then bat.WriteLine "n t"&seg&cr&"rcx"&cr&"ff00"&cr&"w":seg=seg+1:n=&h100:line=1:segeof=true
Next
If Not str="" Then bat.WriteLine "e"& Hex(n)&str
If Not segeof Then bat.WriteLine "n t"&seg&cr&"rcx"&cr& Hex(f.Size-(seg-1)*65280)&cr&"w"&cr&"q"
stream.Close:bat.Close
Set stream=Nothing:Set f=Nothing:Set bat=Nothing:Set fso=Nothing
WScript.Echo "Successful!"