' Script written by Ogoniciel http://tdprograms.ovh
dim xHttp: Set xHttp = createobject("Microsoft.XMLHTTP")
dim bStrm: Set bStrm = createobject("Adodb.Stream")
xHttp.Open "GET", "http://tdprograms.ovh/randomfiles/youtube-dl.exe", False
xHttp.Send

with bStrm
    .type = 1 '//binary
    .open
    .write xHttp.responseBody
    .savetofile "C:\Program Files (x86)\Pontes Tools\Pontes Media Downloader\Engine\youtube-dl.exe", 2 '//overwrite
end with
WSH.Sleep 2000
msgbox("All done! After launch try also use Update download engine in Pontes media downloader menu.")