我利用Internet Tranfer Control來抓某某網頁的某個圖檔,先取得網頁上圖檔的路徑後,再將此圖抓回存檔,但我比較我存的檔與原始檔後,發現我存的檔前後會多一些資料,請問我哪裡有錯,程式大概如下:
Private Sub Inet1_StateChanged(ByVal State As Integer)
Dim vtData As Variant

Select Case State
    Case icError

Case icResponseCompleted

Open FileName For Binary Access Write As #1

Do
        vtData = Inet1.GetChunk(1024, icByteArray)
        DoEvents
        If UBound(vtData) = -1 Then
          Exit Do
        Else
          Put #1, , vtData
        End If
      Loop
      Close #1
  End Select
End Sub
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(0) 人氣()