[MSINET & VB] Vaag probleem met .gif downloaden

[Verwijderd]

Ik heb een errugh vaag probleem ik gebruik MSINET.OCX (allom bekend als Microsoft Internet Transfer Controls bla.) om dingen van website binnen te trekken waaronder ook plaatjes ... het gekke is nu dat als ik opdracht geen om een bestand te downloaden dat op .gif eindigt dat ie zegt typemischmatch ... en zodra ik er een andere extensie neerzet doe ie het gewoon.

Iemand een idee wat het probleem kan zijn of is het zo dat MSINET.OCX beveiligd is tegen het downloaden van images?!

[Sponge]

code?

Waarschijnlijk moet je de plaatjes via een bytearray downloaden.

Edit, heb ook wel wat code, niet echt de beste methode met die goto, maar ja.

code:

Private Sub DownloadImage(strURL As String, strDest As String)
    On Error GoTo Errorhandler
    Dim bArray() As Byte
    Dim lngFreeFile As Long
    
    lngFreeFile = FreeFile
    
Again:
    '//Download in byte array
    inetPage.Document = ""
    inetPage.RemoteHost = ""
    bArray() = inetPage.OpenURL(strURL, icByteArray)
    
    '//Save to file
    Open strDest For Binary As #lngFreeFile
    Put #lngFreeFile, , bArray
    Close #lngFreeFile

Exit Sub
Errorhandler:
If Err.Number = icTimeout Then
'    Sleep 1000      ''/wait a while
    GoTo Again  '//Try again for a while
End If
End Sub

[Verwijderd]

u where right thanks man problem fixed