mirror of
https://github.com/hama3254/Crunchyroll-Downloader-v3.0.git
synced 2024-12-24 23:21:49 +01:00
parent
d2797b4b2e
commit
c66a8d21f7
Binary file not shown.
2
Crunchyroll Downloader/Anime_Add.Designer.vb
generated
2
Crunchyroll Downloader/Anime_Add.Designer.vb
generated
@ -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)
|
||||||
|
@ -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
|
||||||
|
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user