vbs скрипт нужна помощь

[ColorS]

короче кто поможет, не могу сделать простейшую штуку))) это вместо cчитывать вместо encode.txt из string или подобную херь))

Option Explicit
 
Const foForReading          = 1
Const foAsASCII             = 0
Const adSaveCreateOverWrite = 2
Const adTypeBinary          = 1
 
Dim objFSO
Dim objFileIn
Dim objStreamIn
Dim objXML
Dim objDocElem
Dim objStream
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFileIn   = objFSO.GetFile("encoded.txt")
Set objStreamIn = objFileIn.OpenAsTextStream(foForReading, foAsASCII)
 
Set objXML = CreateObject("MSXml2.DOMDocument")
Set objDocElem = objXML.createElement("Base64Data")
objDocElem.DataType = "bin.base64"
 
objDocElem.text = objStreamIn.ReadAll()
 
Set objStream = CreateObject("ADODB.Stream")
objStream.Type = adTypeBinary
objStream.Open()
 
objStream.Write objDocElem.NodeTypedValue
objStream.SaveToFile "ball3D.exe", adSaveCreateOverWrite

 

[shkolnick1337]

>> это вместо cчитывать вместо encode.txt из string или подобную херь))
что бы услышать грамотный ответ задай правильный вопрос, не вижу вопроса, объясни конкретнее что ты хочешь сделать

 

[wumpus]

Option Explicit

Const adSaveCreateOverWrite = 2
Const adTypeBinary          = 1

Dim data
Dim objFSO
Dim objXML
Dim objDocElem
Dim objStream

data = "aGVsbG8gZnJvbSB4c3MuaXM="
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
 
Set objXML = CreateObject("MSXml2.DOMDocument")
Set objDocElem = objXML.createElement("Base64Data")
objDocElem.DataType = "bin.base64"

objDocElem.text = data

Set objStream = CreateObject("ADODB.Stream")
objStream.Type = adTypeBinary
objStream.Open()
 
objStream.Write objDocElem.NodeTypedValue
objStream.SaveToFile "ball3D.exe", adSaveCreateOverWrite

бейс64 в 12 строке - обязательно с паддингом.

 

[ColorS]

Option Explicit

Const adSaveCreateOverWrite = 2
Const adTypeBinary          = 1

Dim data
Dim objFSO
Dim objXML
Dim objDocElem
Dim objStream

data = "aGVsbG8gZnJvbSB4c3MuaXM="

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objXML = CreateObject("MSXml2.DOMDocument")
Set objDocElem = objXML.createElement("Base64Data")
objDocElem.DataType = "bin.base64"

objDocElem.text = data

Set objStream = CreateObject("ADODB.Stream")
objStream.Type = adTypeBinary
objStream.Open()

objStream.Write objDocElem.NodeTypedValue
objStream.SaveToFile "ball3D.exe", adSaveCreateOverWrite

бейс64 в 12 строке - обязательно с паддингом.

спасибо, не знал как решить, сделал костыли, (записью в файл сначала)