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

Subtilte only forced

Browse Source 
Subtilte only forced
added missing language
This commit is contained in:
hama3254 2024-03-26 20:56:18 +01:00
parent a7b5c312fd
commit 53f79d351f
4 changed files with 15 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.

7
Crunchyroll Downloader/Anime_Add.vb
View File

@ -723,9 +723,10 @@ Public Class Anime_Add
End Sub
Private Sub SubTitlesOnlyCB_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DownloadScope.SelectedIndexChanged
Main.DownloadScope = DownloadScope.SelectedIndex
My.Settings.DownloadScope = Main.DownloadScope
My.Settings.Save()
DownloadScope.SelectedIndex = DownloadScopeEnum.SubsOnly
'Main.DownloadScope = DownloadScope.SelectedIndex
'My.Settings.DownloadScope = Main.DownloadScope
'My.Settings.Save()
End Sub

13
Crunchyroll Downloader/Main.vb
View File

@ -445,7 +445,7 @@ Public Class Main
DarkModeValue = My.Settings.DarkModeValue
DownloadScope = My.Settings.DownloadScope
DownloadScope = DownloadScopeEnum.SubsOnly 'My.Settings.DownloadScope
Manager.Style = MetroColorStyle.Orange
If DarkModeValue = True Then
@ -1803,7 +1803,10 @@ Public Class Main
Dim cms As String = CurlAuthNew("https://www.crunchyroll.com/index/v2", Loc_CR_Cookies, Loc_AuthToken)
'MsgBox(cms)
Dim cms_web() As String = cms.Split(New String() {Chr(34) + "cms_web" + Chr(34) + ":"}, System.StringSplitOptions.RemoveEmptyEntries)
'Dim cms_web() As String = cms.Split(New String() {Chr(34) + "cms_beta" + Chr(34) + ":"}, System.StringSplitOptions.RemoveEmptyEntries)
Dim bucket1() As String = cms_web(1).Split(New String() {Chr(34) + "bucket" + Chr(34) + ":" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
Dim bucket2() As String = bucket1(1).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
@ -1829,7 +1832,7 @@ Public Class Main
'MsgBox(Videos)
Dim VideoJson As String = Nothing
Dim StreamUrl As String = "https://www.crunchyroll.com/cms/v2" + bucket + Videos + "streams?Policy=" + policy + "&Signature=" + signature + "&Key-Pair-Id=" + key_pair_id
'MsgBox(StreamUrl)
VideoJson = CurlAuthNew(StreamUrl, Loc_CR_Cookies, Loc_AuthToken) 'Curl(StreamUrl) '
'VideoJson = CurlAuthNew(Streams, Loc_CR_Cookies, Loc_AuthToken)
@ -1896,7 +1899,7 @@ Public Class Main
For i As Integer = 0 To DubsAvalible.Count - 1
If DubsAvalible(i).AudioLang = DubSprache.CR_Value Then
Dim NewStream As String = "https://www.crunchyroll.com/cms/v2" + bucket + "/videos/" + DubsAvalible(i).media_guid + "/" + "streams?Policy=" + policy + "&Signature=" + signature + "&Key-Pair-Id=" + key_pair_id
' MsgBox(NewStream)
'MsgBox(NewStream)
VideoJson = CurlAuthNew(NewStream, Loc_CR_Cookies, Loc_AuthToken) 'Curl(StreamUrl) '
End If
@ -1908,7 +1911,7 @@ Public Class Main
Catch ex As Exception
End Try
' MsgBox("Trigger off!")
'MsgBox("Trigger off!")
#End Region
@ -5110,6 +5113,8 @@ Public Class Main
LangValueEnum.Add(New NameValuePair("Bahasa Indonesia", "ind", "id-ID", Nothing))
LangValueEnum.Add(New NameValuePair("Bahasa Melayu", "msa", "ms-MY", Nothing))
LangValueEnum.Add(New NameValuePair("Català", "cat", "ca-ES", Nothing))
LangValueEnum.Add(New NameValuePair("Tiếng Việt", "vie", "vi-VN", Nothing))

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.18")>
<Assembly: AssemblyFileVersion("3.18")>
<Assembly: AssemblyVersion("3.19")>
<Assembly: AssemblyFileVersion("3.19")>
<Assembly: NeutralResourcesLanguage("en")>