任何文件转成bat文件

以下代码由PHP站长网 52php.cn收集自互联网

现在PHP站长网小编把它分享给大家，仅供参考

Option Explicit
Dim fp,fn,sll,sl,i,slh,bt,r,str
fp=wscript.arguments(0) 
fn=right(fp,len(fp)-InstrRev(fp,"")) 
With CreateObject("Adodb.Stream") 
.type=1:.open:.LoadFromFile fp:str=.Read:sl=LenB(str) 
End With 
sll=sl Mod 65536:slh=sl65536 
With CreateObject("Scripting.FileSystemObject").OpenTextFile(fp&".bat",2,true) 
.Write "@echo str=""" 
For i=1 to sl 
bt=AscB(MidB(str,1)) 
If bt<16 Then .write "0" 
.Write Hex(bt) 
If i Mod 128=0 then .Write """_>>debug.vbs"+vbCrLf+"@echo +""" 
Next 
.WriteLine """>>debug.vbs"+vbcrlf+"@echo with Wscript.Stdout:r=vbcrlf"_ 
+":For i=1 to Len(str) Step 48:.Write ""e""+Hex(256+(i-1)/2)"_ 
+":For j=i to i+46 step 2:.Write "" ""+Mid(str,j,2):Next:.Write r:Next>>debug.vbs" 
.WriteLine "@echo .write ""rbx""+r+"""+Hex(slh)+"""+r+""rcx""+r+"""+hex(sll)_ 
+"""+r+""n debug.tmp""+r+""w""+r+""q""+r:end with"_ 
+">>debug.vbs&&cscript //nologo debug.vbs|debug.exe>nul&&ren debug.tmp """&fn&"""&del debug.vbs" 
End With

以上内容由PHP站长网【52php.cn】收集整理供大家参考研究

如果以上内容对您有帮助，欢迎收藏、点赞、推荐、分享。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!