Shulou(Shulou.com)06/03 Report--

This article mainly describes how to use vbs to convert any file into vbs file file2 vbs, the text is very detailed, has a certain reference value, interested friends must read!

Tr4c3: For convenience in dos, I changed the inputbox to args.

The code is as follows:

'Program By xiaolu

'name:file2vbs.vbs

On error resume next

Set Args = Wscript.Arguments

If Args.length2 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

Methods of regenerating documents

cscript xx.vbs x:\xxxx.exe

The above is "how to use vbs to convert arbitrary files to vbs file2vbs" all the contents of this article, thank you for reading! Hope to share the content to help everyone, more relevant knowledge, welcome to pay attention to the industry information channel!

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.