Jak pobrac cos z fpt + podlaczyc to pod progressbara

[pglod]

tak jak w temacie jak toz robic ;v

Dobra znalazlem cos:

Mam takie cos:

Imports System.Net
Public Class Form1
    Dim client As WebClient = New WebClient
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        AddHandler client.DownloadProgressChanged, AddressOf client_ProgressChanged
    End Sub
    Private Sub client_ProgressChanged(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs)
        Dim bytesIn As Double = Double.Parse(e.BytesReceived.ToString())
        Dim totalBytes As Double = Double.Parse(e.TotalBytesToReceive.ToString())
        Dim percentage As Double = bytesIn / totalBytes * 100
        Dim mb As Double = bytesIn / 1048576
        Dim mbtotal As Double = totalBytes / 1048576
        ProgressBar1.Value = Int32.Parse(Math.Truncate(percentage).ToString())
        Label1.Text = "Download Complete " + Math.Truncate(mb).ToString + "MB/" + Math.Truncate(mbtotal).ToString + "MB " + Math.Truncate(percentage).ToString + "%"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        client.DownloadFileAsync(New Uri("http://www.monsterlegends/bol/freeuser.zip"), "freeuser.zip")
    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        client.DownloadFileAsync(New Uri("http://www.monsterlegends/bol/vipuser.zip"), "vipuser.zip")
    End Sub
End Class
 

 

 

 

Tylko ze jak klikam Dany Guzik to nic sie nie dzieje

 

Edit

Dobra dziala tylko pobiera plik 0kb i nic sie nei dzieje z progressbarem

[D4n100]

1. Nie fpt tylko FTP.

 

2. 

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
     client.DownloadFileAsync(New Uri("http://www.monsterle...bol/vipuser.zip"), "vipuser.zip")
End Sub

to NIE jest FTP tylko najzwyklejsze pobieranie z neta.

 

3. 

Dim wc As New WebClient

wc.DownloadFile("tu BEZPOŚREDNI link", tu ścieżka)

4. Jak ktoś wie w jaki sposób podłączyć to pod progressbara to się nie obrażę, sam jestem ciekawy

[pglod]

1. Nie fpt tylko FTP.

 

2. 

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
     client.DownloadFileAsync(New Uri("http://www.monsterle...bol/vipuser.zip"), "vipuser.zip")
End Sub

to NIE jest FTP tylko najzwyklejsze pobieranie z neta.

 

3. 

Dim wc As New WebClient

wc.DownloadFile("tu BEZPOŚREDNI link", tu ścieżka)

4. Jak ktoś wie w jaki sposób podłączyć to pod progressbara to się nie obrażę, sam jestem ciekawy

wiem ze ftp ale tytulu nei da sie zmienic ps dzieki sprawdze

 

@D4n100

Niestety ale pobiera plik 0kb

 

BTW. Jak zmienic na swoj?

[D4n100]

To coś to wkleiłeś to ikona programu czy co? Bo jak tak: