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

fix season dl

Browse Source 
fix season dl #874
This commit is contained in:
hama3254 2024-01-09 17:55:11 +01:00
parent d2797b4b2e
commit c66a8d21f7
5 changed files with 27 additions and 25 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.

2
Crunchyroll Downloader/Anime_Add.Designer.vb generated
View File

@ -364,8 +364,8 @@ Partial Class Anime_Add
Me.Controls.Add(Me.btn_dl) Me.Controls.Add(Me.btn_dl)
Me.Controls.Add(Me.Btn_min) Me.Controls.Add(Me.Btn_min)
Me.Controls.Add(Me.Btn_Close) Me.Controls.Add(Me.Btn_Close)
Me.Controls.Add(Me.groupBox2)
Me.Controls.Add(Me.groupBox1) Me.Controls.Add(Me.groupBox1)
Me.Controls.Add(Me.groupBox2)
Me.Font = New System.Drawing.Font("Arial", 24.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Font = New System.Drawing.Font("Arial", 24.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Name = "Anime_Add" Me.Name = "Anime_Add"
Me.Padding = New System.Windows.Forms.Padding(10, 60, 20, 20) Me.Padding = New System.Windows.Forms.Padding(10, 60, 20, 20)

18
Crunchyroll Downloader/Anime_Add.vb
View File

@ -177,6 +177,24 @@ Public Class Anime_Add
If CBool(InStr(textBox1.Text, ":\")) Then If CBool(InStr(textBox1.Text, ":\")) Then
Main.ProcessLocal(textBox1.Text) Main.ProcessLocal(textBox1.Text)
ElseIf CBool(InStr(textBox1.Text, ".m3u8")) Then
' Main.ProcessLocal(textBox1.Text)
Dim NameKomplett As String = TextBox2.Text
If NameKomplett = Nothing Or NameKomplett = "Use Custom Name" Then
NameKomplett = GeräteID2().Replace("CRD-Temp-File", "misc_download-#")
End If
Dim Namep1 As String = "Other"
Dim Namep2 As String = NameKomplett
Dim Reso As String = "NaN"
Dim HardSub As String = "maybe?"
Dim ThumbnialURL As String = "no"
Dim URL_DL As String = textBox1.Text
Dim Pfad_DL As String = Path.Combine(Main.Pfad, Namep2)
Dim Service As String = "other"
Main.ItemConstructor(NameKomplett, NameP1, NameP2, Reso, HardSub, ThumbnialURL, URL_DL, Pfad_DL, Service)
ElseIf CBool(InStr(textBox1.Text, "crunchyroll.com")) Or CBool(InStr(textBox1.Text, "funimation.com")) Then ElseIf CBool(InStr(textBox1.Text, "crunchyroll.com")) Or CBool(InStr(textBox1.Text, "funimation.com")) Then

2
Crunchyroll Downloader/CRD_List_Item.vb
View File

@ -85,6 +85,8 @@ Public Class CRD_List_Item
If Service = "FM" Then If Service = "FM" Then
MetroStyleManager1.Style = MetroColorStyle.DarkPurple MetroStyleManager1.Style = MetroColorStyle.DarkPurple
ElseIf Service = "other" Then
MetroStyleManager1.Style = MetroColorStyle.Black
Else Else
MetroStyleManager1.Style = MetroColorStyle.Orange MetroStyleManager1.Style = MetroColorStyle.Orange
End If End If

30
Crunchyroll Downloader/Main.vb
View File

@ -942,38 +942,18 @@ Public Class Main
Next Next
'MsgBox(season_number + vbNewLine + id + vbNewLine + title + vbNewLine + audio_localeMain)
'add dubs to local seasons 'add dubs to local seasons
For i As Integer = 0 To Dubs.Count - 1 For i As Integer = 0 To Dubs.Count - 1
localSeasons.Add(New CR_Seasons(Dubs.Item(i).guid, Dubs.Item(i).audio_locale, Dubs.Item(i).Auth, season_number + " - " + title)) localSeasons.Add(New CR_Seasons(Dubs.Item(i).guid, Dubs.Item(i).audio_locale, Dubs.Item(i).Auth, season_number + " - " + title))
Next Next
'localSeasons.Add(New CR_Seasons(guid, audio_locale, Auth, season_number)) 'if version are null then add the main version
'MsgBox(audio_locale)
'Debug.WriteLine("Start-Seasons")
'Debug.WriteLine(localSeasons.Item(0).guid)
'Debug.WriteLine("END-Seasons")
If localSeasons.Count = 0 Then If localSeasons.Count = 0 Then
Continue For localSeasons.Add(New CR_Seasons(id, audio_localeMain, Auth, season_number + " - " + title))
End If End If
'If localSeasons.Count = 0 Then 'add seasons to DubList
' Anime_Add.CB_Season.Items.Add(ConvertSubValue(audio_localeMain, ConvertSubsEnum.DisplayText) + " - Season " + season_number)
' CR_MassSeasons.Add(New CR_Seasons(id, audio_localeMain, Auth))
'End If
'If localSeasons.Count > 0 Then
' For i As Integer = 0 To CR_MassSeasons.Count - 1
' If CR_MassSeasons.Item(i).guid = localSeasons.Item(0).guid Then
' localSeasons.Clear()
' Exit For
' End If
' Next
'End If
If localSeasons.Count > 0 Then If localSeasons.Count > 0 Then
For i As Integer = 0 To localSeasons.Count - 1 For i As Integer = 0 To localSeasons.Count - 1
'Anime_Add.CB_Season.Items.Add(ConvertSubValue(localSeasons.Item(i).audio_locale, ConvertSubsEnum.DisplayText) + " - Season " + season_number) 'Anime_Add.CB_Season.Items.Add(ConvertSubValue(localSeasons.Item(i).audio_locale, ConvertSubsEnum.DisplayText) + " - Season " + season_number)
@ -987,6 +967,8 @@ Public Class Main
Next Next
Dim CleanDubs As List(Of String) = DubList.Distinct().ToList Dim CleanDubs As List(Of String) = DubList.Distinct().ToList
'MsgBox(CleanDubs.Count.ToString)
Anime_Add.CB_Dub.Enabled = True Anime_Add.CB_Dub.Enabled = True
Dim Index As Integer = 0 Dim Index As Integer = 0
For i As Integer = 0 To CleanDubs.Count - 1 For i As Integer = 0 To CleanDubs.Count - 1