首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

急取得网页内容的有关问题-为何只能取得部分?不能取得全部

2012-02-22 
急!求助!!取得网页内容的问题---为何只能取得部分?不能取得全部?我在取这个网页的内容时http://gb.weather

急!求助!!取得网页内容的问题---为何只能取得部分?不能取得全部?
我在取这个网页的内容时http://gb.weather.gov.hk/wxinfo/currwx/tc_posc_0705.htm,只取得部分的,为何?
'這個程式需要一個Inet1
Private   Sub   GetHtmlFile(sURL   As   String,   sFile   As   String)
'sUrl傳入所要抓取的檔案,sFile傳入所要存的檔名
Dim   bData()   As   Byte
'取消連線
Inet1.Cancel
'設定連線模式
Inet1.Protocol   =   icHTTP
'設定連線目的
Inet1.URL   =   sURL
'取回資料
bData()   =   Inet1.OpenURL(,   icByteArray)
'   將資料寫到檔案
Open   sFile   For   Binary   As   #1
Put   #1,   ,   bData()
Close
Erase   bData
End   Sub

[解决办法]
应该有一定的延时 等待下载

热点排行