Hazir OCX ile Dosya Indirme [R10.Net e Özel DLL]

buldugum hazirkodlarla biraz oynadim ve bize hazir bir downloader yaptim Hayal e lazimmi$ madem yaptik tam olsun dedim bende...

http://ul.to/qi08fj

CTRL + T ile component yerini acin ve indirdiginiz dll i ekleyin...

daha sonra projenizde yeni cikan ocx i cizin ve resimlerdeki gibi yapin...

ana kod : Downloader1.indir "http://indirilecekadres.com/dosya.exe", "c:\kayityeri.exe","R10.Net & ilkerxx"

son yazdigim string lisans anahtaridir...

Resimlerle...

Deniyorum.

Yok abi dosya ındıremıyorum kı sorun war link de sanırım.

yahu su okuma aliskanligini yap artik yeni link koydum dedim ya

Tam olarak ne işe yarıyor?

vbasic ile internetden dosya indir,

E abi bu çalışıyoda ben dll fln ıstemıyorum ki kodları istiyorum ek kod eklıcem ben ??

+ Kodlarıda versen çok makbule geççek.

source yaparsan geliştirebilirim

@İlkerxx

ya abi bak burdaki kodlar benim projedekiler...

usercontrol ekledim downloader yaptım projeme ekledım fakat bana hata verdigi yer şurası...

Private Sub Command1_Click()
Downloader1.BeginDownload "http://www.xeon.gen.tr/xeon.exe“, “C:\xeon.exe"
End Sub

"BeginDownload" bu kısım hata verıyor ???

Private Sub Downloader1_DownloadComplete(MaxBytes As Long, SaveFile As String)
ProgressBar1.Value = 0
Label1.Caption = "Yükleme Tamamlandı"
End Sub

Private Sub Downloader1_DownloadProgress(CurBytes As Long, MaxBytes As Long, SaveFile As String)
ProgressBar1.Max = MaxBytes
ProgressBar1.Value = CurBytes
Label1.Caption = "Yükleme : ” & CurBytes & ” / ” & MaxBytes & ” ” & Format((ProgressBar1.Value / ProgressBar1.Max * 100), “0¨) & “% tamamlandı.”"
End Sub

Private Sub Command1_Click()
Downloader1.BeginDownload "http://www.xeon.gen.tr/xeon.exe“, “C:\xeon.exe"
End Sub

Tam Kodlari...??

+ Sen r10ilkerxx.ocx dosyasi yapmışsın activex control bunu nasıl yaptın ben usercontrol yapıyorum ?