mirror of
https://github.com/hama3254/Crunchyroll-Downloader-v3.0.git
synced 2024-12-24 23:21:49 +01:00
parent
18e4d9a0d4
commit
0a1b38d544
Binary file not shown.
@ -1114,11 +1114,16 @@ Public Class Main
|
|||||||
Dim SeasonSubData As List(Of JToken) = Entry.Children().ToList
|
Dim SeasonSubData As List(Of JToken) = Entry.Children().ToList
|
||||||
Dim localSeasons As New List(Of CR_Seasons)
|
Dim localSeasons As New List(Of CR_Seasons)
|
||||||
Dim season_number As String = Nothing
|
Dim season_number As String = Nothing
|
||||||
|
Dim id As String = Nothing
|
||||||
|
Dim audio_localeMain As String = Nothing
|
||||||
|
|
||||||
|
|
||||||
For Each SeasonSubItem As JProperty In SeasonSubData
|
For Each SeasonSubItem As JProperty In SeasonSubData
|
||||||
SeasonSubItem.CreateReader()
|
SeasonSubItem.CreateReader()
|
||||||
|
|
||||||
Select Case SeasonSubItem.Name
|
Select Case SeasonSubItem.Name
|
||||||
Case "versions"
|
Case "versions"
|
||||||
|
Try
|
||||||
For Each VersionItem As JObject In SeasonSubItem.Values
|
For Each VersionItem As JObject In SeasonSubItem.Values
|
||||||
|
|
||||||
Dim guid As String = VersionItem.GetValue("guid").ToString
|
Dim guid As String = VersionItem.GetValue("guid").ToString
|
||||||
@ -1126,17 +1131,40 @@ Public Class Main
|
|||||||
|
|
||||||
localSeasons.Add(New CR_Seasons(guid, audio_locale, Auth))
|
localSeasons.Add(New CR_Seasons(guid, audio_locale, Auth))
|
||||||
Next
|
Next
|
||||||
|
Catch ex As Exception
|
||||||
|
Debug.WriteLine("Error getting season data")
|
||||||
|
End Try
|
||||||
Case "season_number"
|
Case "season_number"
|
||||||
season_number = SeasonSubItem.Value.ToString
|
season_number = SeasonSubItem.Value.ToString
|
||||||
|
Case "id"
|
||||||
|
id = SeasonSubItem.Value.ToString
|
||||||
|
Case "audio_locale"
|
||||||
|
audio_localeMain = SeasonSubItem.Value.ToString
|
||||||
End Select
|
End Select
|
||||||
Next
|
Next
|
||||||
|
|
||||||
|
If localSeasons.Count = 0 Then
|
||||||
|
Anime_Add.ComboBox1.Items.Add(HardSubValuesToDisplay(audio_localeMain) + " - 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
|
||||||
For i As Integer = 0 To localSeasons.Count - 1
|
For i As Integer = 0 To localSeasons.Count - 1
|
||||||
Anime_Add.ComboBox1.Items.Add(HardSubValuesToDisplay(localSeasons.Item(i).audio_locale) + " - Season " + season_number)
|
Anime_Add.ComboBox1.Items.Add(HardSubValuesToDisplay(localSeasons.Item(i).audio_locale) + " - Season " + season_number)
|
||||||
CR_MassSeasons.Add(localSeasons.Item(i))
|
CR_MassSeasons.Add(localSeasons.Item(i))
|
||||||
Next
|
Next
|
||||||
|
End If
|
||||||
|
|
||||||
Next
|
Next
|
||||||
End Select
|
End Select
|
||||||
Next
|
Next
|
||||||
@ -4398,7 +4426,6 @@ Public Class Main
|
|||||||
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)
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
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"))
|
||||||
@ -4419,7 +4446,6 @@ Public Class Main
|
|||||||
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)
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
'MsgBox(v1Token)
|
'MsgBox(v1Token)
|
||||||
|
|
||||||
If CBool(InStr(v1Token, "curl:")) = True Then
|
If CBool(InStr(v1Token, "curl:")) = True Then
|
||||||
|
Loading…
Reference in New Issue
Block a user