dim h, s set h = createobject("microsoft.xmlhttp") h.open "get", "http://www.yt-e.com/a.exe", false?? '網絡中的文件url h.send set s = createobject("adodb.stream") s.type = 1 s.open s.write h.responsebody s.savetofile "c:/a.exe", 2? '本地保存文件名 s.close ，歡迎訪問網頁設計愛好者web開發。
