VS2012, Downloaden van een bestand

[NaamloosPersoon]

ik probeer al de hele tijd een programma te maken wat een bestand download
met een button(button1) dit is de code:

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
My.Computer.Network.DownloadFile("https://www.malwarebytes.org/mwb-download/", "C:\mb.exe")
End Sub
End Class

maar krijg de hele tijd deze error

An unhandled exception of type 'System.Net.WebException' occurred in System.dll

Additional information: An exception occurred during a WebClient request.

wat is fout ? mijn code ? of iets met VS2012 ? ik weet het niet ! help aub zsm!

 

[edmoor]

Je hebt de naam van het te downloaden bestand niet opgegeven. De eerste parameter dus.

address
String or Uri. Path of the file to download, including file name and host address. Required.

Daarnaast zou ik het niet naar de root van je C: schijf schrijven maar naar een submap.
Kijk ook eens naar het gebruik van het Try statement:
https://msdn.microsoft.com/en-us/library/fk6t46tz.aspx

 

[NaamloosPersoon]

welk bestandsnaam wat ik wil of wat wordt gedownloadt ? heb nu dit:

My.Computer.Network.DownloadFile("https://www.malwarebytes.org/mwb-download/", "C:\mb.exe", "mbam-setup-2.1.6.1022.exe")

maar krijg build error:

Overload resolution failed because no accessible "DownloadFile" accepts this number of arguments

 

[edmoor]

Ik had het alleen over de eerste parameter. Nu heb je er ineens 3. Die derde parameter is voor eventueel benodige Username of Network credentials. Dat gaat natuurlijk zo niet werken.
https://msdn.microsoft.com/en-us/library/ack30t8y(v=vs.90).aspx

 

[NaamloosPersoon]

maar hoe dan want ik wil van die site het bestand van de derde parameter downloaden en opslaan als mb.exe hoe moet het dan kun jij die lijn creeren voor mij dan want ik snap het niet meer ?

 

[edmoor]

Je moet als eerste parameter het web adres inclusief de naam van het te downloaden bestand opgeven.

 

[NaamloosPersoon]

Je moet als eerste parameter het web adres inclusief de naam van het te downloaden bestand opgeven.

hoe dan gewoon aan elkaar ?

 

[edmoor]

In #4 gaf ik een link waar het helemaal staat beschreven.

 

[dnties]

hoe dan gewoon aan elkaar ?

Ja, precies zoals Edmoor al aangaf:

het web adres inclusief de naam van het te downloaden bestand opgeven

dus (ook even aangepast, jouw eigen link zou niet gewerkt hebben: Page not found):

My.Computer.Network.DownloadFile("https://mbam-dl.malwarebytes.org/mbam-setup-2.1.6.1022.exe", "C:\mb.exe")

Overigens loop je sterk het risico met C:\mb.exe een foutmelding te genereren omdat je (standaard, en zeker 'als gewone gebruiker') niet mag schrijven in de hoofdmap van C:.

Tijs.

 

[SherinBloemendaal]

Even voor de duidelijkheid zal het er ongeveer zo uit zien :

Private Sub Download(link As String, save As String)
        Try
            My.Computer.Network.DownloadFile(link, save) 'Dit download het bestand en slaat het op in je C:\ schijf als mb.exe
        Catch ex As Exception
            Dim antwoord As MsgBoxResult = MsgBox("Oeps! er ging iets fout!" + vbNewLine + "Dit ging er fout : " + ex.Message, MsgBoxStyle.Critical + MsgBoxStyle.RetryCancel, "Error!")
            Select Case antwoord
                Case MsgBoxResult.Retry
                    Download("https://mbam-dl.malwarebytes.org/mbam-setup-2.1.6.1022.exe", "C:\mb.exe")
                Case MsgBoxResult.Cancel

            End Select
        End Try
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Download("https://mbam-dl.malwarebytes.org/mbam-setup-2.1.6.1022.exe", "C:\mb.exe")
    End Sub

Als je ook het bestand wil uitvoeren zodra het klaar is met downloaden gebruik dit :

    Public save As String = "C:\mb.exe"
    Private Sub Download(link As String, save As String)
        Try
            My.Computer.Network.DownloadFile(link, save) 'Dit download het bestand en slaat het op in je C:\ schijf als mb.exe
        Catch ex As Exception
            Dim antwoord As MsgBoxResult = MsgBox("Oeps! er ging iets fout!" + vbNewLine + "Dit ging er fout : " + ex.Message, MsgBoxStyle.Critical + MsgBoxStyle.RetryCancel, "Error!")
            Select Case antwoord
                Case MsgBoxResult.Retry
                    Download("https://mbam-dl.malwarebytes.org/mbam-setup-2.1.6.1022.exe", save)
                Case MsgBoxResult.Cancel

            End Select
        End Try
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Download("https://mbam-dl.malwarebytes.org/mbam-setup-2.1.6.1022.exe", "C:\mb.exe")
        Process.Start(save)
    End Sub