Mirrors/Crunchyroll-Downloader-v3.0
2
0
Fork 0
mirror of https://github.com/hama3254/Crunchyroll-Downloader-v3.0.git synced 2025-01-13 16:59:09 +01:00
Code Issues Packages Projects Releases Wiki Activity

fix dub override

Browse Source 
fix dub override #965
This commit is contained in:
hama3254 2024-05-26 13:29:11 +02:00
parent 476ee62251
commit e4345a9aab
2 changed files with 13 additions and 20 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.

33
Crunchyroll Downloader/Main.vb
View File

@ -1113,26 +1113,14 @@ Public Class Main
Case "audio_locale" Case "audio_locale"
CR_audio_locale = SubEntry.Value.ToString.Replace(Chr(34), "").Replace("\", "").Replace("/", "").Replace(":", "") CR_audio_locale = SubEntry.Value.ToString.Replace(Chr(34), "").Replace("\", "").Replace("/", "").Replace(":", "")
Case "versions" 'each record is inside the entries array Case "versions" 'each record is inside the entries array
For Each VersionEntry As JObject In item.Values Dim VersionSubData As List(Of JToken) = SubItem.Value.Item("versions").Children().ToList
Dim VideoSubData As List(Of JToken) = VersionEntry.Children().ToList For Each Version As JToken In VersionSubData
Dim guid As String = Nothing Dim guid As String = Version("guid").Value(Of String)()
Dim audio_locale As String = Nothing Dim audio_locale As String = Version("audio_locale").Value(Of String)()
For Each VideoSubItem As JProperty In VideoSubData ' Ausgabe der Werte
Select Case VideoSubItem.Name DubsAvalible.Add(New CR_MediaVersion(audio_locale, guid))
Case "audio_locale"
audio_locale = VideoSubItem.Value.ToString
Case "guid"
guid = VideoSubItem.Value.ToString
'Debug.WriteLine(guid)
End Select
Next
If audio_locale = Nothing Or guid = Nothing Then
Else
DubsAvalible.Add(New CR_MediaVersion(audio_locale, guid))
End If
Next Next
End Select End Select
Next ' Next '
@ -1145,13 +1133,18 @@ Public Class Main
#Region "m3u8 suche" #Region "m3u8 suche"
#Region "Check for dub override" #Region "Check for dub override"
If My.Settings.OverrideDub = True And CR_audio_locale = DubSprache.CR_Value = False Then 'einstellung ein + kein musikvideo oder Konzert If My.Settings.OverrideDub = True And CR_audio_locale = DubSprache.CR_Value = False Then 'einstellung ein + kein musikvideo oder Konzert
'MsgBox("Trigger on!") 'MsgBox("Trigger on!")
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
page_guid = DubsAvalible(i).guid Dim ind As Integer = i
page_guid = DubsAvalible(ind).guid
Me.Invoke(New Action(Function() As Object
SetStatusLabel("Status: switch " + CR_audio_locale + "to " + DubsAvalible(ind).AudioLang)
Return Nothing
End Function))
End If End If
Next Next