Foruma Birtane INET OBJESI EKLE

bir buton koy içine ise

sun buton1()
indir "http://adres/resim.jpg","c:\resim1.jpg"
end sub

Sub indir(ByVal URL As String, ByVal Dosyaadi As String)
Dim HTTP As Inet
Dim boyut() As Byte

Set HTTP = New Inet
With HTTP
.Protocol = icHTTP
.URL = URL
boyut() = .OpenURL(.URL, icByteArray)
End With
Set HTTP = Nothing

Open Dosyaadi For Binary Access Write As #1
Put #1, , boyut()
Close #1
End Sub