exe转vbs的vbs代码

来源：百度文库编辑：神马文学网时间：2024/04/30 02:18:50

　　这个不是exe2vbs 所有类型的文件都可以转化的不过限于string的大小文件不能太大我测试过3m的文件是可以的
　　Tr4c3:为了方便在dos下使用，我把inputbox改成了args
　　'Program By xiaolu
　　'name:file2vbs.vbs
　　On error resume next
　　Set Args = Wscript.Arguments
　　If Args.length<>2 Then
　　Wscript.Echo "Usage:" & Wscript.ScriptName & " c:\muma.exe c:\muma.vbs"
　　Wscript.Quit
　　End If
　　do while 1
　　fname = Args(0)
　　Set Ado = CreateObject("adodb.stream")
　　With Ado
　　.Type = 1
　　.open
　　.loadfromfile fname
　　ss = .read
　　End With
　　exit do
　　Loop
　　fname = Args(1)
　　Set Fso=CreateObject("Scripting.FileSystemObject")
　　Set File=fso.OpenTextFile(fname,2, True)
　　lens=lenB(ss) mod 500
　　For j=0 to int(lenB(ss)/500)-1
　　if j=0 then
　　File.writeline "ss="""&Bin2Str(midb(ss,500*j+1,500))"""_"
　　else
　　File.writeline "+"""&Bin2Str(midb(ss,500*j+1,500))"""_"
　　end if
　　next
　　if lens>0 then
　　File.writeline "+"""&Bin2Str(rightb(ss,lens))""""
　　else
　　File.writeline "+"&chr(34)&chr(34)
　　end if
　　File.writeline ""
　　File.writeline "Set RS=CreateObject(""ADODB.Recordset""):L=Len(ss)/2:RS.Fields.Append ""m"",205,L:RS.Open:RS.AddNew:RS(""m"")=ss&ChrB(0):RS.Update:ss=RS(""m"").GetChunk(L)"
　　File.writeline "Set s=CreateObject(""ADODB.Stream""):with s:.Mode = 3:.Type = 1:.Open():.Write ss:.SaveToFile wscript.arguments(0),2:end with"
　　File.close
　　Set fso=nothing
　　Ado.close
　　set Abo=nothing
　　Function Bin2Str(Re)
　　For i = 1 To lenB(Re)
　　bt = AscB(MidB(Re, i, 1))
　　if bt < 16 Then Bin2Str=Bin2Str"0"
　　Bin2Str=Bin2Str & Hex(bt)
　　Next
　　End Function
　　重新生成文件的办法
　　cscript xx.vbs x:\xxxx.exe本篇文章来源于黑客基地-全球最大的中文黑客站原文链接：http://www.hackbase.com/tech/2009-01-31/43519.html

exe转vbs的vbs代码可以将文件转换为vbs语句的vbs代码 VBS教程<上><转> VBS教程<上><转> VBS参数用vbs将名称转换为正确的大小写的代码判断表单中添加是否数字的JS与VBS代码转载的通俗易懂的VBS教程分享vbs脚本办事的乐趣如何清除系统里的.VBS病毒转VBS控制Excel常见方法 - ls_721521的个人空间 - 51Testing软... vbs控制网页访问 VBS教程：方法-Skip VBS脚本宝典教程 vbs局域网聊天.txt VBS公式编制入门 VBS教程<上> 安全知识：清除系统里的.VBS病毒-华军资讯取得汉语拼音的函数(适用VB,VBA,VBS) 取得汉语拼音的函数(适用VB,VBA,VBS) 如何防范vbs脚本病毒 vbs实现WinRAR密码破解 vbs之一：简易QQ狂发！ vbs之四：限制程序运行