Visual Basic - Girilen Adresteki Dosyayı İndirebilme ?? Yardım

Üstadlar

text1.text = "http://www.dancewithshadows.com/autoindia/wp-content/uploads/2009/03/yamaha-fz-s-picture.jpg"

diyelim

Bu resimi bilgisayarda istenilen bir yola indirtilebilir mi?

Bir de kaydolan dosyanın tam yolunu text2.text e yapıştıracak.

Yardımlarınızı bekliyorum... Şimdiden teşekkürler...

yabancı bir forumda bir indirme yöneticisine rastlamıştım. Bulursam paylaşırım burdan.

Shell.Text = (Text1)

Paşam dosyayı istediğim yere nasıl kaydettireceğim?
Kaydolan dosyanın tam yolunu text2 ye nasıl alırım.

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

Deyayı Anlamadıysanız veya yapamasanız proje Dosyası oalrak hazırlayıp Buraya Zioli halde yerlestiriyim.

çok iyi olur ya paşam. Allah razı olsun senden.

estfurullah önemi yok basit birsey biiraz bekle hazırlayıp koyucam buraya

Arkadsım Asagıdalinkten indirebilirsin visualbasic proje dosyasıdır

OCX Gereksinimi MSINET.ocx tir Her windowsta standart bulunur

http://www.solidfiles.com/d/a591/