(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
#373

[mixail167]

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