我利用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
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
全站熱搜
留言列表