久久久精_欧美黑人一区_亚洲一区二区三区四区在线观看_日韩欧美理论片_久久伊人操_久久久久久亚洲

【轉載】VBA下載文件三種方法_編織博客

2013-12-06 13:55 查看博客原文

Sub test()
??? Dim H, S
??? Set H = CreateObject("Microsoft.XMLHTTP")
??? H.Open "GET", http://www.163.com/test.exe, False?? '文件網址

??? H.send???
??? Set S = CreateObject("ADODB.Stream")
??? S.Type = 1 '二進制
??? S.Open
??? S.write H.Responsebody '寫入取得的內容
??? S.savetofile "c:\temp\test.exe", 2? '保存文檔

??? S.Close
End Sub

Sub test2()

Dim bt() as byte '建立數組

Dim H As Object
??? Set H = CreateObject("Microsoft.XMLHTTP")
??? H.Open "GET", "Http://www.163.com/test.exe", False
??? H.send
??? If H.Status = 200 Then '沒有超時

bt = H.Responsebody

??????? Open "http://www.163.com\test.exe" For Binary As #1 '建立二進制文件
??????? Put 1, , bt '寫入文件
??????? Close #1
??? End If
End Sub?

Private Declare Function URLDownloadToFile Lib "urlmon" Alias _

"URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, _

ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

'申明API

Sub downlaod()
URLDownloadToFile 0, "End Sub



新跟帖 (共1 條評論)

查看更多評論。。。

主站蜘蛛池模板: 黄色av免费在线看 | 国产在线一区不卡 | 一本大道香蕉大a√在线 | 亚洲成人一区 | 日韩欧美在线观看 | 玖玖综合网 | 亚洲第一av| 影音先锋 色先锋 | 国产日韩精品一区二区 | 午夜精品久久久久久久久久久久久 | 国产精品成人一区二区 | 懂色aⅴ精品一区二区三区蜜月 | 欧美视频精品 | 欧美成人黄色小视频 | av片在线看| 日韩精品视频在线观看免费 | 久久久久久国产精品 | 欧美日韩一区二区三区不卡视频 | 亚洲热视频在线观看 | 中文在线观看www | 99国产精品久久久久久久久久 | 国产免费一区 | 欧美激情高清 | 亚洲精品第一区在线观看 | 日韩在线免费 | 亚洲最新无码中文字幕久久 | 在线一区观看 | 激情一区二区三区 | 中文字幕视频在线 | 中文字幕在线精品 | 99久久婷婷国产综合精品电影 | 榴莲视频成人在线观看 | 亚洲国产精品久久久久久久 | 国产一区二区三区免费在线观看 | 亚洲欧美日韩一区 | 九一精品国产 | 国产精品一二三区视频出来一 | 青青伊人久久 | 欧美精品久久久久久久久老牛影院 | 毛片视频免费播放 | 久久精品综合 |