Download      
Dim link As String = args(Reihe)
Dim sLocalFile As String = Path_mp3 &ListView1.Items(Reihe).SubItems(1).Text&_
"-"&ListView1.Items(Reihe).SubItems(0).Text & ".mp4"
Jetzt_Down = sLocalFile
HttpClient.DownloadFileAsync(New Uri(link), sLocalFile)
 
 
Download_Changed
ProgressBar1.Value = e.ProgressPercentage
ListView1.Items(Reihe).SubItems(2).Text = ProgressBar1.Value & " %"
If ProgressBar1.Value = 100 Then
ListView1.Items(Reihe).SubItems(2).Text = "Fertig"
End If
 
 
Download_Fertig
Reihe += 1
ProgressBar1.Value = 0
Konvertieren()
 
 
Konvertieren
Private Sub Konvertieren()
Dim FFmpeg As New Process()
FFmpeg.StartInfo.FileName = Application.StartupPath & "\ff.exe"
FFmpeg.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
Dim input As String = Jetzt_Down
Dim outputfolder As String = Path_mp3
Dim bitrate As Integer = 128
FFmpeg.StartInfo.Arguments = " -i """ + input + """ -f mp3 -ab " + CStr( _
bitrate) + "k -acodec libmp3lame """ + Path.Combine(outputfolder, _
Path.GetFileNameWithoutExtension(input) + ".mp3") + """"
FFmpeg.Start()
FFmpeg.WaitForExit()
If Reihe < args.Count Then Download()
args.Clear()
MsgBox("Alle Downloads abgeschlossen.")