Funimation LA support

Funimation dub selection added
funimation subtile handling rewritten
added sub option for Mexico/Brazil (Spanish and Portuguese)
This commit is contained in:
hama3254 2020-11-19 22:28:42 +01:00
parent df4d2e95ae
commit 754f38daef
22 changed files with 693 additions and 378 deletions

Binary file not shown.

View File

@ -218,6 +218,19 @@ Public Class Anime_Add
If groupBox1.Visible = True Then
Try
If CBool(InStr(textBox1.Text, "crunchyroll.com")) Or CBool(InStr(textBox1.Text, "funimation.com")) Then 'Or CBool(InStr(textBox1.Text, "anime-on-demand.de")) Then
If InStr(textBox1.Text, "funimation.com") Then
If InStr(textBox1.Text, "lang=") Then
Else
If InStr(textBox1.Text, "?") Then
textBox1.AppendText("&lang=" + Main.DubFunimation)
Else
textBox1.AppendText("?lang=" + Main.DubFunimation)
End If
End If
End If
If StatusLabel.Text = "Status: waiting for episode selection" Then
If MessageBox.Show("Are you sure you want cancel the advanced download?", "confirm?", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
StatusLabel.Text = "Status: idle"
@ -338,7 +351,7 @@ Public Class Anime_Add
Dim OmUStreams() As String = m3u8Strings.Split(New String() {My.Resources.AoD_files}, System.StringSplitOptions.RemoveEmptyEntries)
For i As Integer = 1 To OmUStreams.Count - 1
AoD_OmuList.Add(OmUStreams(i))
AoD_OmUList.Add(OmUStreams(i))
Next
End If
@ -453,7 +466,7 @@ Public Class Anime_Add
MsgBox("Error nothing selected!", MsgBoxStyle.Exclamation)
Exit Sub
ElseIf comboBox3.SelectedIndex < 0 Or comboBox4.SelectedIndex < 0 Then
MsgBox("deteced!", MsgBoxStyle.Exclamation)
'MsgBox("deteced!", MsgBoxStyle.Exclamation)
If comboBox3.SelectedIndex < 0 Then
'MsgBox("deteced! 3", MsgBoxStyle.Exclamation)
Dim CB4 As Integer = comboBox4.SelectedIndex
@ -858,10 +871,7 @@ Public Class Anime_Add
Dim client As New WebClient
client.Encoding = System.Text.Encoding.UTF8
Dim text As String = client.DownloadString(m3u8_Master_url)
'Me.Invoke(New Action(Function()
' MsgBox(text)
' Return Nothing
' End Function))
If InStr(text, "RESOLUTION=") Then 'master m3u8 no fragments
Dim new_m3u8() As String = text.Split(New String() {vbLf}, System.StringSplitOptions.RemoveEmptyEntries)
@ -870,13 +880,28 @@ Public Class Anime_Add
End If
For i2 As Integer = 0 To new_m3u8.Count - 1
'MsgBox("x" + Main.Resu.ToString)
If CBool(InStr(new_m3u8(i2), "x" + TargetReso.ToString)) = True Then
m3u8_list.Add(new_m3u8(i2) + vbCrLf + new_m3u8(i2 + 1))
'm3u8_url_Temp = new_m3u8(i2 + 1)
'Exit For
ElseIf CBool(InStr(new_m3u8(i2), "x1081")) = True Then
If AoD_1080pPlus = True Then
'Me.Invoke(New Action(Function()
' MsgBox(new_m3u8(i2 + 1))
' Return Nothing
' End Function))
m3u8_list.Add(new_m3u8(i2) + vbCrLf + new_m3u8(i2 + 1))
End If
End If
Next
'Me.Invoke(New Action(Function()
' MsgBox(m3u8_list.Count.ToString)
' Return Nothing
' End Function))
If m3u8_list.Count > 1 Then
Dim HigestBitrate As Integer = 0
For i2 As Integer = 0 To m3u8_list.Count - 1
@ -899,6 +924,24 @@ Public Class Anime_Add
HigestBitrate = CInt(BitRate2(0))
End If
End If
ElseIf CBool(InStr(m3u8_list.Item(i2), "BANDWIDTH=")) = True Then
Dim BitRate() As String = m3u8_list.Item(i2).Split(New String() {"BANDWIDTH="}, System.StringSplitOptions.RemoveEmptyEntries)
Dim BitRate2() As String = BitRate(1).Split(New String() {","}, System.StringSplitOptions.RemoveEmptyEntries)
If AoD_1080pPlus = True Then
If CInt(BitRate2(0)) > HigestBitrate Then
HigestBitrate = CInt(BitRate2(0))
End If
Else
'Me.Invoke(New Action(Function()
' MsgBox(HigestBitrate.ToString + vbNewLine + BitRate2(0))
' Return Nothing
' End Function))
If HigestBitrate > CInt(BitRate2(0)) Then
HigestBitrate = CInt(BitRate2(0))
ElseIf HigestBitrate = 0 Then
HigestBitrate = CInt(BitRate2(0))
End If
End If
End If
Next

View File

@ -82,7 +82,10 @@ Public Class Main
Public WebbrowserCookie As String = Nothing
Public UserBowser As Boolean = False
Public HybridMode As Boolean = False
Public HardSubFunimation As Boolean = False
Public HardSubFunimation As String = "Disabled"
Public DubFunimation As String = "Disabled"
Public SubFunimationString As String = "en"
Public SubFunimation As New List(Of String)
#Region "Sprachen Vairablen"
Public URL_Invaild As String = "something is wrong here..."
Public SubFolder_automatic As String = "[automatic : Series/Season]"
@ -353,6 +356,30 @@ Public Class Main
Catch ex As Exception
End Try
'Try
' Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader")
' SubFunimation = rkg.GetValue("Fun_Sub").ToString
'Catch ex As Exception
'End Try
Try
Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader")
SubFunimationString = rkg.GetValue("Fun_Sub").ToString
If SubFunimationString = "none" Then
Else
Dim SoftSubsStringSplit() As String = SubFunimationString.Split(New String() {","}, System.StringSplitOptions.RemoveEmptyEntries)
For i As Integer = 0 To SoftSubsStringSplit.Count - 1
SubFunimation.Add(SoftSubsStringSplit(i))
Next
End If
Catch ex As Exception
If SubFunimation.Count = 0 Then
SubFunimation.Add("en")
End If
End Try
Try
Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader")
SubFolder = Integer.Parse(rkg.GetValue("SubFolder").ToString)
@ -389,7 +416,13 @@ Public Class Main
End Try
Try
Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader")
HardSubFunimation = CBool(Integer.Parse(rkg.GetValue("FunimationHardsub").ToString))
HardSubFunimation = rkg.GetValue("FunimationHardsub").ToString
Catch ex As Exception
End Try
Try
Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader")
DubFunimation = rkg.GetValue("FunimationDub").ToString
Catch ex As Exception
End Try
@ -1202,6 +1235,8 @@ Public Class Main
Return "Italiano (Italian)"
ElseIf HardSub = Chr(34) + "esES" + Chr(34) Then
Return "Español (España)"
ElseIf HardSub = Chr(34) + "jaJP" + Chr(34) Then
Return "Japanese"
Else
Return CB_SuB_Nothing
End If
@ -1216,11 +1251,11 @@ Public Class Main
Try
If HardSub = "deDE" Then
Return "ger"
ElseIf HardSub = "enUS" Then
ElseIf HardSub = "enUS" Or HardSub = "en" Then
Return "eng"
ElseIf HardSub = "ptBR" Then
ElseIf HardSub = "ptBR" Or HardSub = "pt" Then
Return "por"
ElseIf HardSub = "esLA" Then
ElseIf HardSub = "esLA" Or HardSub = "es" Then
Return "spa"
ElseIf HardSub = "frFR" Then
Return "fre"
@ -2366,6 +2401,8 @@ Public Class Main
Dim ResoHTMLDisplay As String = Reso.ToString + "p"
#Region "Subs"
Dim SubsClient As New WebClient
SubsClient.Encoding = Encoding.UTF8
If WebbrowserCookie = Nothing Then
@ -2373,160 +2410,201 @@ Public Class Main
SubsClient.Headers.Add(HttpRequestHeader.Cookie, WebbrowserCookie)
End If
Dim PlayerPage As String = SubsClient.DownloadString("https://www.funimation.com/player/" + Player_ID2(0) + "/?bdub=0&qid=")
Dim SplittString As String = Nothing
If InStr(PlayerPage, My.Resources.Funimation_Subtitle_String) Then
SplittString = My.Resources.Funimation_Subtitle_String
ElseIf InStr(PlayerPage, My.Resources.Funimation_Subtitle_String2) Then
SplittString = My.Resources.Funimation_Subtitle_String2
End If
Dim UsedSub As String = Nothing
If SplittString = Nothing Then
If InStr(PlayerPage, ".srt") Then
Dim SubTitle() As String = PlayerPage.Split(New String() {".srt"}, System.StringSplitOptions.RemoveEmptyEntries)
Dim SubTitle2() As String = SubTitle(0).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
UsedSub = SubTitle2(SubTitle2.Count - 1) + ".srt"
ElseIf InStr(PlayerPage, ".vtt") Then
Dim SubTitle() As String = PlayerPage.Split(New String() {".vtt"}, System.StringSplitOptions.RemoveEmptyEntries)
Dim SubTitle2() As String = SubTitle(0).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
UsedSub = SubTitle2(SubTitle2.Count - 1) + ".vtt"
ElseIf InStr(PlayerPage, ".dfxp") Then
Dim SubTitle() As String = PlayerPage.Split(New String() {".dfxp"}, System.StringSplitOptions.RemoveEmptyEntries)
Dim SubTitle2() As String = SubTitle(0).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
UsedSub = SubTitle2(SubTitle2.Count - 1) + ".dfxp"
Else
If MessageBox.Show("No Subtitle found in the website, a logfile was created." + vbNewLine + "Press 'Yes' to download the video without subtitle", "No Subtitle", MessageBoxButtons.YesNo) = DialogResult.Yes Then
File.WriteAllText(DownloadPfad.Replace(".mp4", "-no subtitle.log"), PlayerPage, Encoding.UTF8)
Else
File.WriteAllText(DownloadPfad.Replace(".mp4", "-no subtitle.log"), PlayerPage, Encoding.UTF8)
Exit Sub
End If
'MsgBox("No Subtitle found In the website, a logfile was created.", MsgBoxStyle.OkCancel, "No Subtitle")
End If
Else
Dim SubTitle1() As String = PlayerPage.Split(New String() {SplittString}, System.StringSplitOptions.RemoveEmptyEntries)
Dim Subs_in_srt As New List(Of String)
Dim Subs_in_vtt As New List(Of String)
Dim Subs_in_dfxp As New List(Of String)
For i As Integer = 0 To SubTitle1.Count - 1
Dim SubTitle2() As String = SubTitle1(0).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
Dim SoftSubs2 As New List(Of String)
If InStr(SubTitle2(SubTitle2.Count - 1), ".srt") Then
Subs_in_srt.Add(SubTitle2(SubTitle2.Count - 1))
ElseIf InStr(SubTitle2(SubTitle2.Count - 1), ".vtt") Then
Subs_in_vtt.Add(SubTitle2(SubTitle2.Count - 1))
ElseIf InStr(SubTitle2(SubTitle2.Count - 1), ".dfxp") Then
Subs_in_dfxp.Add(SubTitle2(SubTitle2.Count - 1))
If SubFunimation.Count > 0 Then
For i As Integer = 0 To SubFunimation.Count - 1
If InStr(PlayerPage, My.Resources.Funimation_Subtitle_String + SubFunimation(i)) Then
SoftSubs2.Add(My.Resources.Funimation_Subtitle_String + SubFunimation(i))
Continue For
ElseIf InStr(PlayerPage, My.Resources.Funimation_Subtitle_String2 + SubFunimation(i)) Then
SoftSubs2.Add(My.Resources.Funimation_Subtitle_String2 + SubFunimation(i))
End If
Next
If SoftSubs2.Count = 0 Then
Me.Invoke(New Action(Function()
Me.Text = "No Subtitles found..."
Me.Invalidate()
Return Nothing
End Function))
File.WriteAllText(DownloadPfad.Replace(".mp4", "-subtitle_error.log"), PlayerPage, Encoding.UTF8)
If Subs_in_srt.Count > 0 Then
UsedSub = Subs_in_srt.Item(0)
ElseIf Subs_in_vtt.Count > 0 Then
UsedSub = Subs_in_vtt.Item(0)
ElseIf Subs_in_dfxp.Count > 0 Then
UsedSub = Subs_in_dfxp.Item(0)
End If
End If
If UsedSub = Nothing Then
ElseIf MergeSubstoMP4 = True Then
If HardSubFunimation = True Then
Dim SubText As String = client0.DownloadString(UsedSub)
Dim SubtitelFormat As String = ".srt"
If InStr(UsedSub, ".vtt") Then
SubtitelFormat = ".vtt"
ElseIf InStr(UsedSub, ".dfxp") Then
SubtitelFormat = ".dfxp"
End If
UsedSub = einstellungen.GeräteID() + SubtitelFormat
File.WriteAllText(Application.StartupPath + "\" + UsedSub, SubText, Encoding.UTF8)
End If
Else
If HardSubFunimation = True Then
Dim SubText As String = client0.DownloadString(UsedSub)
Dim SubtitelFormat As String = ".srt"
If InStr(UsedSub, ".vtt") Then
SubtitelFormat = ".vtt"
ElseIf InStr(UsedSub, ".dfxp") Then
SubtitelFormat = ".dfxp"
End If
UsedSub = einstellungen.GeräteID() + SubtitelFormat
File.WriteAllText(Application.StartupPath + "\" + UsedSub, SubText, Encoding.UTF8)
Else
Dim str2 As String = client0.DownloadString(UsedSub)
Dim SubtitelFormat As String = ".srt"
If InStr(UsedSub, ".vtt") Then
SubtitelFormat = ".vtt"
ElseIf InStr(UsedSub, ".dfxp") Then
SubtitelFormat = ".dfxp"
End If
Dim Pfad3 As String = DownloadPfad.Replace(Chr(34), "")
Dim Pfad4 As String = Pfad3.Replace(".mp4", SubtitelFormat)
File.WriteAllText(Pfad4, str2, Encoding.UTF8)
End If
End If
' End If
#End Region
#Region "SubsToMP4"
If UsedSub = Nothing Then
If FunimationDub = "japanese" Then
Dim DubMetatata As String = " -metadata:s:a:0 language=jpn"
Funimation_m3u8_final = "-i " + Chr(34) + Funimation_m3u8_final + Chr(34) + DubMetatata + " " + ffmpeg_command
Else
Dim DubMetatata As String = " -metadata:s:a:0 language=eng"
Funimation_m3u8_final = "-i " + Chr(34) + Funimation_m3u8_final + Chr(34) + DubMetatata + " " + ffmpeg_command
End If
ElseIf HardSubFunimation = True Then
Dim HardSubFound As Boolean = False
Dim HardSubSplittString As String = Nothing
Dim UsedSub As String = Nothing
Dim UsedSubs As New List(Of String)
Dim ffmpeg_hardsub As String = Nothing
If InStr(PlayerPage, My.Resources.Funimation_Subtitle_String + HardSubFunimation) Then
HardSubFound = True
HardSubSplittString = My.Resources.Funimation_Subtitle_String + HardSubFunimation
ElseIf InStr(PlayerPage, My.Resources.Funimation_Subtitle_String2 + HardSubFunimation) Then
HardSubFound = True
HardSubSplittString = My.Resources.Funimation_Subtitle_String2 + HardSubFunimation
End If
If HardSubFound = True Then 'anyways not true if hardsub is "Disabled"
If InStr(ffmpeg_command, "-c copy") Then
ffmpeg_hardsub = "-bsf:a aac_adtstoasc"
Else
ffmpeg_hardsub = ffmpeg_command
End If
If UsedSub = Nothing Then
Dim HardSubTitle() As String = PlayerPage.Split(New String() {HardSubSplittString}, System.StringSplitOptions.RemoveEmptyEntries)
Dim HardSubTitle2() As String = HardSubTitle(0).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
UsedSub = HardSubTitle2(0)
Dim SubText As String = client0.DownloadString(UsedSub)
Dim SubtitelFormat As String = ".srt"
If InStr(UsedSub, ".vtt") Then
SubtitelFormat = ".vtt"
ElseIf InStr(UsedSub, ".dfxp") Then
SubtitelFormat = ".dfxp"
End If
UsedSub = einstellungen.GeräteID() + SubtitelFormat
File.WriteAllText(Application.StartupPath + "\" + UsedSub, SubText, Encoding.UTF8)
ElseIf SoftSubs2.Count > 0 Then
For i As Integer = 0 To SoftSubs2.Count - 1
Dim SubTitle() As String = PlayerPage.Split(New String() {SoftSubs2.Item(i)}, System.StringSplitOptions.RemoveEmptyEntries)
Dim FoundCount As Integer = 0
For ii As Integer = 0 To SubTitle.Count - 1
Dim SubTitle2() As String = SubTitle(ii).Split(New String() {My.Resources.Funimation_subs_src}, System.StringSplitOptions.RemoveEmptyEntries)
For iii As Integer = 0 To SubTitle2.Count - 1
If InStr(SubTitle2(iii), ".srt" + Chr(34)) Then
ElseIf InStr(SubTitle2(iii), ".vtt" + Chr(34)) Then
ElseIf InStr(SubTitle2(iii), ".dfxp" + Chr(34)) Then
ElseIf InStr(SubTitle2(iii), ".srt") Then
If Subs_in_srt.Contains(SubTitle2(iii)) Then
Else
If FunimationDub = "japanese" Then
Dim DubMetatata As String = " -metadata:s:a:0 language=jpn"
Funimation_m3u8_final = "-i " + Chr(34) + Funimation_m3u8_final + Chr(34) + " -vf subtitles=" + Chr(34) + UsedSub + Chr(34) + " " + ffmpeg_hardsub
Subs_in_srt.Add(SubTitle2(iii))
End If
ElseIf InStr(SubTitle2(iii), ".vtt") Then
If Subs_in_vtt.Contains(SubTitle2(iii)) Then
Else
Dim DubMetatata As String = " -metadata:s:a:0 language=eng"
Funimation_m3u8_final = "-i " + Chr(34) + Funimation_m3u8_final + Chr(34) + " -vf subtitles=" + Chr(34) + UsedSub + Chr(34) + " " + ffmpeg_hardsub
Subs_in_vtt.Add(SubTitle2(iii))
End If
ElseIf InStr(SubTitle2(iii), ".dfxp") Then
If Subs_in_dfxp.Contains(SubTitle2(iii)) Then
Else
Subs_in_dfxp.Add(SubTitle2(iii))
End If
End If
Next
Next
If Subs_in_srt.Count > 0 Then
UsedSubs.Add(Subs_in_srt.Item(0) + " , " + SoftSubs2.Item(i).Replace(My.Resources.Funimation_Subtitle_String, "").Replace(My.Resources.Funimation_Subtitle_String2, ""))
ElseIf Subs_in_vtt.Count > 0 Then
UsedSubs.Add(Subs_in_vtt.Item(0) + " , " + SoftSubs2.Item(i).Replace(My.Resources.Funimation_Subtitle_String, "").Replace(My.Resources.Funimation_Subtitle_String2, ""))
ElseIf Subs_in_dfxp.Count > 0 Then
UsedSubs.Add(Subs_in_dfxp.Item(0) + " , " + SoftSubs2.Item(i).Replace(My.Resources.Funimation_Subtitle_String, "").Replace(My.Resources.Funimation_Subtitle_String2, ""))
End If
Subs_in_srt.Clear()
Subs_in_vtt.Clear()
Subs_in_dfxp.Clear()
Next
End If
'
Dim SoftSubMergeURLs As String = Nothing
Dim SoftSubMergeMaps As String = " -map 0:v -map 0:a"
Dim SoftSubMergeMetatata As String = Nothing
If UsedSubs.Count > 0 Then
If MergeSubstoMP4 = True Then
For i As Integer = 0 To UsedSubs.Count - 1
Dim SoftSub As String() = UsedSubs.Item(i).Split(New String() {" , "}, System.StringSplitOptions.RemoveEmptyEntries)
If SoftSubMergeURLs = Nothing Then
SoftSubMergeURLs = " -i " + Chr(34) + SoftSub(0) + Chr(34)
Else
SoftSubMergeURLs = SoftSubMergeURLs + " -i " + Chr(34) + SoftSub(0) + Chr(34)
End If
SoftSubMergeMaps = SoftSubMergeMaps + " -map " + (i + 1).ToString
If SoftSubMergeMetatata = Nothing Then
SoftSubMergeMetatata = " -metadata:s:s:" + i.ToString + " language=" + CCtoMP4CC(SoftSub(1))
Else
SoftSubMergeMetatata = SoftSubMergeMetatata + " -metadata:s:s:" + i.ToString + " language=" + CCtoMP4CC(SoftSubs2(i))
End If
Next
Else
For i As Integer = 0 To UsedSubs.Count - 1
LabelUpdate = "Status: downloading subtitle file"
LabelEpisode = SoftSubs2(i)
Dim SoftSub As String() = UsedSubs.Item(i).Split(New String() {" , "}, System.StringSplitOptions.RemoveEmptyEntries)
Dim SoftSub_3 As String = SoftSub(0).Replace("\/", "/")
Dim Subfile As String = SubsClient.DownloadString(SoftSub_3)
Dim Pfad3 As String = DownloadPfad.Replace(Chr(34), "")
'MsgBox(FN)
Dim SubtitelFormat As String = "srt"
If InStr(SoftSub_3, ".vtt") Then
SubtitelFormat = "vtt"
ElseIf InStr(SoftSub_3, ".dfxp") Then
SubtitelFormat = "dfxp"
End If
Dim FN As String = Path.ChangeExtension(Path.Combine(Path.GetFileNameWithoutExtension(Pfad3) + " " + SoftSub(1) + Path.GetExtension(Pfad3)), SubtitelFormat)
If i = 0 Then
FN = Path.ChangeExtension(Path.GetFileName(Pfad3), SubtitelFormat)
'MsgBox(FN)
End If
Dim Pfad4 As String = Path.Combine(Path.GetDirectoryName(Pfad3), FN)
'MsgBox(Pfad4)
File.WriteAllText(Pfad4, str0, Encoding.UTF8)
Pause(1)
Next
End If
End If
'MsgBox(Funimation_m3u8_final)
ElseIf MergeSubstoMP4 = True Then
If UsedSub = Nothing Then
Else
Dim DubMetatata As String = " -metadata:s:a:0 language=jpn"
#End Region
#Region "ffmpeg command"
Dim DubMetatata As String = Nothing
If FunimationDub = "japanese" Then
DubMetatata = " -metadata:s:a:0 language=jpn"
'Funimation_m3u8_final = "-i " + Chr(34) + Funimation_m3u8_final + Chr(34) + DubMetatata + " " + ffmpeg_command
Else
ElseIf FunimationDub = "portuguese-brazil" Then
DubMetatata = " -metadata:s:a:0 language=por"
ElseIf FunimationDub = "spanish-latin-am" Then
DubMetatata = " -metadata:s:a:0 language=spa"
Else '
DubMetatata = " -metadata:s:a:0 language=eng"
'Funimation_m3u8_final = "-i " + Chr(34) + Funimation_m3u8_final + Chr(34) + DubMetatata + " " + ffmpeg_command
End If
Dim SoftSubMergeURLs As String = " -headers " + My.Resources.ffmpeg_user_agend + " -i " + Chr(34) + UsedSub + Chr(34)
Dim SoftSubMergeMaps As String = " -map 0:v -map 0:a -map 1"
Dim SoftSubMergeMetatata As String = " -metadata:s:s:0 language=eng"
If HardSubFound = True Then
Funimation_m3u8_final = "-i " + Chr(34) + Funimation_m3u8_final + Chr(34) + " -vf subtitles=" + Chr(34) + UsedSub + Chr(34) + " " + ffmpeg_hardsub
ElseIf MergeSubstoMP4 = True Then
Funimation_m3u8_final = "-i " + Chr(34) + Funimation_m3u8_final + Chr(34) + SoftSubMergeURLs + SoftSubMergeMaps + " " + ffmpeg_command + " -c:s mov_text" + SoftSubMergeMetatata + DubMetatata
End If
Else
If FunimationDub = "japanese" Then
Dim DubMetatata As String = " -metadata:s:a:0 language=jpn"
Funimation_m3u8_final = "-i " + Chr(34) + Funimation_m3u8_final + Chr(34) + DubMetatata + " " + ffmpeg_command
Else
Dim DubMetatata As String = " -metadata:s:a:0 language=eng"
Funimation_m3u8_final = "-i " + Chr(34) + Funimation_m3u8_final + Chr(34) + DubMetatata + " " + ffmpeg_command
End If
End If
#End Region
'MsgBox(Funimation_m3u8_final)
'DownloadPfad = DownloadPfad.Replace(" \", "\")

View File

@ -391,7 +391,16 @@ Namespace My.Resources
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die &quot;, &quot;kind&quot;: &quot;subtitle&quot;, &quot;type&quot;: &quot;CC&quot;, &quot;language&quot;: &quot;en&quot; ähnelt.
''' Sucht eine lokalisierte Zeichenfolge, die {&quot;src&quot;: &quot; ähnelt.
'''</summary>
Friend ReadOnly Property Funimation_subs_src() As String
Get
Return ResourceManager.GetString("Funimation_subs_src", resourceCulture)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die &quot;, &quot;kind&quot;: &quot;subtitle&quot;, &quot;type&quot;: &quot;CC&quot;, &quot;language&quot;: &quot; ähnelt.
'''</summary>
Friend ReadOnly Property Funimation_Subtitle_String() As String
Get
@ -400,7 +409,7 @@ Namespace My.Resources
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die &quot;, &quot;kind&quot;: &quot;subtitle&quot;, &quot;type&quot;: &quot;Full&quot;, &quot;language&quot;: &quot;en&quot; ähnelt.
''' Sucht eine lokalisierte Zeichenfolge, die &quot;, &quot;kind&quot;: &quot;subtitle&quot;, &quot;type&quot;: &quot;Full&quot;, &quot;language&quot;: &quot; ähnelt.
'''</summary>
Friend ReadOnly Property Funimation_Subtitle_String2() As String
Get

View File

@ -161,7 +161,7 @@
<value>..\Resources\credits-background.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Funimation_Subtitle_String2" xml:space="preserve">
<value>", "kind": "subtitle", "type": "Full", "language": "en"</value>
<value>", "kind": "subtitle", "type": "Full", "language": "</value>
</data>
<data name="htmlTitlel" xml:space="preserve">
<value>&lt;a class="main_titel"&gt;Placeholder&lt;/a&gt;
@ -247,7 +247,7 @@
<value>"image":"</value>
</data>
<data name="Funimation_Subtitle_String" xml:space="preserve">
<value>", "kind": "subtitle", "type": "CC", "language": "en"</value>
<value>", "kind": "subtitle", "type": "CC", "language": "</value>
</data>
<data name="htmlEnd" xml:space="preserve">
<value>&lt;script&gt;
@ -517,4 +517,7 @@ Dialogue: 0,0:00:00.00,0:00:00.00,Default,,0000,0000,0000,,some ideas on how tem
<data name="main_setting_invert" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\main-setting_invert.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Funimation_subs_src" xml:space="preserve">
<value>{"src": "</value>
</data>
</root>

View File

@ -205,14 +205,19 @@ Video Position: 0
Sucht eine lokalisierte Zeichenfolge, die &quot;src&quot;: ähnelt.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.Funimation_subs_src">
<summary>
Sucht eine lokalisierte Zeichenfolge, die {&quot;src&quot;: &quot; ähnelt.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.Funimation_Subtitle_String">
<summary>
Sucht eine lokalisierte Zeichenfolge, die &quot;, &quot;kind&quot;: &quot;subtitle&quot;, &quot;type&quot;: &quot;CC&quot;, &quot;language&quot;: &quot;en&quot; ähnelt.
Sucht eine lokalisierte Zeichenfolge, die &quot;, &quot;kind&quot;: &quot;subtitle&quot;, &quot;type&quot;: &quot;CC&quot;, &quot;language&quot;: &quot; ähnelt.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.Funimation_Subtitle_String2">
<summary>
Sucht eine lokalisierte Zeichenfolge, die &quot;, &quot;kind&quot;: &quot;subtitle&quot;, &quot;type&quot;: &quot;Full&quot;, &quot;language&quot;: &quot;en&quot; ähnelt.
Sucht eine lokalisierte Zeichenfolge, die &quot;, &quot;kind&quot;: &quot;subtitle&quot;, &quot;type&quot;: &quot;Full&quot;, &quot;language&quot;: &quot; ähnelt.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.Funimation_thumbnail">

View File

@ -27,7 +27,7 @@
.liClass{margin-bottom:8px}
</style>
<body id="bodypage" class="main-bg" >
<a class="main_titel">Test</a>
<a class="main_titel">Crunchyroll Downloader</a>
<img alt="image error" src="balken.png" class="class-balken">
<script>

View File

@ -106,8 +106,11 @@ Partial Class einstellungen
Me.TabControl1 = New MetroFramework.Controls.MetroTabControl()
Me.TabPage6 = New MetroFramework.Controls.MetroTabPage()
Me.GroupBox7 = New System.Windows.Forms.GroupBox()
Me.FunimationHardsub = New System.Windows.Forms.CheckBox()
Me.CheckBox10 = New System.Windows.Forms.CheckBox()
Me.CB_Fun_HardSubs = New System.Windows.Forms.ComboBox()
Me.GroupBox9 = New System.Windows.Forms.GroupBox()
Me.CB_fun_eng = New System.Windows.Forms.CheckBox()
Me.CB_fun_es = New System.Windows.Forms.CheckBox()
Me.CB_fun_ptbr = New System.Windows.Forms.CheckBox()
Me.TabPage8 = New System.Windows.Forms.TabPage()
Me.GroupBox8 = New System.Windows.Forms.GroupBox()
Me.AoD_0p = New System.Windows.Forms.RadioButton()
@ -125,6 +128,8 @@ Partial Class einstellungen
Me.Label5 = New System.Windows.Forms.Label()
Me.MetroStyleManager1 = New MetroFramework.Components.MetroStyleManager(Me.components)
Me.MetroStyleExtender1 = New MetroFramework.Components.MetroStyleExtender(Me.components)
Me.GroupBox10 = New System.Windows.Forms.GroupBox()
Me.Fun_Dub_Over = New System.Windows.Forms.ComboBox()
CType(Me.pictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.pictureBox4, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabPage4.SuspendLayout()
@ -155,12 +160,14 @@ Partial Class einstellungen
Me.TabControl1.SuspendLayout()
Me.TabPage6.SuspendLayout()
Me.GroupBox7.SuspendLayout()
Me.GroupBox9.SuspendLayout()
Me.TabPage8.SuspendLayout()
Me.GroupBox8.SuspendLayout()
Me.TabPage7.SuspendLayout()
CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel2.SuspendLayout()
CType(Me.MetroStyleManager1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox10.SuspendLayout()
Me.SuspendLayout()
'
'ToolTip1
@ -639,9 +646,9 @@ Partial Class einstellungen
Me.MergeMP4.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.MergeMP4.Location = New System.Drawing.Point(205, 21)
Me.MergeMP4.Name = "MergeMP4"
Me.MergeMP4.Size = New System.Drawing.Size(194, 20)
Me.MergeMP4.Size = New System.Drawing.Size(205, 20)
Me.MergeMP4.TabIndex = 42
Me.MergeMP4.Text = "Merge softubs with video file"
Me.MergeMP4.Text = "Merge soft-subs with video file"
Me.MergeMP4.UseVisualStyleBackColor = True
'
'GB_Sub_Path
@ -1081,7 +1088,7 @@ Partial Class einstellungen
Me.TabControl1.FontWeight = MetroFramework.MetroTabControlWeight.Regular
Me.TabControl1.Location = New System.Drawing.Point(22, 45)
Me.TabControl1.Name = "TabControl1"
Me.TabControl1.SelectedIndex = 2
Me.TabControl1.SelectedIndex = 3
Me.TabControl1.Size = New System.Drawing.Size(501, 500)
Me.TabControl1.TabIndex = 38
Me.TabControl1.UseSelectable = True
@ -1089,7 +1096,9 @@ Partial Class einstellungen
'TabPage6
'
Me.TabPage6.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(243, Byte), Integer), CType(CType(243, Byte), Integer))
Me.TabPage6.Controls.Add(Me.GroupBox10)
Me.TabPage6.Controls.Add(Me.GroupBox7)
Me.TabPage6.Controls.Add(Me.GroupBox9)
Me.TabPage6.HorizontalScrollbarBarColor = True
Me.TabPage6.HorizontalScrollbarHighlightOnWheel = False
Me.TabPage6.HorizontalScrollbarSize = 10
@ -1107,42 +1116,81 @@ Partial Class einstellungen
'GroupBox7
'
Me.GroupBox7.BackColor = System.Drawing.Color.Transparent
Me.GroupBox7.Controls.Add(Me.FunimationHardsub)
Me.GroupBox7.Controls.Add(Me.CheckBox10)
Me.GroupBox7.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox7.Location = New System.Drawing.Point(6, 6)
Me.GroupBox7.Controls.Add(Me.CB_Fun_HardSubs)
Me.GroupBox7.Font = New System.Drawing.Font("Arial", 9.75!)
Me.GroupBox7.ForeColor = System.Drawing.Color.Black
Me.GroupBox7.Location = New System.Drawing.Point(3, 6)
Me.GroupBox7.Name = "GroupBox7"
Me.GroupBox7.Size = New System.Drawing.Size(481, 90)
Me.GroupBox7.TabIndex = 52
Me.GroupBox7.Size = New System.Drawing.Size(478, 69)
Me.GroupBox7.TabIndex = 54
Me.GroupBox7.TabStop = False
Me.GroupBox7.Text = "Subtitle"
Me.GroupBox7.Text = "Hard Subtitle (post-processed)"
'
'FunimationHardsub
'CB_Fun_HardSubs
'
Me.FunimationHardsub.AutoSize = True
Me.FunimationHardsub.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.FunimationHardsub.ForeColor = System.Drawing.Color.Black
Me.FunimationHardsub.Location = New System.Drawing.Point(217, 36)
Me.FunimationHardsub.Name = "FunimationHardsub"
Me.FunimationHardsub.Size = New System.Drawing.Size(145, 20)
Me.FunimationHardsub.TabIndex = 43
Me.FunimationHardsub.Text = "Hardsub Output File"
Me.FunimationHardsub.UseVisualStyleBackColor = True
Me.CB_Fun_HardSubs.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
Me.CB_Fun_HardSubs.DropDownHeight = 250
Me.CB_Fun_HardSubs.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.CB_Fun_HardSubs.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.CB_Fun_HardSubs.FormattingEnabled = True
Me.CB_Fun_HardSubs.IntegralHeight = False
Me.CB_Fun_HardSubs.ItemHeight = 16
Me.CB_Fun_HardSubs.Items.AddRange(New Object() {"Disabled", "English", "Español (LA)", "Português (Brasil)"})
Me.CB_Fun_HardSubs.Location = New System.Drawing.Point(69, 30)
Me.CB_Fun_HardSubs.Name = "CB_Fun_HardSubs"
Me.CB_Fun_HardSubs.Size = New System.Drawing.Size(326, 22)
Me.CB_Fun_HardSubs.Sorted = True
Me.CB_Fun_HardSubs.TabIndex = 33
'
'CheckBox10
'GroupBox9
'
Me.CheckBox10.AutoSize = True
Me.CheckBox10.Checked = True
Me.CheckBox10.CheckState = System.Windows.Forms.CheckState.Checked
Me.CheckBox10.Enabled = False
Me.CheckBox10.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.CheckBox10.ForeColor = System.Drawing.Color.Black
Me.CheckBox10.Location = New System.Drawing.Point(100, 36)
Me.CheckBox10.Name = "CheckBox10"
Me.CheckBox10.Size = New System.Drawing.Size(71, 20)
Me.CheckBox10.TabIndex = 0
Me.CheckBox10.Text = "English"
Me.CheckBox10.UseVisualStyleBackColor = True
Me.GroupBox9.BackColor = System.Drawing.Color.Transparent
Me.GroupBox9.Controls.Add(Me.CB_fun_eng)
Me.GroupBox9.Controls.Add(Me.CB_fun_es)
Me.GroupBox9.Controls.Add(Me.CB_fun_ptbr)
Me.GroupBox9.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox9.Location = New System.Drawing.Point(3, 81)
Me.GroupBox9.Name = "GroupBox9"
Me.GroupBox9.Size = New System.Drawing.Size(478, 95)
Me.GroupBox9.TabIndex = 53
Me.GroupBox9.TabStop = False
Me.GroupBox9.Text = "Soft-Subtitle"
'
'CB_fun_eng
'
Me.CB_fun_eng.AutoSize = True
Me.CB_fun_eng.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.CB_fun_eng.ForeColor = System.Drawing.Color.Black
Me.CB_fun_eng.Location = New System.Drawing.Point(51, 50)
Me.CB_fun_eng.Name = "CB_fun_eng"
Me.CB_fun_eng.Size = New System.Drawing.Size(71, 20)
Me.CB_fun_eng.TabIndex = 0
Me.CB_fun_eng.Text = "English"
Me.CB_fun_eng.UseVisualStyleBackColor = True
'
'CB_fun_es
'
Me.CB_fun_es.AutoSize = True
Me.CB_fun_es.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.CB_fun_es.ForeColor = System.Drawing.Color.Black
Me.CB_fun_es.Location = New System.Drawing.Point(165, 50)
Me.CB_fun_es.Name = "CB_fun_es"
Me.CB_fun_es.Size = New System.Drawing.Size(104, 20)
Me.CB_fun_es.TabIndex = 44
Me.CB_fun_es.Text = "Español (LA)"
Me.CB_fun_es.UseVisualStyleBackColor = True
'
'CB_fun_ptbr
'
Me.CB_fun_ptbr.AutoSize = True
Me.CB_fun_ptbr.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.CB_fun_ptbr.ForeColor = System.Drawing.Color.Black
Me.CB_fun_ptbr.Location = New System.Drawing.Point(287, 50)
Me.CB_fun_ptbr.Name = "CB_fun_ptbr"
Me.CB_fun_ptbr.Size = New System.Drawing.Size(133, 20)
Me.CB_fun_ptbr.TabIndex = 45
Me.CB_fun_ptbr.Text = "Português (Brasil)"
Me.CB_fun_ptbr.UseVisualStyleBackColor = True
'
'TabPage8
'
@ -1335,6 +1383,35 @@ Partial Class einstellungen
'
Me.MetroStyleManager1.Owner = Nothing
'
'GroupBox10
'
Me.GroupBox10.BackColor = System.Drawing.Color.Transparent
Me.GroupBox10.Controls.Add(Me.Fun_Dub_Over)
Me.GroupBox10.Font = New System.Drawing.Font("Arial", 9.75!)
Me.GroupBox10.ForeColor = System.Drawing.Color.Black
Me.GroupBox10.Location = New System.Drawing.Point(6, 182)
Me.GroupBox10.Name = "GroupBox10"
Me.GroupBox10.Size = New System.Drawing.Size(478, 69)
Me.GroupBox10.TabIndex = 55
Me.GroupBox10.TabStop = False
Me.GroupBox10.Text = "Funimation Dub"
'
'Fun_Dub_Over
'
Me.Fun_Dub_Over.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
Me.Fun_Dub_Over.DropDownHeight = 250
Me.Fun_Dub_Over.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.Fun_Dub_Over.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Fun_Dub_Over.FormattingEnabled = True
Me.Fun_Dub_Over.IntegralHeight = False
Me.Fun_Dub_Over.ItemHeight = 16
Me.Fun_Dub_Over.Items.AddRange(New Object() {"Disabled", "english", "japanese", "portuguese(Brazil)", "spanish(Mexico)"})
Me.Fun_Dub_Over.Location = New System.Drawing.Point(69, 30)
Me.Fun_Dub_Over.Name = "Fun_Dub_Over"
Me.Fun_Dub_Over.Size = New System.Drawing.Size(326, 22)
Me.Fun_Dub_Over.Sorted = True
Me.Fun_Dub_Over.TabIndex = 33
'
'einstellungen
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@ -1342,7 +1419,7 @@ Partial Class einstellungen
Me.BackgroundImage = Global.Crunchyroll_Downloader.My.Resources.Resources.crdSettings_Background
Me.BackImage = Global.Crunchyroll_Downloader.My.Resources.Resources.crdSettings_Background
Me.BackMaxSize = 600
Me.ClientSize = New System.Drawing.Size(546, 600)
Me.ClientSize = New System.Drawing.Size(545, 600)
Me.Controls.Add(Me.TabControl1)
Me.Controls.Add(Me.pictureBox4)
Me.Controls.Add(Me.pictureBox1)
@ -1394,7 +1471,8 @@ Partial Class einstellungen
Me.TabControl1.ResumeLayout(False)
Me.TabPage6.ResumeLayout(False)
Me.GroupBox7.ResumeLayout(False)
Me.GroupBox7.PerformLayout()
Me.GroupBox9.ResumeLayout(False)
Me.GroupBox9.PerformLayout()
Me.TabPage8.ResumeLayout(False)
Me.GroupBox8.ResumeLayout(False)
Me.GroupBox8.PerformLayout()
@ -1402,6 +1480,7 @@ Partial Class einstellungen
CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel2.ResumeLayout(False)
CType(Me.MetroStyleManager1, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox10.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
@ -1467,9 +1546,6 @@ Partial Class einstellungen
Friend WithEvents MergeMP4 As CheckBox
Friend WithEvents GroupBox4 As GroupBox
Friend WithEvents HybridMode_CB As CheckBox
Friend WithEvents GroupBox7 As GroupBox
Friend WithEvents CheckBox10 As CheckBox
Friend WithEvents FunimationHardsub As CheckBox
Public WithEvents CBesES As CheckBox
Public WithEvents CBitIT As CheckBox
Public WithEvents CBruRU As CheckBox
@ -1508,4 +1584,12 @@ Partial Class einstellungen
Friend WithEvents AoD_0p As RadioButton
Friend WithEvents AoD_576p As RadioButton
Friend WithEvents AoD_1080_Plus As RadioButton
Friend WithEvents CB_fun_ptbr As CheckBox
Friend WithEvents CB_fun_es As CheckBox
Friend WithEvents CB_fun_eng As CheckBox
Friend WithEvents GroupBox7 As GroupBox
Friend WithEvents CB_Fun_HardSubs As ComboBox
Friend WithEvents GroupBox9 As GroupBox
Friend WithEvents GroupBox10 As GroupBox
Friend WithEvents Fun_Dub_Over As ComboBox
End Class

View File

@ -126,9 +126,6 @@
<metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>282, 17</value>
</metadata>
<metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>282, 17</value>
</metadata>
<metadata name="MetroStyleManager1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>

View File

@ -36,6 +36,22 @@ Public Class einstellungen
CBesES.Checked = True
End If
Next
For i As Integer = 0 To Main.SubFunimation.Count - 1
If Main.SubFunimation(i) = "en" Then
CB_fun_eng.Checked = True
ElseIf Main.SubFunimation(i) = "es" Then
CB_fun_es.Checked = True
ElseIf Main.SubFunimation(i) = "pt" Then
CB_fun_ptbr.Checked = True
End If
'If Main.SubFunimation(i) = "en" Then
' RB_eng.Checked = True
'ElseIf Main.SubFunimation(i) = "es" Then
' RB_es.Checked = True
'ElseIf Main.SubFunimation(i) = "pt" Then
' RB_pt.Checked = True
'End If
Next
Me.Location = New Point(Main.Location.X + Main.Width / 2 - Me.Width / 2, Main.Location.Y + Main.Height / 2 - Me.Height / 2)
Try
Me.Icon = My.Resources.icon
@ -50,8 +66,35 @@ Public Class einstellungen
HybridMode_CB.Checked = True
End If
If Main.HardSubFunimation = True Then
FunimationHardsub.Checked = True
'If Main.HardSubFunimation = True Then
If Main.HardSubFunimation = "en" Then
CB_Fun_HardSubs.SelectedItem = "English"
ElseIf Main.HardSubFunimation = "pt" Then
CB_Fun_HardSubs.SelectedItem = "Português (Brasil)"
ElseIf Main.HardSubFunimation = "es" Then
CB_Fun_HardSubs.SelectedItem = "Español (LA)"
Else
CB_Fun_HardSubs.SelectedItem = "Disabled"
'FunimationHardsub.Checked = True
End If
If Main.DubFunimation = "english" Then
Fun_Dub_Over.SelectedItem = "english"
ElseIf Main.DubFunimation = "japanese" Then
Fun_Dub_Over.SelectedItem = "japanese"
ElseIf Main.DubFunimation = "portuguese(Brazil)" Then
Fun_Dub_Over.SelectedItem = "portuguese(Brazil)"
ElseIf Main.DubFunimation = "spanish(Mexico)" Then
Fun_Dub_Over.SelectedItem = "spanish(Mexico)"
Else
Fun_Dub_Over.SelectedItem = "Disabled"
End If
If Main.SaveLog = True Then
@ -237,15 +280,59 @@ Public Class einstellungen
Main.HybridMode = False
rk.SetValue("HybridMode", "0", RegistryValueKind.String)
End If
#Region "funimation"
Main.DubFunimation = Fun_Dub_Over.SelectedItem.ToString
rk.SetValue("FunimationDub", Fun_Dub_Over.SelectedItem.ToString, RegistryValueKind.String)
If CB_Fun_HardSubs.SelectedItem.ToString = "Disabled" Then
Main.HardSubFunimation = "Disabled"
rk.SetValue("FunimationHardsub", "Disabled", RegistryValueKind.String)
ElseIf CB_Fun_HardSubs.SelectedItem.ToString = "English" Then
Main.HardSubFunimation = "en"
rk.SetValue("FunimationHardsub", "en", RegistryValueKind.String)
ElseIf CB_Fun_HardSubs.SelectedItem.ToString = "Português (Brasil)" Then
Main.HardSubFunimation = "pt"
rk.SetValue("FunimationHardsub", "pt", RegistryValueKind.String)
ElseIf CB_Fun_HardSubs.SelectedItem.ToString = "Español (LA)" Then
Main.HardSubFunimation = "es"
rk.SetValue("FunimationHardsub", "es", RegistryValueKind.String)
If FunimationHardsub.Checked = True Then
Main.HardSubFunimation = True
rk.SetValue("FunimationHardsub", "1", RegistryValueKind.String)
Else
Main.HardSubFunimation = False
rk.SetValue("FunimationHardsub", "0", RegistryValueKind.String)
End If
Main.SubFunimation.Clear()
If CB_fun_eng.Checked = True Then
Main.SubFunimation.Add("en")
End If
If CB_fun_es.Checked = True Then
Main.SubFunimation.Add("es")
End If
If CB_fun_ptbr.Checked = True Then
Main.SubFunimation.Add("pt")
End If
Dim FunimationSaveString As String = Nothing
For ii As Integer = 0 To Main.SubFunimation.Count - 1
If FunimationSaveString = Nothing Then
FunimationSaveString = Main.SubFunimation(ii)
Else
FunimationSaveString = FunimationSaveString + "," + Main.SubFunimation(ii)
End If
Next
If FunimationSaveString = Nothing Then
FunimationSaveString = "none"
End If
rk.SetValue("Fun_Sub", FunimationSaveString, RegistryValueKind.String)
#End Region
If CB_Log.Checked = True Then
Main.SaveLog = True
rk.SetValue("SaveLog", "1", RegistryValueKind.String)
@ -402,7 +489,7 @@ Public Class einstellungen
End Sub
Private Sub ComboBox1_DrawItem(sender As Object, e As DrawItemEventArgs) Handles ComboBox1.DrawItem, ComboBox2.DrawItem, comboBox3.DrawItem, comboBox4.DrawItem
Private Sub ComboBox1_DrawItem(sender As Object, e As DrawItemEventArgs) Handles ComboBox1.DrawItem, ComboBox2.DrawItem, comboBox3.DrawItem, comboBox4.DrawItem, CB_Fun_HardSubs.DrawItem, Fun_Dub_Over.DrawItem
Dim CB As ComboBox = sender
CB.BackColor = Color.White
If e.Index >= 0 Then
@ -606,14 +693,16 @@ Public Class einstellungen
End Sub
Private Sub FunimationHardsub_Click(sender As Object, e As EventArgs) Handles FunimationHardsub.Click
Private Sub FunimationHardsub_Click(sender As Object, e As EventArgs)
If FFMPEG_CommandP1.Text = "-c copy" Then
If FunimationHardsub.Checked = True Then
If MessageBox.Show("This feature does not work with the current output setting." + vbNewLine + "Do you want to ignore the output settings?", "Settings incompatible", MessageBoxButtons.YesNo) = DialogResult.Yes Then
FunimationHardsub.Checked = True
If CB_Fun_HardSubs.SelectedItem = "Disabled" Then
Else
FunimationHardsub.Checked = False
If MessageBox.Show("This feature does not work with the current output setting." + vbNewLine + "Do you want to ignore the output settings?", "Settings incompatible", MessageBoxButtons.YesNo) = DialogResult.Yes Then
'FunimationHardsub.Checked = True
Else
CB_Fun_HardSubs.SelectedItem = "Disabled"
End If
End If
Else
@ -638,5 +727,6 @@ Public Class einstellungen
#End Region
End Class

View File

@ -29,10 +29,8 @@ D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0\Crun
D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0\Crunchyroll Downloader\obj\x86\Debug\Crunchyroll_Downloader.Anime_Add.resources
D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0\Crunchyroll Downloader\obj\x86\Debug\Crunchyroll_Downloader.einstellungen.resources
D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0\Crunchyroll Downloader\obj\x86\Debug\Crunchyroll_Downloader.GeckoFX.resources
D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0\Crunchyroll Downloader\obj\x86\Debug\Crunchyroll_Downloader.Startup.resources
D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0\Crunchyroll Downloader\obj\x86\Debug\Crunchyroll_Downloader.Main.resources
D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0\Crunchyroll Downloader\obj\x86\Debug\Crunchyroll_Downloader.Resources.resources
D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0\Crunchyroll Downloader\obj\x86\Debug\Crunchyroll_Downloader.Reso.resources
D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0\Crunchyroll Downloader\obj\x86\Debug\Crunchyroll Downloader.vbproj.GenerateResource.cache
D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0\Crunchyroll Downloader\obj\x86\Debug\Crunchyroll Downloader.vbproj.CoreCompileInputs.cache
D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0\Crunchyroll Downloader\obj\x86\Debug\Crunchyroll Downloader.vbproj.CopyComplete
@ -143,3 +141,6 @@ D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0 - UI
D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0 - UI\Crunchyroll Downloader\obj\x86\Debug\Crunchyroll_Downloader.Main.resources
D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0 - UI\Crunchyroll Downloader\bin\x86\Debug\Geckofx-Core.pdb
D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0 - UI\Crunchyroll Downloader\bin\x86\Debug\Geckofx-Winforms.pdb
D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0\Crunchyroll Downloader\bin\x86\Debug\MetroFramework.dll
D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0\Crunchyroll Downloader\bin\x86\Debug\MetroFramework.pdb
D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0\Crunchyroll Downloader\obj\x86\Debug\Crunchyroll_Downloader.ErrorDialog.resources

View File

@ -205,14 +205,19 @@ Video Position: 0
Sucht eine lokalisierte Zeichenfolge, die &quot;src&quot;: ähnelt.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.Funimation_subs_src">
<summary>
Sucht eine lokalisierte Zeichenfolge, die {&quot;src&quot;: &quot; ähnelt.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.Funimation_Subtitle_String">
<summary>
Sucht eine lokalisierte Zeichenfolge, die &quot;, &quot;kind&quot;: &quot;subtitle&quot;, &quot;type&quot;: &quot;CC&quot;, &quot;language&quot;: &quot;en&quot; ähnelt.
Sucht eine lokalisierte Zeichenfolge, die &quot;, &quot;kind&quot;: &quot;subtitle&quot;, &quot;type&quot;: &quot;CC&quot;, &quot;language&quot;: &quot; ähnelt.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.Funimation_Subtitle_String2">
<summary>
Sucht eine lokalisierte Zeichenfolge, die &quot;, &quot;kind&quot;: &quot;subtitle&quot;, &quot;type&quot;: &quot;Full&quot;, &quot;language&quot;: &quot;en&quot; ähnelt.
Sucht eine lokalisierte Zeichenfolge, die &quot;, &quot;kind&quot;: &quot;subtitle&quot;, &quot;type&quot;: &quot;Full&quot;, &quot;language&quot;: &quot; ähnelt.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.Funimation_thumbnail">