En ufak koddan yapmak istenilir ise webbrowser'e downloadın adresini yazarsanız zaten indirir ayrıca kayıt yeri felanda çıkıyor

alıntıdır arladaşlar bende hata verdi bu kodlar deniyenler oldu diyor acaba neden olabilir sizce? Downloader1. BeginDownload "http://www.sitem.com/dosya. zip", "C:\dosya. zip" burda 1 hata veriyor... İnternet ten bir dosya yüklemeye kalktığınızda programınız donar ve ancak dosya yüklenince kendine gelir ama bu kod sayesinde donma olmadan istediğiniz sayıda download yapabilirsiniz. Forumda bir arkadaşa cevap olarak yazmıştım foruma uğramayanlar için makale haline getirdim. Öncelikle projenize bir adet UserControl ekleyin adını da Downloader yapın veya kendi istediğiniz bir isim fark etmez alttaki kodları activex in kod bölümüne koyun en altta da kullanım kodlarını vericem 'Usercontrol kodları başladı Option Explicit Event DownloadProgress Event DownloadError Event DownloadComplete Private Sub UserControl_AsyncReadComplete On Error Resume Next Dim F As Byte, Fn As Long If AsyncProp. BytesMax <> 0 Then Fn = FreeFile F = AsyncProp. Value Open AsyncProp. PropertyName For Binary Access Write As #Fn Put #Fn, , F Close #Fn Else RaiseEvent DownloadError End If RaiseEvent DownloadComplete(CLng , AsyncProp. PropertyName) End Sub Private Sub UserControl_AsyncReadProgress On Error Resume Next If AsyncProp. BytesMax <> 0 Then RaiseEvent DownloadProgress(CLng , CLng , AsyncProp. PropertyName) End If End Sub Private Sub UserControl_Resize UserControl. Width = ScaleX(32, vbPixels, vbTwips) UserControl. Height = ScaleY(32, vbPixels, vbTwips) End Sub Public Sub BeginDownload On Error GoTo ErrorBeginDownload UserControl. AsyncRead URL, vbAsyncTypeByteArray, SaveFile, vbAsyncReadForceUpdate Exit Sub ErrorBeginDownload: RaiseEvent DownloadError Exit Sub End Sub 'usercontrol kodları bitti şimdi hazırladığınız activex'i projenize ekleyin bir adet prorogresbar ekleyin bir adet te label ekleyin ve alttaki kodları kendinize göre uyarlayın hepsi bu. 'form kodları başladı Private Sub Downloader1_DownloadComplete ProgressBar1. Value = 0 Label1. Caption = "Yükleme Tamamlandı" End Sub Private Sub Downloader1_DownloadProgress ProgressBar1. Max = MaxBytes ProgressBar1. Value = CurBytes Label1. Caption = "Yükleme : " & CurBytes & " / " & MaxBytes & " " & Format((ProgressBar1. Value / ProgressBar1. Max 100), "0") & "% tamamlandı." End Sub Private Sub Downloader1_DownloadError MsgBox "Hata oluştu. " & SaveFile & "." & vbCrLf & " adlı dosya yüklenemedi", vbCritical, "Download Hatası" End Sub Private Sub Command1_Click 'burada download yapmaya başlıyoruz Downloader1. BeginDownload "http://www.sitem.com/dosya. zip", "C:\dosya. zip" End Sub 'form kodları bitti güle güle kullanın