Mirrors/Crunchyroll-Downloader-v3.0
2
0
Fork 0
mirror of https://github.com/hama3254/Crunchyroll-Downloader-v3.0.git synced 2025-02-03 18:52:34 +01:00
Code Issues Packages Projects Releases Wiki Activity

apply error handling to audio only or merged audio

Browse Source 
apply error handling to audio only or merged audio #861
This commit is contained in:
hama3254 2024-01-01 17:27:14 +01:00
parent cb9957daf9
commit e2444a26b4
3 changed files with 57 additions and 55 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.

16
Crunchyroll Downloader/Main.vb
View File

@ -1156,6 +1156,8 @@ Public Class Main
#Region "Check for dub override"
Try
Dim OverrideDubJObject As JObject = JObject.Parse(VideoJson)
Dim OverrideDubData As List(Of JToken) = OverrideDubJObject.Children().ToList
@ -1214,6 +1216,9 @@ Public Class Main
End If
Catch ex As Exception
End Try
' MsgBox("Trigger off!")
@ -1296,7 +1301,9 @@ Public Class Main
If CR_Streams.Item(i).subLang = CR_HardSubLang Then
CR_URI_Master.Add(CR_Streams.Item(i).Url)
'MsgBox(CR_Streams.Item(i).Format + CR_Streams.Item(i).Url)
ElseIf CR_Streams.Item(i).subLang = "" And CR_audio_locale IsNot "ja-JP" And DubMode = True Then 'nothing/raw
ElseIf CR_Streams.Item(i).subLang = "" And CR_audio_locale IsNot "ja-JP" And DubMode = True Then 'nothing/raw ohne subs
RawStream.Add(CR_Streams.Item(i).Url)
ElseIf CR_Streams.Item(i).subLang = "null" And CR_audio_locale IsNot "ja-JP" And DubMode = True Then 'nothing/raw mit 'null' tagged
RawStream.Add(CR_Streams.Item(i).Url)
End If
Next
@ -1697,13 +1704,8 @@ Public Class Main
Grapp_RDY = True
Exit Sub
ElseIf DownloadScope = DownloadScopeEnum.AudioOnly Or MergeAudio = True Then
If CBool(InStr(str, My.Settings.AudioOnlyReso)) Then
ElseIf (DownloadScope = DownloadScopeEnum.AudioOnly Or MergeAudio = True) AndAlso CBool(InStr(str, My.Settings.AudioOnlyReso)) = True Then
ResoUsed = My.Settings.AudioOnlyReso.Replace(",", "")
ElseIf CBool(InStr(str, "x" + Reso.ToString + ",")) Then
ResoUsed = "x" + Reso.ToString
End If
ElseIf CBool(InStr(str, "x" + Reso.ToString + ",")) Then
ResoUsed = "x" + Reso.ToString

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.16.1")>
<Assembly: AssemblyFileVersion("3.16.1")>
<Assembly: AssemblyVersion("3.16.2")>
<Assembly: AssemblyFileVersion("3.16.2")>
<Assembly: NeutralResourcesLanguage("en")>