[PYTANIE] Jak zrobic żeby pobierało po kolei ?

[DrexonPl]

Imports System.Net

Imports System.ComponentModel


Public Class Form1


    Public WithEvents download As New WebClient


    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click



        If My.Computer.Network.IsAvailable Then

            Button1.Enabled = False


            download.DownloadFileAsync(New Uri("http://s3.amazonaws.com/MinecraftDownload/minecraft.jar"), "/.minecraft/bin/minecraft.jar")

            download.DownloadFileAsync(New Uri("http://s3.amazonaws.com/MinecraftDownload/minecraft.jar"), "/.minecraft/bin/lwjgl.jar")

        Else

            MsgBox("Brak dostępu do Internetu")

        End If


    End Sub


    Private Sub download_DownloadProgressChanged(ByVal sender As Object, ByVal 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

            Label3.Text = mbytes.ToString & " MB z " & mtotalbytes.ToString & " MB"

        Else

            Label3.Text = bytes.ToString & " KB z " & totalbytes.ToString & " KB"

        End If

    End Sub


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

        Button1.Enabled = True

        MsgBox("Pobieranie plików przebiegło pomyślnie")

    End Sub

End Class

[Vilche]

Może więcej by się informacji podało?

[DrexonPl]

żeby to po kolei pobierac
download.DownloadFileAsync(New Uri("http://s3.amazonaws.com/MinecraftDownload/minecraft.jar"), "/.minecraft/bin/minecraft.jar")
download.DownloadFileAsync(New Uri("http://s3.amazonaws.com/MinecraftDownload/minecraft.jar"), "/.minecraft/bin/lwjgl.jar")

 

 

 

nie wiem czy zauwazyles ze to jest

Private Sub download_DownloadProgressChanged(ByVal sender As Object, ByVal 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
Label3.Text = mbytes.ToString & " MB z " & mtotalbytes.ToString & " MB"
Else
Label3.Text = bytes.ToString & " KB z " & totalbytes.ToString & " KB"
End If
End Sub

 

 

błąd wyskakuje w

download.DownloadFileAsync(New Uri("http://s3.amazonaws.com/MinecraftDownload/minecraft.jar"), "/.minecraft/bin/lwjgl.jar")

[Mr Fan]

A nie lepiej pobrać archiwum .zip i rozpakować?

[DrexonPl]

nie

[cswojak]

xxxx

[Inorist™]

ustaw sobie zmienną i liste po czym dopisz do wydarzenia "download_DownloadFileCompleted" kod który dodaje do zmiennej 1 i pobiera z listy link