[VB 2010] Status pobierania plików

[MalakPl]

Chciałbym do tego kodu dodać informacie na temat pobieranego pliku i status pobierania ich w miejscu gdzie jest napisane

Nowa wersja jest dostępna i wlasnie jest pobierana. Launcher uruchomi sie po pobraniu.

jeszcze pisało Pobieram: <nazwa pobieranego pliku> i progressbar pobrania wszystkich plików.

Cały Kod:

Imports System.Net
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        SprawdzUpdate()
    End Sub
 
    Public Sub SprawdzUpdate()
        Dim jar As String = System.IO.Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData), ".minecraft/bin/minecraft.jar")
        Dim kaktus As String = System.IO.Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData), ".minecraft/update.txt")
        Dim Klient As New Net.WebClient
        Dim Wersja As String = My.Computer.FileSystem.ReadAllText(kaktus)
        Dim Version As String
        Dim fileReader As String
        fileReader = My.Computer.FileSystem.ReadAllText(kaktus)
        Version = Klient.DownloadString("http://serwerzmodami.w8w.pl/update.txt")
 
 
 
        If Version > Wersja Then
            MessageBox.Show("Nowa wersja jest dostępna i wlasnie jest pobierana. Launcher uruchomi sie po pobraniu.", "AutoUpdater")
            My.Computer.FileSystem.DeleteFile(jar)
            My.Computer.Network.DownloadFile("http://serwerzmodami.w8w.pl/minecraft.jar", jar)
            My.Computer.FileSystem.DeleteFile(kaktus)
            My.Computer.Network.DownloadFile("http://serwerzmodami.w8w.pl/update.txt", kaktus)
        Else
            MessageBox.Show("Brak nowej wersji do pobrania. Launcher i pliki sa aktualne", "AutoUpdater")
        End If
 
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim uruchom As String
 
        uruchom = "javaw -Xmx1024m -Djava.library.path=%APPDATA%/.minecraft/bin/natives -cp %APPDATA%/.minecraft/bin/minecraft.jar;%APPDATA%/.minecraft/bin/jinput.jar;%APPDATA%/.minecraft/bin/lwjgl.jar;%APPDATA%/.minecraft/bin/lwjgl_util.jar net.minecraft.client.Minecraft "
 
 
        Shell("cmd.exe /c" & uruchom & TextBox1.Text)
 
        Me.Close()
 
    End Sub
End Class

[Seba65439]

Tu masz z progresbarem i info. ile zostało pobrane:

Imports System.Net
Imports System.ComponentModel

Public Class Form1

    Public WithEvents download As New WebClient
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        

        If My.Computer.Network.IsAvailable Then
            Button1.Enabled = False
            My.Computer.FileSystem.CreateDirectory("/.minecraft/bin/")
            ProgressBar1.Visible = True


            download.DownloadFileAsync(New Uri("http://s3.amazonaws.com/MinecraftDownload/minecraft.jar"), "/.minecraft/bin/minecraft.jar")
      
        Else
            MsgBox("Brak dostępu do Internetu")
        End If

    End Sub

    Private Sub download_DownloadProgressChanged(sender As Object, e As DownloadProgressChangedEventArgs) Handles download.DownloadProgressChanged
        ProgressBar1.Value = e.ProgressPercentage
        Dim totalbytes As Long = e.TotalBytesToReceive / 1024
        Dim mtotalbytes As Long = totalbytes / 1024
        Dim bytes As Long = e.BytesReceived / 1024
        Dim mbytes As Long = bytes / 1024
        If totalbytes < 1 Then totalbytes = 1
        If bytes < 1 Then bytes = 1
        If totalbytes > 1024 Then
            Label1.Text = mbytes.ToString & " MB z " & mtotalbytes.ToString & " MB"
        Else
            Label1.Text = bytes.ToString & " KB z " & totalbytes.ToString & " KB"
        End If
    End Sub

    Private Sub download_DownloadFileCompleted(sender As Object, e As AsyncCompletedEventArgs) Handles download.DownloadFileCompleted
        Label1.Visible = False
        ProgressBar1.Visible = False
        Button1.Enabled = True
        MsgBox("Pobieranie plików przebiegło pomyślnie")
    End Sub

End Class

[MalakPl]

Dobrze wszystko daiała ale jak mam to podpiąć do mojego kodu z tym będize problem

[Rhera]

No wlasnie