[Hilfe] Wenn, URL 1 nicht geht dann URL 2

[BlazerHack]

Hey ElitePvPers Community,

Ich habe für den Privaten gebraucht mit ein kleines YouTube Video/Thumbnail Download Tool in Visual Basic erstellt, und habe eine frage bezüglich des Thumbnail Tools.
Ich habe es so gemacht, das man oben die YouTube url eingibt, dann die ID vom Video genommen wird und dann in den Link zum Thumbnail eingefügt wird, um dieses dann durch einen klick auf einen Button zu speicher.

https://i.ytimg.com/vi/ VIDEO ID HIER HIN /maxresdefault.jpg

Hierbei gibt es aber leider ein Problem. YouTube verwendet nicht nur /maxresdefault.jpg am ende der URL sondern auch /hqdefault.jpg wie kann ich jetzt meinen Tool sagen, wenn /maxresdefault.jpg nicht geht dann soll es /hqdefault.jpg verwenden.

Aktueller Code um das Thumbnail runterzuladen.

If (SaveFileDialog1.ShowDialog() = DialogResult.OK) Then
            My.Computer.Network.DownloadFile("http://i.ytimg.com/vi/" & TextBox1.Text & "/maxresdefault.jpg", SaveFileDialog1.FileName & ".jpg")
        End If

Hoffe jemand kann mir helfen, und danke schon mal im voraus.

[MrDami123]

Du überprüfst ob der Zugriff oder Download funktioniert hat.

[qqdev]

DownloadFile wirft eine WebException, wenn die Datei nicht gefunden werden konnte.

[snow]

#moved

[BlazerHack]

Okay habe gerade gemacht, das mein Problem nicht wirklich am Download des Thumbnails liegt, sondern ich lasse das Thumbnail in einer Imagebox erst anzeigen, damit man sozusagen weiß das es das richtige Video ist und dabei Crasht das Programm. Kann mir da vielleicht jemand helfen, wenn man die URL in eine Textbox eingibt, wird automatisch nur die ID verwendet und dann das Thumbnail mit hilfe der ID angezeigt, aber wenn es mit /hqdefault.jpg anstatt /maxresdefault.jpg endet, crasht das Programm. Weiß jemand wie ich das hin bekomme, dass wenn die /maxresdefault.jpg nicht existiert das es dann /hqdefault.jpg benutzt um es in der imagebox anzuzeigen.

Mein kompletter Code:

Imports System.Net

Public Class Form1

    Private Property downloader As Object

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = Clipboard.GetText
    End Sub

    Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
        If InStr(1, LCase(TextBox1.Text), "https://www.youtube.com/watch?v=") <> 0 Then
            TextBox1.Text = TextBox1.Text.Replace("https://www.youtube.com/watch?v=", Nothing)
            PictureBox1.Image = New System.Drawing.Bitmap(New IO.MemoryStream(New System.Net.WebClient().DownloadData("http://i.ytimg.com/vi/" & TextBox1.Text & "/maxresdefault.jpg")))
        Else
            PictureBox1.Image = New System.Drawing.Bitmap(New IO.MemoryStream(New System.Net.WebClient().DownloadData("http://i.ytimg.com/vi/" & TextBox1.Text & "/maxresdefault.jpg")))
        End If
    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Process.Start("http://funtube.esy.es/ytdl/getvideo.php?videoid=" & TextBox1.Text & "&type=Download")
    End Sub

    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        If (SaveFileDialog1.ShowDialog() = DialogResult.OK) Then
            My.Computer.Network.DownloadFile("http://i.ytimg.com/vi/" & TextBox1.Text & "/maxresdefault.jpg", SaveFileDialog1.FileName & ".jpg")
        Else
            My.Computer.Network.DownloadFile("http://i.ytimg.com/vi/" & TextBox1.Text & "/hqdefault.jpg", SaveFileDialog1.FileName & ".jpg")
        End If

    End Sub

    Private Sub PictureBox1_Click(sender As System.Object, e As System.EventArgs) Handles PictureBox1.Click
        PictureBox1.Image = New System.Drawing.Bitmap(New IO.MemoryStream(New System.Net.WebClient().DownloadData("http://i.ytimg.com/vi/" & TextBox1.Text & "/maxresdefault.jpg")))
        Process.Start("https://www.youtube.com/watch?v=" & TextBox1.Text)
    End Sub
End Class

[qqdev]

Wie gesagt, schau nach ob du die Thumbnails herunterladen kannst.

[BlazerHack]

Originally Posted by qqdev

Wie gesagt, schau nach ob du die Thumbnails herunterladen kannst.

Und wie stellst du dir das vor?

[Ludder231]

[Mostey]

Originally Posted by BlazerHack

Und wie stellst du dir das vor?

So wie ich das sehe, tust du es doch schon. Du müsstest halt einen try-catch Block darum packen und die Exception die geworfen wird entsprechend abhandeln. Wenn die Ressource nicht gefunden wurde (Statuscode 404), soll halt die andere Auflösung heruntergeladen werden.

[BlazerHack]

Originally Posted by Mostey

So wie ich das sehe, tust du es doch schon. Du müsstest halt einen try-catch Block darum packen und die Exception die geworfen wird entsprechend abhandeln. Wenn die Ressource nicht gefunden wurde (Statuscode 404), soll halt die andere Auflösung heruntergeladen werden.

Habe dabei nur das Problem, dass ich nicht weiß wie ich so etwas mache. Habe den jetzigen code der Textbox1 auch nur durch verschiedene codes anderer tools zusammen bekommen. Kannst du mir vielleicht ein wenig auf die Sprünge helfen oder mir vielleicht einen Link zu einer Seite senden wo ich das lerne mit den WebException weil ich finde nur unverständliche Beiträge :/

[Mostey]

Originally Posted by BlazerHack

Habe dabei nur das Problem, dass ich nicht weiß wie ich so etwas mache. Habe den jetzigen code der Textbox1 auch nur durch verschiedene codes anderer tools zusammen bekommen. Kannst du mir vielleicht ein wenig auf die Sprünge helfen oder mir vielleicht einen Link zu einer Seite senden wo ich das lerne mit den WebException weil ich finde nur unverständliche Beiträge :/

Das sind natürlich gute Voraussetzungen, dir ist hoffentlich bewusst dass das auch so weitergehen wird wenn du dir nicht einmal die Grundlagen anschaust, oder? Zumindest sollte man schon wissen, wie Exceptions geworfen/gefangen werden.



Hier steht alles was du benötigst. Speziell im Absatz "Exceptions" werden alle Exceptions gelistet, die geworfen werden können wenn du diese Funktion aufrufst.

, falls du immer noch nicht nach "c# try catch" suchen konntest.

[RipeFaith]

Habe zwar nicht alles durchgelesen, aber so könnte es klappen:

If (SaveFileDialog1.ShowDialog() = DialogResult.OK) Then

Try
            My.Computer.Network.DownloadFile("http://i.ytimg.com/vi/" & TextBox1.Text & "/maxresdefault.jpg", SaveFileDialog1.FileName & ".jpg")
Catch ex as Exception
'Wenn obriges File nicht gedownloadet werden kann bzw eine Ausnahme entsteht, lade nächses File
'Fiiiiile 2 :p

End Try

        End If

Thanks drücken!

[BlazerHack]

Originally Posted by Mostey

Das sind natürlich gute Voraussetzungen, dir ist hoffentlich bewusst dass das auch so weitergehen wird wenn du dir nicht einmal die Grundlagen anschaust, oder? Zumindest sollte man schon wissen, wie Exceptions geworfen/gefangen werden.



Hier steht alles was du benötigst. Speziell im Absatz "Exceptions" werden alle Exceptions gelistet, die geworfen werden können wenn du diese Funktion aufrufst.

, falls du immer noch nicht nach "c# try catch" suchen konntest.

Okay danke, ich werde mich die nächste zeit mal dran setzen und die Basics zu lernen.

Originally Posted by RipeFaith

Habe zwar nicht alles durchgelesen, aber so könnte es klappen:

If (SaveFileDialog1.ShowDialog() = DialogResult.OK) Then

Try
            My.Computer.Network.DownloadFile("http://i.ytimg.com/vi/" & TextBox1.Text & "/maxresdefault.jpg", SaveFileDialog1.FileName & ".jpg")
Catch ex as Exception
'Wenn obriges File nicht gedownloadet werden kann bzw eine Ausnahme entsteht, lade nächses File
'Fiiiiile 2 :p

End Try

        End If

Thanks drücken!

Danke auch wenn du schon gebannt bist, hat mir sehr weitergeholfen und jetzt funktioniert es alles vielen dank!

#Alles fertig keine weitere Hilfe benötigt, kann geschlossen werden!