(403) Forbidden

[mixail167]

VideoDownloader.Execute() returns WebException with StatusCode 403. DownloadUrlResolver.DecryptDownloadUrl() is used. Link: https://www.youtube.com/watch?v=9iIt3-uB55Y Resolution: 720 VideoType: mp4 AudioType: aac

[3xploitch3ats]

only change the video title because it has a character ф

Private Sub txtTitle_TextChanged(sender As Object, e As EventArgs) Handles txtTitle.TextChanged If System.IO.Directory.Exists("Historique") = False Then System.IO.Directory.CreateDirectory("Historique") End If Dim Times As String = System.DateTime.Now.ToString("yyyy/MM/dd HH:mm:ss") Dim file As System.IO.StreamWriter file = My.Computer.FileSystem.OpenTextFileWriter("Historique\Historiques.Bro", True) file.WriteLine(Times & txtTitle.Text()) file.Close() If System.IO.Directory.Exists("Historique") = False Then System.IO.Directory.CreateDirectory("Historique") End If If CheckBox1.Checked = True Then My.Settings.ChangeText = True lblDefVideoTit.Text = txtTitle.Text txtTitle.Text = txtTitle.Text GoTo EndSub Else My.Settings.ChangeText = False End If txtTitle.SelectAll() If lblDefVideoTit.Text.Contains("""") Then GoTo DoubleSeparator End If If lblDefVideoTit.Text.Contains("|") Then GoTo Separator End If If lblDefVideoTit.Text.Contains("?") Then GoTo Interogator End If If lblDefVideoTit.Text.Contains(":") Then GoTo DoublePoint End If If lblDefVideoTit.Text.Contains("") Then GoTo Stars End If If lblDefVideoTit.Text.Contains("/") Then GoTo Slash End If If lblDefVideoTit.Text.Contains("") Then GoTo Slash2 End If If lblDefVideoTit.Text.Contains("<") Then GoTo Parenthese1 End If If lblDefVideoTit.Text.Contains(">") Then GoTo Parenthese2 End If lblDefVideoTit.Text = txtTitle.Text GoTo EndSub DoubleSeparator: txtTitle.Text = lblDefVideoTit.Text.Replace("""", "¤") GoTo EndSub Separator: txtTitle.Text = lblDefVideoTit.Text.Replace("|", "¤") GoTo EndSub Interogator: txtTitle.Text = lblDefVideoTit.Text.Replace("?", "¤") GoTo EndSub DoublePoint: txtTitle.Text = lblDefVideoTit.Text.Replace(":", "¤") GoTo EndSub Stars: txtTitle.Text = lblDefVideoTit.Text.Replace("", "¤") GoTo EndSub Slash: txtTitle.Text = lblDefVideoTit.Text.Replace("/", "¤") GoTo EndSub Slash2: txtTitle.Text = lblDefVideoTit.Text.Replace("", "¤") GoTo EndSub Parenthese2: txtTitle.Text = lblDefVideoTit.Text.Replace("<", "¤") GoTo EndSub Parenthese1: txtTitle.Text = lblDefVideoTit.Text.Replace(">", "¤") GoTo EndSub EndSub: End Sub

Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
    If CheckBox1.Checked = True Then
        My.Settings.ChangeText = True
    Else
        My.Settings.ChangeText = False
    End If
    My.Settings.Save()
End Sub

[mixail167]

I changed the video title to Latin characters. Not work.

[3xploitch3ats]

for the character in c++ this is #pragma execution_character_set("utf-8") but i dont have checked for vb script

do you have try download only with english letters because the program is write in english

or try rename the title of your download with 123.mp4 and the best way for know if your character is supported this is of change the title of your mp4 with your character and if your mp4 keep your character this is ok it can write it but it has a lot of character that dont supported

example if you try put | in the title of your mp4 or same the double quote "", it will not have it in his title i replace some character by ¤ because it can't write it in the title

and the video dont download because it can't write the title correctly

and i take the script of LinPolly https://github.com/LinPolly/YoutubeExtractor

and i can download your video without changing nothing and my project is here https://github.com/flagbug/YoutubeExtractor/issues/373

[mixail167]

I changed the video title to 123.mp4. Not work. I also use the project of LinPolly.