Mirrors/Crunchyroll-Downloader-v3.0
2
0
Fork 0
mirror of https://github.com/hama3254/Crunchyroll-Downloader-v3.0.git synced 2024-11-15 12:45:07 +01:00
Code Issues Packages Projects Releases Wiki Activity

possible fix http 400, av1_amf option added

Browse Source 
possible fix http 400 #761 #786 #785
av1_amf option added #787
This commit is contained in:
hama3254 2023-07-15 20:54:20 +02:00
parent a81fe6a394
commit 2dd509614a
7 changed files with 55 additions and 42 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
.vs/Crunchyroll Downloader/v17/.suo
View File

Binary file not shown.

10
Crunchyroll Downloader/GetData.vb
View File

@ -67,7 +67,7 @@ Module GetData
End Function End Function
Public Function CurlPost(ByVal Url As String, ByVal Cookies As String, ByVal Auth As String, ByVal Post As String) As String Public Function CurlPost(ByVal Url As String, ByVal Cookies As String, ByVal Auth As String, ByVal Post As String, ByVal Sender As String) As String
Dim exepath As String = Path.Combine(Application.StartupPath, "lib", "curl.exe") Dim exepath As String = Path.Combine(Application.StartupPath, "lib", "curl.exe")
@ -114,11 +114,15 @@ Module GetData
Loop Until Proc.HasExited Or Microsoft.VisualBasic.DateAndTime.Timer < finish Loop Until Proc.HasExited Or Microsoft.VisualBasic.DateAndTime.Timer < finish
If CBool(InStr(CurlOutput, "curl:")) = True And CBool(InStr(CurlOutput, "400")) = True Then
If CBool(InStr(CurlError, "curl:")) Then Return CurlOutput
ElseIf CBool(InStr(CurlError, "curl:")) = True And CBool(InStr(CurlError, "400")) = True Then
Return CurlError
ElseIf CBool(InStr(CurlError, "curl:")) Then
Debug.WriteLine(CurlError) Debug.WriteLine(CurlError)
Throw New System.Exception("Error - Getting" + vbNewLine + CurlError) Throw New System.Exception("Error - Getting" + vbNewLine + CurlError)
Return Nothing Return Nothing
ElseIf CBool(InStr(CurlOutput, "curl:")) Then ElseIf CBool(InStr(CurlOutput, "curl:")) Then
Debug.WriteLine(CurlOutput) Debug.WriteLine(CurlOutput)
Throw New System.Exception("Error - Getting" + vbNewLine + CurlError) Throw New System.Exception("Error - Getting" + vbNewLine + CurlError)

9
Crunchyroll Downloader/Main.vb
View File

@ -4490,15 +4490,18 @@ Public Class Main
Dim CRBetaBearer As String = "Bearer " Dim CRBetaBearer As String = "Bearer "
Dim v1Token As String = CurlPost("https://www.crunchyroll.com/auth/v1/token", Loc_CR_Cookies, Auth, Post)
Dim v1Token As String = CurlPost("https://www.crunchyroll.com/auth/v1/token", Loc_CR_Cookies, Auth, Post, "add_main_4494")
If CBool(InStr(v1Token, "curl:")) = True And CBool(InStr(v1Token, "400")) = True Then If CBool(InStr(v1Token, "curl:")) = True And CBool(InStr(v1Token, "400")) = True Then
v1Token = CurlPost("https://www.crunchyroll.com/auth/v1/token", Loc_CR_Cookies, Auth, Post.Replace("etp_rt_cookie", "client_id")) v1Token = CurlPost("https://www.crunchyroll.com/auth/v1/token", Loc_CR_Cookies, Auth, Post.Replace("etp_rt_cookie", "client_id"), "add_main-4499")
End If End If
'MsgBox(v1Token) 'MsgBox(v1Token)
If CBool(InStr(v1Token, "curl:")) = True And CBool(InStr(v1Token, "400")) = True Then If CBool(InStr(v1Token, "curl:")) = True And CBool(InStr(v1Token, "400")) = True Then
@ -4510,7 +4513,7 @@ Public Class Main
Exit Sub Exit Sub
ElseIf CBool(InStr(v1Token, "curl:")) = True Then ElseIf CBool(InStr(v1Token, "curl:")) = True Then
v1Token = CurlPost("https://www.crunchyroll.com/auth/v1/token", Loc_CR_Cookies, Auth, Post) v1Token = CurlPost("https://www.crunchyroll.com/auth/v1/token", Loc_CR_Cookies, Auth, Post, "add_main_4516")
End If End If
'MsgBox(v1Token) 'MsgBox(v1Token)

4
Crunchyroll Downloader/My Project/AssemblyInfo.vb
View File

@ -32,6 +32,6 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("3.15.5.4")> <Assembly: AssemblyVersion("3.15.6")>
<Assembly: AssemblyFileVersion("3.15.5.4")> <Assembly: AssemblyFileVersion("3.15.6")>
<Assembly: NeutralResourcesLanguage("en")> <Assembly: NeutralResourcesLanguage("en")>

61
Crunchyroll Downloader/einstellungen.Designer.vb generated
View File

@ -25,6 +25,7 @@ Partial Class Einstellungen
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
Me.CB_Mod1 = New MetroFramework.Controls.MetroCheckBox() Me.CB_Mod1 = New MetroFramework.Controls.MetroCheckBox()
Me.CB_vttStyle = New MetroFramework.Controls.MetroCheckBox()
Me.pictureBox1 = New System.Windows.Forms.PictureBox() Me.pictureBox1 = New System.Windows.Forms.PictureBox()
Me.ToolTip2 = New System.Windows.Forms.ToolTip(Me.components) Me.ToolTip2 = New System.Windows.Forms.ToolTip(Me.components)
Me.GroupBox14 = New System.Windows.Forms.GroupBox() Me.GroupBox14 = New System.Windows.Forms.GroupBox()
@ -159,7 +160,7 @@ Partial Class Einstellungen
Me.Label5 = New MetroFramework.Controls.MetroLabel() Me.Label5 = New MetroFramework.Controls.MetroLabel()
Me.BackgroundWorker1 = New System.ComponentModel.BackgroundWorker() Me.BackgroundWorker1 = New System.ComponentModel.BackgroundWorker()
Me.Btn_Save = New System.Windows.Forms.Button() Me.Btn_Save = New System.Windows.Forms.Button()
Me.CB_vttStyle = New MetroFramework.Controls.MetroCheckBox() Me.AMD_AV1 = New System.Windows.Forms.ToolStripMenuItem()
CType(Me.pictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.pictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox14.SuspendLayout() Me.GroupBox14.SuspendLayout()
Me.SoftSubs.SuspendLayout() Me.SoftSubs.SuspendLayout()
@ -224,6 +225,20 @@ Partial Class Einstellungen
"com/hama3254/Crunchyroll-Downloader-v3.0/issues/764") "com/hama3254/Crunchyroll-Downloader-v3.0/issues/764")
Me.CB_Mod1.UseSelectable = True Me.CB_Mod1.UseSelectable = True
' '
'CB_vttStyle
'
Me.CB_vttStyle.AutoSize = True
Me.CB_vttStyle.FontSize = MetroFramework.MetroCheckBoxSize.Medium
Me.CB_vttStyle.ForeColor = System.Drawing.Color.Black
Me.CB_vttStyle.Location = New System.Drawing.Point(349, 21)
Me.CB_vttStyle.Name = "CB_vttStyle"
Me.CB_vttStyle.Size = New System.Drawing.Size(126, 19)
Me.CB_vttStyle.TabIndex = 6
Me.CB_vttStyle.Text = "remove CC Style"
Me.ToolTip1.SetToolTip(Me.CB_vttStyle, "fixing CRs mess of cc's https://github.com/hama3254/Crunchyroll-Downloader-v3.0/" &
"issues/769")
Me.CB_vttStyle.UseSelectable = True
'
'pictureBox1 'pictureBox1
' '
Me.pictureBox1.BackColor = System.Drawing.Color.Transparent Me.pictureBox1.BackColor = System.Drawing.Color.Transparent
@ -541,7 +556,7 @@ Partial Class Einstellungen
' '
'FFMPEG_CommandP1 'FFMPEG_CommandP1
' '
Me.FFMPEG_CommandP1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.copy, Me.CPU_h264, Me.CPU_h265, Me.CPU_AV1, Me.nv_h264, Me.nv_hevc, Me.nv_AV1, Me.AMD_h264, Me.AMD_hevc, Me.Intel_h264, Me.Intel_hevc, Me.Intel_AV1}) Me.FFMPEG_CommandP1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.copy, Me.CPU_h264, Me.CPU_h265, Me.CPU_AV1, Me.nv_h264, Me.nv_hevc, Me.nv_AV1, Me.AMD_h264, Me.AMD_hevc, Me.AMD_AV1, Me.Intel_h264, Me.Intel_hevc, Me.Intel_AV1})
Me.FFMPEG_CommandP1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.FFMPEG_CommandP1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.FFMPEG_CommandP1.Name = "FFMPEG_CommandP1" Me.FFMPEG_CommandP1.Name = "FFMPEG_CommandP1"
Me.FFMPEG_CommandP1.Size = New System.Drawing.Size(63, 20) Me.FFMPEG_CommandP1.Size = New System.Drawing.Size(63, 20)
@ -550,84 +565,84 @@ Partial Class Einstellungen
'copy 'copy
' '
Me.copy.Name = "copy" Me.copy.Name = "copy"
Me.copy.Size = New System.Drawing.Size(172, 22) Me.copy.Size = New System.Drawing.Size(180, 22)
Me.copy.Text = "-c copy" Me.copy.Text = "-c copy"
' '
'CPU_h264 'CPU_h264
' '
Me.CPU_h264.BackColor = System.Drawing.Color.DarkGray Me.CPU_h264.BackColor = System.Drawing.Color.DarkGray
Me.CPU_h264.Name = "CPU_h264" Me.CPU_h264.Name = "CPU_h264"
Me.CPU_h264.Size = New System.Drawing.Size(172, 22) Me.CPU_h264.Size = New System.Drawing.Size(180, 22)
Me.CPU_h264.Text = "-c:v libx264" Me.CPU_h264.Text = "-c:v libx264"
' '
'CPU_h265 'CPU_h265
' '
Me.CPU_h265.BackColor = System.Drawing.Color.DarkGray Me.CPU_h265.BackColor = System.Drawing.Color.DarkGray
Me.CPU_h265.Name = "CPU_h265" Me.CPU_h265.Name = "CPU_h265"
Me.CPU_h265.Size = New System.Drawing.Size(172, 22) Me.CPU_h265.Size = New System.Drawing.Size(180, 22)
Me.CPU_h265.Text = "-c:v libx265" Me.CPU_h265.Text = "-c:v libx265"
' '
'CPU_AV1 'CPU_AV1
' '
Me.CPU_AV1.BackColor = System.Drawing.Color.DarkGray Me.CPU_AV1.BackColor = System.Drawing.Color.DarkGray
Me.CPU_AV1.Name = "CPU_AV1" Me.CPU_AV1.Name = "CPU_AV1"
Me.CPU_AV1.Size = New System.Drawing.Size(172, 22) Me.CPU_AV1.Size = New System.Drawing.Size(180, 22)
Me.CPU_AV1.Text = "-c:v libsvtav1" Me.CPU_AV1.Text = "-c:v libsvtav1"
' '
'nv_h264 'nv_h264
' '
Me.nv_h264.BackColor = System.Drawing.Color.YellowGreen Me.nv_h264.BackColor = System.Drawing.Color.YellowGreen
Me.nv_h264.Name = "nv_h264" Me.nv_h264.Name = "nv_h264"
Me.nv_h264.Size = New System.Drawing.Size(172, 22) Me.nv_h264.Size = New System.Drawing.Size(180, 22)
Me.nv_h264.Text = "-c:v h264_nvenc " Me.nv_h264.Text = "-c:v h264_nvenc "
' '
'nv_hevc 'nv_hevc
' '
Me.nv_hevc.BackColor = System.Drawing.Color.YellowGreen Me.nv_hevc.BackColor = System.Drawing.Color.YellowGreen
Me.nv_hevc.Name = "nv_hevc" Me.nv_hevc.Name = "nv_hevc"
Me.nv_hevc.Size = New System.Drawing.Size(172, 22) Me.nv_hevc.Size = New System.Drawing.Size(180, 22)
Me.nv_hevc.Text = "-c:v hevc_nvenc" Me.nv_hevc.Text = "-c:v hevc_nvenc"
' '
'nv_AV1 'nv_AV1
' '
Me.nv_AV1.BackColor = System.Drawing.Color.YellowGreen Me.nv_AV1.BackColor = System.Drawing.Color.YellowGreen
Me.nv_AV1.Name = "nv_AV1" Me.nv_AV1.Name = "nv_AV1"
Me.nv_AV1.Size = New System.Drawing.Size(172, 22) Me.nv_AV1.Size = New System.Drawing.Size(180, 22)
Me.nv_AV1.Text = "-c:v av1_nvenc" Me.nv_AV1.Text = "-c:v av1_nvenc"
' '
'AMD_h264 'AMD_h264
' '
Me.AMD_h264.BackColor = System.Drawing.Color.Tomato Me.AMD_h264.BackColor = System.Drawing.Color.Tomato
Me.AMD_h264.Name = "AMD_h264" Me.AMD_h264.Name = "AMD_h264"
Me.AMD_h264.Size = New System.Drawing.Size(172, 22) Me.AMD_h264.Size = New System.Drawing.Size(180, 22)
Me.AMD_h264.Text = "-c:v h264_amf" Me.AMD_h264.Text = "-c:v h264_amf"
' '
'AMD_hevc 'AMD_hevc
' '
Me.AMD_hevc.BackColor = System.Drawing.Color.Tomato Me.AMD_hevc.BackColor = System.Drawing.Color.Tomato
Me.AMD_hevc.Name = "AMD_hevc" Me.AMD_hevc.Name = "AMD_hevc"
Me.AMD_hevc.Size = New System.Drawing.Size(172, 22) Me.AMD_hevc.Size = New System.Drawing.Size(180, 22)
Me.AMD_hevc.Text = "-c:v hevc_amf" Me.AMD_hevc.Text = "-c:v hevc_amf"
' '
'Intel_h264 'Intel_h264
' '
Me.Intel_h264.BackColor = System.Drawing.Color.CornflowerBlue Me.Intel_h264.BackColor = System.Drawing.Color.CornflowerBlue
Me.Intel_h264.Name = "Intel_h264" Me.Intel_h264.Name = "Intel_h264"
Me.Intel_h264.Size = New System.Drawing.Size(172, 22) Me.Intel_h264.Size = New System.Drawing.Size(180, 22)
Me.Intel_h264.Text = "-c:v h264_qsv" Me.Intel_h264.Text = "-c:v h264_qsv"
' '
'Intel_hevc 'Intel_hevc
' '
Me.Intel_hevc.BackColor = System.Drawing.Color.CornflowerBlue Me.Intel_hevc.BackColor = System.Drawing.Color.CornflowerBlue
Me.Intel_hevc.Name = "Intel_hevc" Me.Intel_hevc.Name = "Intel_hevc"
Me.Intel_hevc.Size = New System.Drawing.Size(172, 22) Me.Intel_hevc.Size = New System.Drawing.Size(180, 22)
Me.Intel_hevc.Text = "-c:v hevc_qsv" Me.Intel_hevc.Text = "-c:v hevc_qsv"
' '
'Intel_AV1 'Intel_AV1
' '
Me.Intel_AV1.BackColor = System.Drawing.Color.CornflowerBlue Me.Intel_AV1.BackColor = System.Drawing.Color.CornflowerBlue
Me.Intel_AV1.Name = "Intel_AV1" Me.Intel_AV1.Name = "Intel_AV1"
Me.Intel_AV1.Size = New System.Drawing.Size(172, 22) Me.Intel_AV1.Size = New System.Drawing.Size(180, 22)
Me.Intel_AV1.Text = "-c:v av1_qsv" Me.Intel_AV1.Text = "-c:v av1_qsv"
' '
'FFMPEG_CommandP2 'FFMPEG_CommandP2
@ -1881,19 +1896,12 @@ Partial Class Einstellungen
Me.Btn_Save.TabIndex = 9 Me.Btn_Save.TabIndex = 9
Me.Btn_Save.UseVisualStyleBackColor = False Me.Btn_Save.UseVisualStyleBackColor = False
' '
'CB_vttStyle 'AMD_AV1
' '
Me.CB_vttStyle.AutoSize = True Me.AMD_AV1.BackColor = System.Drawing.Color.Tomato
Me.CB_vttStyle.FontSize = MetroFramework.MetroCheckBoxSize.Medium Me.AMD_AV1.Name = "AMD_AV1"
Me.CB_vttStyle.ForeColor = System.Drawing.Color.Black Me.AMD_AV1.Size = New System.Drawing.Size(180, 22)
Me.CB_vttStyle.Location = New System.Drawing.Point(349, 21) Me.AMD_AV1.Text = "-c:v av1_amf"
Me.CB_vttStyle.Name = "CB_vttStyle"
Me.CB_vttStyle.Size = New System.Drawing.Size(126, 19)
Me.CB_vttStyle.TabIndex = 6
Me.CB_vttStyle.Text = "remove CC Style"
Me.ToolTip1.SetToolTip(Me.CB_vttStyle, "fixing CRs mess of cc's https://github.com/hama3254/Crunchyroll-Downloader-v3.0/" &
"issues/769")
Me.CB_vttStyle.UseSelectable = True
' '
'Einstellungen 'Einstellungen
' '
@ -2108,4 +2116,5 @@ Partial Class Einstellungen
Friend WithEvents GroupBox23 As GroupBox Friend WithEvents GroupBox23 As GroupBox
Friend WithEvents CB_Mod1 As MetroFramework.Controls.MetroCheckBox Friend WithEvents CB_Mod1 As MetroFramework.Controls.MetroCheckBox
Friend WithEvents CB_vttStyle As MetroFramework.Controls.MetroCheckBox Friend WithEvents CB_vttStyle As MetroFramework.Controls.MetroCheckBox
Friend WithEvents AMD_AV1 As ToolStripMenuItem
End Class End Class

3
Crunchyroll Downloader/einstellungen.resx
View File

@ -126,9 +126,6 @@
<metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>118, 20</value> <value>118, 20</value>
</metadata> </metadata>
<metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>118, 20</value>
</metadata>
<metadata name="BackgroundWorker1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="BackgroundWorker1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>332, 20</value> <value>332, 20</value>
</metadata> </metadata>

2
Crunchyroll Downloader/einstellungen.vb
View File

@ -850,7 +850,7 @@ Public Class Einstellungen
Private Sub ListC1_Click(sender As Object, e As EventArgs) Handles copy.Click, nv_h264.Click, nv_hevc.Click, nv_AV1.Click, CPU_h264.Click, CPU_h265.Click, CPU_AV1.Click, AMD_h264.Click, AMD_hevc.Click, Intel_h264.Click, Intel_hevc.Click, Intel_AV1.Click Private Sub ListC1_Click(sender As Object, e As EventArgs) Handles copy.Click, nv_h264.Click, nv_hevc.Click, nv_AV1.Click, CPU_h264.Click, CPU_h265.Click, CPU_AV1.Click, AMD_h264.Click, AMD_hevc.Click, AMD_AV1.Click, Intel_h264.Click, Intel_hevc.Click, Intel_AV1.Click
Dim Button As ToolStripMenuItem = CType(sender, ToolStripMenuItem) Dim Button As ToolStripMenuItem = CType(sender, ToolStripMenuItem)
If CBool(InStr(Button.Text, "av1")) Then If CBool(InStr(Button.Text, "av1")) Then