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

fix command issue

Browse Source 
fix command issue #677
This commit is contained in:
hama3254 2023-01-21 12:57:00 +01:00
parent 2ce9b488b7
commit 18e4d9a0d4
4 changed files with 13 additions and 9 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.

4
Crunchyroll Downloader/Anime_Add.vb
View File

@ -405,8 +405,10 @@ Public Class Anime_Add
Dim JsonUrl As String = "https://www.crunchyroll.com/content/v2/cms/seasons/" + Main.CR_MassSeasons.Item(ComboBox1.SelectedIndex).guid + "/episodes?preferred_audio_language=" + Main.DubSprache.CR_Value + "&locale=" + Main.locale
Dim Loc_CR_Cookies = " -H " + Chr(34) + Main.CR_Cookies.Replace(Chr(34), "").Replace(" -H ", "") + Chr(34)
Dim EpisodeJson As String = Main.CurlAuth(JsonUrl, Main.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) '
FillCREpisodes(EpisodeJson)

14
Crunchyroll Downloader/Main.vb
View File

@ -1084,7 +1084,9 @@ Public Class Main
CR_MassSeasons.Clear()
If BrowserData = Nothing Then
SeasonJson = CurlAuth(JsonUrl, CR_Cookies, Auth)
Dim Loc_CR_Cookies = " -H " + Chr(34) + CR_Cookies.Replace(Chr(34), "").Replace(" -H ", "") + Chr(34)
SeasonJson = CurlAuth(JsonUrl, Loc_CR_Cookies, Auth)
If CBool(InStr(SeasonJson, "curl:")) = True Then
'Browser.WebView2.CoreWebView2.Navigate(Url)
@ -2808,7 +2810,7 @@ Public Class Main
item.CreateReader()
Select Case item.Name
Case "fallback"
' MsgBox(SubItem.Value.ToString())
'MsgBox(SubItem.Value.ToString())
Dim SubData2 As List(Of JToken) = item.Values.ToList
'MsgBox(SubData2.Count.ToString)
For i As Integer = 0 To SubData2.Count - 1
@ -2850,7 +2852,7 @@ Public Class Main
Select Case SubItem.Name
' Case "manifestPath"
' Funimation_m3u8_Main = SubItem.Value.ToString
'' MsgBox()
''MsgBox()
Case "version"
PrimaryVersion = SubItem.Value.ToString
Case "audioLanguage"
@ -2858,7 +2860,7 @@ Public Class Main
Case "manifestPath"
PrimarymanifesUrl = SubItem.Value.ToString
Case "subtitles"
' MsgBox(SubItem.Value.ToString())
'MsgBox(SubItem.Value.ToString())
Dim SubData2 As List(Of JToken) = SubItem.Values.ToList
'MsgBox(SubData2.Count.ToString)
For i As Integer = 0 To SubData2.Count - 1
@ -4445,7 +4447,7 @@ Public Class Main
Dim SeriesUrl As String = "https://www.crunchyroll.com/content/v2/cms/series/" + SeriesUrlBuilder2(0) + "/seasons?preferred_audio_language=" + DubSprache.CR_Value + "&locale=" + locale '+ "&Signature=" + signature2(0) + "&Policy=" + policy2(0) + "&Key-Pair-Id=" + key_pair_id2(0)
Debug.WriteLine(SeriesUrl)
'MsgBox(SeriesUrl)
GetBetaSeasons(Url, SeriesUrl, Auth2)
@ -4508,7 +4510,7 @@ Public Class Main
StreamsUrl = StreamsUrlBuilder3(0) + "videos/" + StreamsUrlBuilder2(0) + "/streams?" + StreamsUrlBuilder4(1)
MsgBox(StreamsUrl)
'MsgBox(StreamsUrl)
' Debug.WriteLine(StreamsUrl)
Catch ex As Exception

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

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