Imports System.Net

Module Download_einzeln
    Public WithEvents download_1 As New WebClient
    Public WithEvents download_2 As New WebClient
    Public WithEvents download_3 As New WebClient

    Public download_1_fertig As Boolean = True
    Public download_2_fertig As Boolean = True
    Public download_3_fertig As Boolean = True

    Public number1_download As Integer
    Public number2_download As Integer
    Public number3_download As Integer



    Public Sub download_berechnen()

        If download_1_fertig = True Then
            If Form1.ListView.Items.Item(Form1.aktuelle_dl_nummer_einzeln).SubItems(3).ToString <> "Fertig" Then
                number1_download = Form1.aktuelle_dl_nummer_einzeln
                download_1_fertig = False
                Form1.aktuelle_dl_nummer_alle += 1
                download_1.DownloadFileAsync(New Uri(Form1.ListView.Items.Item(number1_download).SubItems(5).Text), Form1.TextBox_pfad.Text & Form1.ListView.Items.Item(number1_download).SubItems(0).Text & ".flv")
                Exit Sub
            End If
        Else
            If download_2_fertig = True Then
                If Form1.ListView.Items.Item(Form1.aktuelle_dl_nummer_einzeln).SubItems(3).ToString <> "Fertig" Then
                    number2_download = Form1.aktuelle_dl_nummer_einzeln
                    download_2_fertig = False
                    Form1.aktuelle_dl_nummer_alle += 1
                    download_2.DownloadFileAsync(New Uri(Form1.ListView.Items.Item(number2_download).SubItems(5).Text), Form1.TextBox_pfad.Text & Form1.ListView.Items.Item(number2_download).SubItems(0).Text & ".flv")
                    Exit Sub
                End If
            Else
                If download_3_fertig = True Then
                    If Form1.ListView.Items.Item(Form1.aktuelle_dl_nummer_einzeln).SubItems(3).ToString <> "Fertig" Then
                        number3_download = Form1.aktuelle_dl_nummer_einzeln
                        download_3_fertig = False
                        Form1.aktuelle_dl_nummer_alle += 1
                        download_3.DownloadFileAsync(New Uri(Form1.ListView.Items.Item(number3_download).SubItems(5).Text), Form1.TextBox_pfad.Text & Form1.ListView.Items.Item(number3_download).SubItems(0).Text & ".flv")
                        Exit Sub
                    End If
                End If
            End If
        End If
    End Sub

    Public Sub download_1_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles download_1.DownloadFileCompleted
        download_1_fertig = True
        Form1.ListView.Items.Item(number1_download).SubItems(3).Text = "Fertig"
        Form1.ListView.Items.Item(number1_download).Checked = True
    End Sub
    Private Sub download_2_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles download_2.DownloadFileCompleted
        download_2_fertig = True
        Form1.ListView.Items.Item(number2_download).SubItems(3).Text = "Fertig"
        Form1.ListView.Items.Item(number2_download).Checked = True
    End Sub
    Private Sub download_3_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles download_3.DownloadFileCompleted
        download_3_fertig = True
        Form1.ListView.Items.Item(number3_download).SubItems(3).Text = "Fertig"
        Form1.ListView.Items.Item(number3_download).Checked = True
    End Sub

    Private Sub download_1_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles download_1.DownloadProgressChanged
        Form1.ListView.Items.Item(number1_download).SubItems(3).Text = e.ProgressPercentage & "%"
    End Sub
    Private Sub download_2_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles download_2.DownloadProgressChanged
        Form1.ListView.Items.Item(number2_download).SubItems(3).Text = e.ProgressPercentage & "%"
    End Sub
    Private Sub download_3_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles download_3.DownloadProgressChanged
        Form1.ListView.Items.Item(number3_download).SubItems(3).Text = e.ProgressPercentage & "%"
    End Sub
End Module