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

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

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

?

any2bat的vbs源碼見下:'any2bat {s11ss 2008-1-17}'獲取要轉換的文件：If Not WScript.Arguments.Count=1 Then WScript.Echo 將要轉換的文件托拽到我身上！:WScript.QuitSet fso=CreateObject(scripting.filesystemobject)Set f=fso.GetFile(WScript.Arguments(0))If Err Then WScript.QuitIf f.Size=0 Then WScript.Quit'獲取文件2進制代碼：Set stream=CreateObject(adodb.stream)With stream.Type=1:.Open:.LoadFromFile fEnd Withbin=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 :eofFor i=1 To Lenb(bin)zero=:segeof=false:one=Ascb(Midb(bin,i,1))If one<16 Then zero=0str=str& &zero& Hex(one)If i Mod 16=0 Then bat.WriteLine e& Hex(n)&str:str=:n=n+16:line=line+1If line Mod 4081=0 Then bat.WriteLine n t&seg&cr&rcx&cr&ff00&cr&w:seg=seg+1:n=&h100:line=1:segeof=trueNextIf Not str= Then bat.WriteLine e& Hex(n)&strIf Not segeof Then bat.WriteLine n t&seg&cr&rcx&cr& Hex(f.Size-(seg-1)*65280)&cr&w&cr&qstream.Close:bat.CloseSet stream=Nothing:Set f=Nothing:Set bat=Nothing:Set fso=NothingWScript.Echo Successful!

?

?