sFile = "加密后的文件.exe"
str= (省略1.6W行)
Function MakeFile()
if Len(Trim(sFile)) = 0 Then Wscript.Quit
Set oStream = Createobject("Adodb.Stream")
Set oXML = Createobject("Microsoft.XMLDOM")
Set oElement = oXML.CreateElement("oTmpElement")
oElement.DataType = "bin.hex"
oElement.NodeTypedValue = str
With oStream
.Type = 1
.Mode = 3
.Open
.Write oElement.NodeTypedValue
.SaveToFile sFile
End With
oStream.Close
Set oStream = Nothing
Set oXML = Nothing
Set oElement = Nothing