wat is er mis met deze code om een downloader te maken

[ido435]

vraag.1
willen jullie mij plz vertellen wat aan deze code fout is
[SQL]Imports System.Net
Public Class Form1

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
SaveFileDialog1.Filter = "JPeg Image |*.exe|.exe"
SaveFileDialog1.ShowDialog()
TextBox2.Text = SaveFileDialog1.FileName

End Sub
Public WithEvents download As WebClient

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
download = New WebClient
download.DownloadFileAsync(New Uri(TextBox1.Text), TextBox2.Text)
End Sub

Private Sub download_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles download.DownloadFileCompleted

End Sub

Private Sub download_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles download.DownloadProgressChanged
ProgressBar1.Value = e.ProgressPercentage

End Sub
End Class


[/SQL]
vraag 2. weten jullie ook hoe er automatisch naam.exe staat
je mag dan wel zelf de naam invullen op zo manier

alvast bedankt

 

[JoZ1]

Er staat een hoop onnodige rommel in, maar dat weet je wel toch?

Kun je niet beter deze code gebruiken:

[CPP]My.Computer.Network.DownloadFile("http://.....","C:\.....")[/CPP]

En voor de SaveFileDialog:

[CPP]Dim save As New OpenFileDialog
save.Filter = "JPEG Image (*.jpg)|*.jpg" ''// JPG extensie is JPG en niet EXE...
save.FileName = "Naam.jpg"
save.ShowDialog()[/CPP]

Succes

 

[ido435]

bedankt maar ff een vraagje waarvoor is de eerste code?
en waar moet die staan?

 

[JoZ1]

Om een bestand te downloaden

 

[ido435]

oja nog ff iets over die "Er staat een hoop onnodige rommel in, maar dat weet je wel toch? "
dat heb ik over getypt van youtube ik weet het dat het niet altijd betrouwbaar is van youtube
maar onder moet de eerste code werken?

 

[JoZ1]

Ik heb het dus hier over:

[CPP] Private Sub download_DownloadFileCompleted(ByVal sender AS Object, ByVal e AS System.ComponentModel.AsyncCompletedEventArgs) Handles download.DownloadFileCompleted

End Sub[/CPP]

Lege subs hebben geen nut

 

[ido435]

o vergeten weg te halen
ga ik meteen weghalen

 

[JoZ1]

Goedzo. Maar heb je het al getest?

 

[ido435]

ja dat gebeurt er dit
http://dl.dropbox.com/u/50062681/voorbeeld van fout.PNG
maar kan ik die .jpg ook veranderen in .exe want dat gin vanzelf

 

[JoZ1]

Ja, tuurlijk

Ik vond 't al raar dat je .EXE gebruikte voor JPG-Files

[CPP]save.Filter = "JPEG Image (*.jpg)|*.jpg" [/CPP]

 

[ido435]

nee ik bedoel geen .jpg maar dat er .exe bestanden worden gedownload

 

[JoZ1]

Simpel:

[CPP]save.Filter = "Toepassing (*.exe)|*.exe"[/CPP]

Je kan 't ook zo doen:

[CPP]save.Filter = "Toepassing (*.exe)|*.exe|Alle Bestanden (*.*)|*.*[/CPP]"

 

[ido435]

bedankt hij werkt
echt super bedankt als je me zo snel hebt geholpen

 

[JoZ1]

Graag gedaan :thumb: