tb腾博会app安卓 (关于tb腾博会app安卓 玩法)

将任何文件编程批处理文件的工具，把任何文件的内存数据保存到批处理文件中，只要你将想要转换的文件拖拽至any2bat.vbs文件图标上即可。

把想要处理的文件拖放到 any2bat上，会处理完毕显示successful,生成一个以处理文件的名字命名的批处理文件

不支持位系统（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!