Nen Guten Abend miteinander ;D
ich habe mir aus dem code von @Tsuyo oder @Validation (streitet euch wem er gehört XD) einen kleinen YT downloader gemacht.
dieser klappt auch super
als kleiner extra habe ich gemacht,dass wenn die datei erfolgreich gedownloadet wurde,dass sie dann in listbox1 gespeichert wird.
und bei dem ListBox1_DoubleClick event habe ich das:
wenn ich dann Doppelclick auf die listbox mache dann öffnet er den pfad der datei. das klappt soweit noch alles gut
nun habe ich als sahnehäubchen gemacht das die form in die listbox1 alle dateien mit der endung .flv aus dem pfad von textbox2 reinmacht. dafür habe ich diesen code genommen
und dieser code klappt auch gut
aber wenn ich dann doppelclick auf eins der dateien mache die durch
asdasdfasd() in die listbox gemacht wurden kommt ein Fehler ;(
ich zeig das mal in einem Bsp
ich habe dazu mal ein paar Screenshots gemacht.
bild Fehler_1 ich downloade ein video
Fehler_2 Video erfolgreich gedownloadet
Fehler_3 ich habe asdasdfasd() aufgerufen und alle dateien mit der endung .flv aus dem pfad von tb2 werden in die listbox getan (da ich auf dem desctop nur das eine video habe undzwar das was ich grade gedownloadet habe. desswegen zeigt er in das video doppelt an.
auf bild Fehler_4 sieht man was passiert wenn ich auf das video clicke was durch asdasdfasd() in die listbox getan wurde
ich kann mir den fehler garnicht erklähren.
da der code ja klappt wen ich auf das listbox item clicke was nach erfolgreichem download erstellt wird.
bitte gebt mir tipps zum fixen :D
für die dies interessiert hab ich den code nochmal in den expander gemacht.
für alle die ihn C&P klauen ;D lasst euch nicht stören weil der YT downloader teil ist ja nicht von mir und der rest ist in einem gaaaanz schlechtem stil geschrieben ;(
(wer mir sagen kann wie ich den webbrowser weglassen kann der solls ruhig tun weil das ist gaaaaanz dreckig so den YT namen rauszubekommen ich weis das aber mir ist nix besseres eingefallen.)
Spoiler anzeigen
die bilder werden leider in falscher reihenfolge angezeigt ;(
richtig ist Fehler_1,Fehler_2,Fehler_3 und dann Fehler_4
ich habe mir aus dem code von @Tsuyo oder @Validation (streitet euch wem er gehört XD) einen kleinen YT downloader gemacht.
dieser klappt auch super
als kleiner extra habe ich gemacht,dass wenn die datei erfolgreich gedownloadet wurde,dass sie dann in listbox1 gespeichert wird.
und bei dem ListBox1_DoubleClick event habe ich das:
VB.NET-Quellcode
wenn ich dann Doppelclick auf die listbox mache dann öffnet er den pfad der datei. das klappt soweit noch alles gut
nun habe ich als sahnehäubchen gemacht das die form in die listbox1 alle dateien mit der endung .flv aus dem pfad von textbox2 reinmacht. dafür habe ich diesen code genommen
und dieser code klappt auch gut
aber wenn ich dann doppelclick auf eins der dateien mache die durch
asdasdfasd() in die listbox gemacht wurden kommt ein Fehler ;(
ich zeig das mal in einem Bsp
ich habe dazu mal ein paar Screenshots gemacht.
bild Fehler_1 ich downloade ein video
Fehler_2 Video erfolgreich gedownloadet
Fehler_3 ich habe asdasdfasd() aufgerufen und alle dateien mit der endung .flv aus dem pfad von tb2 werden in die listbox getan (da ich auf dem desctop nur das eine video habe undzwar das was ich grade gedownloadet habe. desswegen zeigt er in das video doppelt an.
auf bild Fehler_4 sieht man was passiert wenn ich auf das video clicke was durch asdasdfasd() in die listbox getan wurde
ich kann mir den fehler garnicht erklähren.
da der code ja klappt wen ich auf das listbox item clicke was nach erfolgreichem download erstellt wird.
bitte gebt mir tipps zum fixen :D
für die dies interessiert hab ich den code nochmal in den expander gemacht.
für alle die ihn C&P klauen ;D lasst euch nicht stören weil der YT downloader teil ist ja nicht von mir und der rest ist in einem gaaaanz schlechtem stil geschrieben ;(
(wer mir sagen kann wie ich den webbrowser weglassen kann der solls ruhig tun weil das ist gaaaaanz dreckig so den YT namen rauszubekommen ich weis das aber mir ist nix besseres eingefallen.)
VB.NET-Quellcode
- Option Explicit On
- Imports System.IO
- Public Class Form1Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- If TextBox2.Text = "" ThenMessageBox.Show("Bitte wählen sie einen Pfad aus")
- ElseIf TextBox1.Text = "" ThenMessageBox.Show("Bitte Link eingeben")
- Else
- Try
- Dim web As New WebBrowser
- web.Navigate(TextBox1.Text)
- Application.DoEvents()
- Do While web.ReadyState <> WebBrowserReadyState.CompleteApplication.DoEvents()
- Loop
- web.Refresh()
- Dim name As String
- name = web.DocumentTitleMy.Settings.Name = name
- download()
- 'SaveFileDialog1.FileName = name
- 'SaveFileDialog1.ShowDialog()web.Navigate("")
- Catch ex As Exception
- End Try
- ' MessageBox.Show("Unknown Error 404")
- End If
- End SubPrivate Sub download()
- Button1.Enabled = False
- Button1.Text = "Downloading"
- Dim ID As StringID = TextBox1.Text.Replace("http://www.youtube.com/watch?v=", "")
- Dim link1 As String
- link1 = "http://www.youtube.com/get_video_info?video_id=" & ID & "&fmt=37"
- Dim inhalt As String
- inhalt = WebClient1.DownloadString(link1)Dim pos As Integer = inhalt.IndexOf("url_encoded_fmt_stream_map=")
- Dim Part1 As String = inhalt.Substring(pos).Replace("%3F", "?").Replace("%3D", "=").Replace("%26", "&").Replace("%25", "%").Replace("%2C", ",").Replace("%25", "%").Replace("%3A", ":").Replace("%2F", "/").Substring(31)Dim Part2 As String = Part1.Substring(0, Part1.IndexOf("&fallback_host"))
- Dim Downloadlink As StringDownloadlink = Part2.Replace("%3F", "?").Replace("%3D", "=").Replace("%26", "&").Replace("%25", "%").Replace("%2C", ",").Replace("%25", "%").Replace("%3A", ":").Replace("%2F", "/")
- WebClient1.DownloadFileAsync(New Uri(Downloadlink), TextBox2.Text & "\" & My.Settings.Name & ".flv")
- End SubPrivate Sub SaveFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk
- Button1.Enabled = False
- Button1.Text = "Downloading"
- Dim ID As StringID = TextBox1.Text.Replace("http://www.youtube.com/watch?v=", "")
- Dim link1 As String
- link1 = "http://www.youtube.com/get_video_info?video_id=" & ID & "&fmt=37"
- Dim inhalt As String
- inhalt = WebClient1.DownloadString(link1)Dim pos As Integer = inhalt.IndexOf("url_encoded_fmt_stream_map=")
- Dim Part1 As String = inhalt.Substring(pos).Replace("%3F", "?").Replace("%3D", "=").Replace("%26", "&").Replace("%25", "%").Replace("%2C", ",").Replace("%25", "%").Replace("%3A", ":").Replace("%2F", "/").Substring(31)Dim Part2 As String = Part1.Substring(0, Part1.IndexOf("&fallback_host"))
- Dim Downloadlink As StringDownloadlink = Part2.Replace("%3F", "?").Replace("%3D", "=").Replace("%26", "&").Replace("%25", "%").Replace("%2C", ",").Replace("%25", "%").Replace("%3A", ":").Replace("%2F", "/")
- WebClient1.DownloadFileAsync(New Uri(Downloadlink), SaveFileDialog1.FileName)
- End SubPrivate Sub WebClient1_DownloadFileCompleted(ByVal sender As System.Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles WebClient1.DownloadFileCompleted
- ListBox1.Items.Add(My.Settings.Name & ".flv")
- Button1.Enabled = True
- Button1.Text = "Download"
- GroupBox4.Text = "Status"
- ProgressBar1.Value = 0
- TextBox1.Text = ""Dim i As Integer = MessageBox.Show("Datei wurde erfolgreich runtergeladen." & vbNewLine & "Wollen sie diese nun öffnen ?", "Finish", MessageBoxButtons.OKCancel)
- If i = "1" ThenProcess.Start(TextBox2.Text & "\" & My.Settings.Name & ".flv")
- Else
- ProgressBar1.Value = "0"
- Button1.Enabled = True
- TextBox1.Clear()
- ' Application.Exit()
- End If
- End SubPrivate Sub WebClient1_DownloadProgressChanged(ByVal sender As System.Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles WebClient1.DownloadProgressChanged
- ProgressBar1.Value = e.ProgressPercentage
- GroupBox4.Text = "Downloading " & e.ProgressPercentage & "%"
- End SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- FolderBrowserDialog1.ShowDialog()
- TextBox2.Text = FolderBrowserDialog1.SelectedPathMy.Settings.Speicherort = FolderBrowserDialog1.SelectedPath
- End Sub
- Private Sub ListBox1_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.DoubleClickProcess.Start(TextBox2.Text & "\" & ListBox1.SelectedItem)
- End Sub
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- FolderBrowserDialog1.SelectedPath = My.Settings.SpeicherortTextBox2.Text = My.Settings.Speicherort
- ' asdasdfasd()
- End Sub
- 'Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
- ' If CheckBox1.Checked = True Then
- ' WebClient1.Proxy = New System.Net.WebProxy("67.228.3.68:8888")
- ' End If
- 'End Sub
- Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
- Dim bl As Color = Color.BlueDim rd As Color = Color.RedDim yl As Color = Color.Yellow
- If Label5.ForeColor = bl Then
- Label5.ForeColor = rd
- ElseIf Label5.ForeColor = rd Then
- Label5.ForeColor = yl
- Else
- Label5.ForeColor = bl
- End If
- End SubPrivate Sub asdasdfasd()
- Dim Pfad As String = TextBox2.TextDim bläää As New DirectoryInfo(Pfad)
- Dim datei As FileInfo() = bläää.GetFiles("*.flv")For i As Integer = 0 To datei.Length - 1
- ListBox1.Items.Add(datei(i))
- Next
- End SubPrivate Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
- asdasdfasd()
- End Sub
- End Class
die bilder werden leider in falscher reihenfolge angezeigt ;(
richtig ist Fehler_1,Fehler_2,Fehler_3 und dann Fehler_4