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

added sub filter for season selection

Browse Source 
added sub filter for season selection
This commit is contained in:
hama3254 2023-03-27 18:19:02 +02:00
parent bc018fa136
commit b2e945ba5f
3 changed files with 18 additions and 2 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.

16
Crunchyroll Downloader/Anime_Add.vb
View File

@ -377,9 +377,13 @@ Public Class Anime_Add
Public Sub FillCREpisodes(ByVal EpisodeJson As String) Public Sub FillCREpisodes(ByVal EpisodeJson As String)
EpisodeJson = CleanJSON(EpisodeJson) EpisodeJson = CleanJSON(EpisodeJson)
Main.CR_MassEpisodes.Clear() Main.CR_MassEpisodes.Clear()
Dim audio_locale_filter As String = Nothing
Dim EpisodeJObject As JObject = JObject.Parse(EpisodeJson) Dim EpisodeJObject As JObject = JObject.Parse(EpisodeJson)
Dim EpisodeData As List(Of JToken) = EpisodeJObject.Children().ToList Dim EpisodeData As List(Of JToken) = EpisodeJObject.Children().ToList
@ -388,6 +392,15 @@ Public Class Anime_Add
Select Case item.Name Select Case item.Name
Case "data" 'each record is inside the entries array Case "data" 'each record is inside the entries array
For Each Entry As JObject In item.Values For Each Entry As JObject In item.Values
Dim audio_locale As String = Entry.GetValue("audio_locale").ToString
If audio_locale_filter = Nothing Then
audio_locale_filter = audio_locale
ElseIf CBool(InStr(audio_locale_filter, audio_locale)) = False Then
'MsgBox(audio_locale + vbNewLine + audio_locale_filter)
Continue For
End If
Dim episode_number As String = Entry.GetValue("episode_number").ToString Dim episode_number As String = Entry.GetValue("episode_number").ToString
Dim episode_id As String = Entry.GetValue("id").ToString Dim episode_id As String = Entry.GetValue("id").ToString
Dim slug_title As String = Entry.GetValue("slug_title").ToString Dim slug_title As String = Entry.GetValue("slug_title").ToString
@ -395,6 +408,7 @@ Public Class Anime_Add
comboBox3.Items.Add("Episode " + episode_number) comboBox3.Items.Add("Episode " + episode_number)
comboBox4.Items.Add("Episode " + episode_number) comboBox4.Items.Add("Episode " + episode_number)
Main.CR_MassEpisodes.Add(New CR_Seasons(episode_id, slug_title, Main.CR_MassSeasons.Item(ComboBox1.SelectedIndex).Auth)) Main.CR_MassEpisodes.Add(New CR_Seasons(episode_id, slug_title, Main.CR_MassSeasons.Item(ComboBox1.SelectedIndex).Auth))
Next Next
End Select End Select
Next Next
@ -425,6 +439,8 @@ Public Class Anime_Add
Dim EpisodeJson As String = Main.CurlAuth(JsonUrl, Loc_CR_Cookies, Main.CR_MassSeasons.Item(ComboBox1.SelectedIndex).Auth) ' Dim EpisodeJson As String = Main.CurlAuth(JsonUrl, Loc_CR_Cookies, Main.CR_MassSeasons.Item(ComboBox1.SelectedIndex).Auth) '
'My.Computer.Clipboard.SetText(EpisodeJson)
FillCREpisodes(EpisodeJson) FillCREpisodes(EpisodeJson)

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.14.5.1")> <Assembly: AssemblyVersion("3.15")>
<Assembly: AssemblyFileVersion("3.14.5.1")> <Assembly: AssemblyFileVersion("3.15")>
<Assembly: NeutralResourcesLanguage("en")> <Assembly: NeutralResourcesLanguage("en")>