Hallo liebes Forum
Ich habe hier einen Code und komme seit einigen Stunden nicht weiter, es wird ein SaveFileDialog aufgerufen und das Video wird am gewählten Ort gespeichert.
Nun möchte ich den sfd durch eine normale Adresse in Textbox3 ersetzen, zusätzlich soll dazu noch die Dateiendung, welche man
in Combobox1 auswählt, angehängt werden. Ich habe schon einiges probiert, aber es klappt nicht.
Da wir schon dabei sind und ich euch warscheinlich schon verwirrt habe, hätte ich noch eine Bitte, nämlich ob mir
jemand erklären kann, wie ich anhand des Videos den Namen auslesen kann. Sollte dies nur mit Quelltextarbeit möglich sein,
versucht es bitte nicht mir zu erklären
Hier der bisherige Code:
Spoiler anzeigen
Ich hoffe ihr versteht mein problem und könnt mir helfen?.
PS: Wie viele Beiträge darf man pro tag posten ?
Ich habe hier einen Code und komme seit einigen Stunden nicht weiter, es wird ein SaveFileDialog aufgerufen und das Video wird am gewählten Ort gespeichert.
Nun möchte ich den sfd durch eine normale Adresse in Textbox3 ersetzen, zusätzlich soll dazu noch die Dateiendung, welche man
in Combobox1 auswählt, angehängt werden. Ich habe schon einiges probiert, aber es klappt nicht.
Da wir schon dabei sind und ich euch warscheinlich schon verwirrt habe, hätte ich noch eine Bitte, nämlich ob mir
jemand erklären kann, wie ich anhand des Videos den Namen auslesen kann. Sollte dies nur mit Quelltextarbeit möglich sein,
versucht es bitte nicht mir zu erklären
Hier der bisherige Code:
VB.NET-Quellcode
- Option Strict On
- Public Class Form1
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- SaveFileDialog1.Title = "YouTube-Downloader"
- SaveFileDialog1.Filter = "mp3 (*.mp3) | .mp3 |" _
- & "Alle Dateien (*.*) | *.* "
- SaveFileDialog1.ShowDialog()
- End Sub
- Private Sub SaveFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk
- WebClient1.DownloadFileAsync(New Uri(TextBox2.Text), SaveFileDialog1.FileName) '<-- war vorher, aber musste ich ja rausnehmen?
- Button2.Enabled = False
- End Sub
- Private Sub WebClient1_DownloadProgressChanged(ByVal sender As System.Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles WebClient1.DownloadProgressChanged
- ProgressBar1.Value = e.ProgressPercentage
- Label2.Text = e.ProgressPercentage & "%"
- End Sub
- Private Sub WebClient1_DownloadFileCompleted(ByVal sender As System.Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles WebClient1.DownloadFileCompleted
- Dim i As Integer = MessageBox.Show("Das Video wurde erfolgreich heruntergeladen, wollen sie dieses nun öffnen ?", "Download Fertig", MessageBoxButtons.YesNo)
- If i = 6 Then
- Try
- Dim file As String = SaveFileDialog1.FileName
- Process.Start(SaveFileDialog1.FileName)
- Catch ex As Exception
- MsgBox("Datei konnte nicht geöffnet werden.")
- End Try
- End If
- Application.Exit()
- End Sub
- Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- If TextBox1.Text.Contains("youtube.com/watch") = False Then
- MsgBox("Link nicht gültig")
- Exit Sub
- End If
- TextBox1.Enabled = False
- Dim inhalt As String = WebClient1.DownloadString(New Uri(TextBox1.Text))
- Dim pos1 As Integer = inhalt.IndexOf("url_encoded_fmt_stream_map=url%3D")
- Dim link1 As String = inhalt.Substring(pos1 + 33)
- Dim pos2 As Integer = link1.IndexOf("%26fallback_host")
- link1 = link1.Substring(0, pos2)
- link1 = link1.Replace("%3F", "?").Replace("%3D", "=").Replace("%26", "&").Replace("%25", "%").Replace("%2C", ",").Replace("%25", "%").Replace("%3A", ":").Replace("%2F", "/")
- link1 = link1.Replace("%3F", "?").Replace("%3D", "=").Replace("%26", "&").Replace("%25", "%").Replace("%2C", ",").Replace("%25", "%").Replace("%3A", ":").Replace("%2F", "/")
- TextBox2.Text = link1
Ich hoffe ihr versteht mein problem und könnt mir helfen?.
PS: Wie viele Beiträge darf man pro tag posten ?