| 发表于:2007-07-05 18:43:36 楼主 |
我在取这个网页的内容时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 |
|
|
|
|