Subtilte only forced

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

Binary file not shown.

View File

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

View File

@ -445,7 +445,7 @@ Public Class Main
DarkModeValue = My.Settings.DarkModeValue DarkModeValue = My.Settings.DarkModeValue
DownloadScope = My.Settings.DownloadScope DownloadScope = DownloadScopeEnum.SubsOnly 'My.Settings.DownloadScope
Manager.Style = MetroColorStyle.Orange Manager.Style = MetroColorStyle.Orange
If DarkModeValue = True Then 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) 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_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 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) Dim bucket2() As String = bucket1(1).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
@ -1829,7 +1832,7 @@ Public Class Main
'MsgBox(Videos) 'MsgBox(Videos)
Dim VideoJson As String = Nothing 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 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(StreamUrl, Loc_CR_Cookies, Loc_AuthToken) 'Curl(StreamUrl) '
'VideoJson = CurlAuthNew(Streams, Loc_CR_Cookies, Loc_AuthToken) 'VideoJson = CurlAuthNew(Streams, Loc_CR_Cookies, Loc_AuthToken)
@ -1896,7 +1899,7 @@ Public Class Main
For i As Integer = 0 To DubsAvalible.Count - 1 For i As Integer = 0 To DubsAvalible.Count - 1
If DubsAvalible(i).AudioLang = DubSprache.CR_Value Then 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 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) ' VideoJson = CurlAuthNew(NewStream, Loc_CR_Cookies, Loc_AuthToken) 'Curl(StreamUrl) '
End If End If
@ -1908,7 +1911,7 @@ Public Class Main
Catch ex As Exception Catch ex As Exception
End Try End Try
' MsgBox("Trigger off!") 'MsgBox("Trigger off!")
#End Region #End Region
@ -5110,6 +5113,8 @@ Public Class Main
LangValueEnum.Add(New NameValuePair("Bahasa Indonesia", "ind", "id-ID", Nothing)) 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("Català", "cat", "ca-ES", Nothing))
LangValueEnum.Add(New NameValuePair("Tiếng Việt", "vie", "vi-VN", Nothing)) LangValueEnum.Add(New NameValuePair("Tiếng Việt", "vie", "vi-VN", Nothing))

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