下面是编程之家 jb51.cc 通过网络收集整理的代码片段。
编程之家小编现在分享给大家,也给大家做个参考。
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=sl\65536 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
以上是编程之家(jb51.cc)为你收集整理的全部代码内容,希望文章能够帮你解决所遇到的程序开发问题。
如果觉得编程之家网站内容还不错,欢迎将编程之家网站推荐给程序员好友。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。