Option Strict On Imports System.Net Imports System.Text Imports System.IO Imports Microsoft.Win32 Imports System.Threading Imports System.Net.WebUtility Imports System.Net.Sockets Imports MetroFramework.Forms Imports MetroFramework Imports MetroFramework.Components Imports System.Globalization Imports System.ComponentModel Imports Newtonsoft.Json.Linq Imports System.Runtime.InteropServices Imports CefSharp.WinForms Imports CefSharp Imports System.Security.Policy Imports MyProvider.MyProvider Imports System.Windows Public Class Main Inherits MetroForm Dim t As Thread Dim HTML As String = Nothing Public CR_Cookies As String = "Cookie: " Public CR_etp_rt As String = Nothing Public CR_ajs_user_id As String = Nothing Public CheckCRLogin As Boolean = True 'Public LoadedUrl As String = Nothing Public CrBetaMass As String = Nothing Public CrBetaMassEpisodes As String = Nothing Public CrBetaMassParameters As String = Nothing Public CrBetaMassBaseURL As String = Nothing Public CrBetaBasic As String = Nothing Public locale As String = Nothing Public Url_locale As String = Nothing 'Public CrBetaObjects As String = Nothing 'Public CrBetaStreams As String = Nothing 'Public CrBetaStreamsUrl As String = Nothing Public LoadedUrls As New List(Of String) Public FunimationAPIRegion As String = Nothing Public FunimationRegion As String = Nothing Public FunimationDeviceRegion As String = Nothing Public FunimationToken As String = Nothing Public FunimationShowPath As String = Nothing Public FunimationEpisodeJSON As String = Nothing Public FunimtaionAPISeasonID As New List(Of String) Public FunimtaionSeasonList As New List(Of FunimationOverview) Public FunimationSeasonAPIUrl As String = Nothing Public FunimationJsonBrowser As String = Nothing Public Manager As New MetroStyleManager Public DarkModeValue As Boolean = False Public invalids As Char() = System.IO.Path.GetInvalidFileNameChars() Dim ServerThread As Thread Public KodiNaming As Boolean = False Public ErrorTolerance As Integer = 0 'Public liList As New List(Of String) Public HTMLString As String = My.Resources.Startuphtml Public ListBoxList As New List(Of String) 'Public ItemList As New List(Of CRD_List_Item) Public RunningDownloads As Integer = 0 Public UseQueue As Boolean = False Public StartServer As Integer = 0 Public m3u8List As New List(Of String) Public txtList As New List(Of String) Public mpdList As New List(Of String) Public ResoAvalibe As String = Nothing Public ResoSearchRunning As Boolean = False Public UsedMap As String = Nothing Public Debug1 As Boolean = False Public Debug2 As Boolean = False Public LogBrowserData As Boolean = False Public Thumbnail As String = Nothing Public MergeSubs As Boolean = False 'Public IgnoreS1 As Boolean = False Public IgnoreSeason As Integer = 0 Public KeepCache As Boolean = False Public SubsOnly As Boolean = False Public VideoFormat As String = ".mp4" Public MergeSubsFormat As String = "mov_text" 'Public LoginDialog As Boolean = False 'Public NonCR_Timeout As Integer = 5 'Public NonCR_URL As String = Nothing Public DlSoftSubsRDY As Boolean = True Public DialogTaskString As String 'Public ErrorBrowserString As String 'Public ErrorBrowserUrl As String 'Public ErrorBrowserBackString As String Public UserCloseDialog As Boolean = False Dim Aktuell As String Dim Gesamt As String Public LabelUpdate As String = "Status: idle" Public LabelEpisode As String = "..." Public b As Boolean Public LoginOnly As String = "False" Public Pfad As String = My.Computer.FileSystem.CurrentDirectory Public TempFolder As String = Pfad Public ProfileFolder As String = Path.Combine(Application.StartupPath, "CRD-Profile") 'Path.Combine(My.Computer.FileSystem.SpecialDirectories.MyDocuments, "CRD-Profile") Public ffmpeg_command As String = " -c copy -bsf:a aac_adtstoasc" '" -c:v hevc_nvenc -preset fast -b:v 6M -bsf:a aac_adtstoasc " Public Reso As Integer Public Season_Prefix As String = "[default season prefix]" Public Episode_Prefix As String = "[default episode prefix]" Dim Reso2 As String Public ResoSave As String = "6666x6666" Public ResoFunBackup As String = "6666x6666" Public SubSprache As String Public SoftSubs As New List(Of String) Public IncludeLangName As Boolean = False Public LangNameType As Integer = 0 Public HybridThread As Integer = CInt(Environment.ProcessorCount / 2 - 1) Public TempSoftSubs As New List(Of String) Public AbourtList As New List(Of String) Public watingList As New List(Of String) Public GeckoLogFile As String = Nothing Dim SoftSubsString As String Dim CR_Unlock_Error As String Public Startseite As String = "https://www.crunchyroll.com/" Dim SubSprache2 As String Dim URL_DL As String Dim Pfad_DL As String Public Grapp_RDY As Boolean = True Public Funimation_Grapp_RDY As Boolean = True Public Grapp_non_cr_RDY As Boolean = True Public Grapp_Abord As Boolean = False Public CR_NameMethode As Integer = 0 Public LeadingZero As Integer = 1 Public MaxDL As Integer Public ResoNotFoundString As String Public ResoBackString As String Public WebbrowserHeadText As String = Nothing Public WebbrowserSoftSubURL As String = Nothing Public WebbrowserURL As String = Nothing Public SystemWebBrowserCookie As String = Nothing Public WebbrowserText As String = Nothing Public WebbrowserTitle As String = Nothing Public WebbrowserCookie As String = Nothing Public UserBowser As Boolean = False Public HybridMode As Boolean = False Public HardSubFunimation As String = "Disabled" Public Funimation_Bitrate As Integer = 0 Public DubFunimation As String = "Disabled" Public Funimation_srt As Boolean = False Public Funimation_vtt As Boolean = False Public SubFunimationString As String = "en" Public SubFunimation As New List(Of String) Public DefaultSubFunimation As String = "Disabled" Public DefaultSubCR As String = "Disabled" Public DubMode As Boolean = True Public CR_Chapters As Boolean = False Public Curl_insecure As Boolean = False #Region "Sprachen Vairablen" Public URL_Invaild As String = "something is wrong here..." Dim DL_Path_String As String = "Please choose download directory." Public No_Stream As String = "Please make sure that the URL is correct or check if the Anime is available in your country." Dim TaskNotCompleed As String = "Please wait until the current task is completed." Dim Premium_Stream As String = "For Premium episodes you need a premium membership and be logged in the Downloader." Public LoginReminder As String = "Please make sure that you logged in." Dim Error_Mass_DL As String = "We run into a problem here." + vbNewLine + "You can try to download every episode individually." Dim User_Fault_NoName As String = "no name, fallback solution : " Dim Sub_language_NotFound As String = "Could not find the sub language" + vbNewLine + "please make sure the language is available: " Dim Resolution_NotFound As String = "Could not find any resolution." Dim Error_unknown As String = "We run into a unknown problem here." + vbNewLine + "Do you like to send an Bug report?" Dim ErrorNoPermisson As String = "Access is denied." 'UI Variablen Public GB_Resolution_Text As String = "Resolution" Public GB_SubLanguage_Text As String = "Hardsub language" Public GB_Sub_Path_Text As String = "Sub directory" Public RBAnime_Text As String = "series name" Public RBStaffel_Text As String = "series name + season" Public NewStart_String As String = "to adopt all the settings, a restart is necessary." Public DL_Count_simultaneousText As String = "Simultaneous Downloads" Public GB_Sub_FormatText As String = "extended Sub Settings" Public LabelResoNotFoundText As String = "resolution not found" + vbNewLine + "Select another one below" Public LabelLangNotFoundText As String = "subtitle language not found" + vbNewLine + "Select another one below" Public ButtonResoNotFoundText As String = "Submit" Public CB_SuB_Nothing As String = "[ null ]" Dim StatusToolTip As ToolTip = New ToolTip() Dim StatusToolTipText As String #End Region #Region "UI" Private Sub Main_TextChanged(sender As Object, e As EventArgs) Handles Me.TextChanged Me.Invalidate() End Sub Public CloseImg As Bitmap = My.Resources.main_del Public MinImg As Bitmap = My.Resources.main_mini Public BackColorValue As Color = Color.FromArgb(243, 243, 243) Public ForeColorValue As Color = SystemColors.WindowText Public Sub DarkMode() Panel1.BackColor = Color.FromArgb(50, 50, 50) CloseImg = My.Resources.main_close_dark MinImg = My.Resources.main_mini_dark Btn_min.Image = MinImg Btn_Close.Image = CloseImg BackColorValue = Color.FromArgb(50, 50, 50) ForeColorValue = Color.FromArgb(243, 243, 243) End Sub Public Sub LightMode() BackColorValue = Color.FromArgb(243, 243, 243) ForeColorValue = SystemColors.WindowText Panel1.BackColor = SystemColors.Control CloseImg = My.Resources.main_close MinImg = My.Resources.main_mini Btn_min.Image = MinImg Btn_Close.Image = CloseImg End Sub Dim ListViewHeightOffset As Integer = 7 Private Sub Btn_add_MouseEnter(sender As Object, e As EventArgs) Handles Btn_add.MouseEnter, Btn_add.GotFocus If Manager.Theme = MetroThemeStyle.Dark Then Btn_add.Image = My.Resources.main_add_invert_dark Else Btn_add.Image = My.Resources.main_add_invert End If End Sub Private Sub Btn_add_MouseLeave(sender As Object, e As EventArgs) Handles Btn_add.MouseLeave, Btn_add.LostFocus Btn_add.Image = My.Resources.main_add End Sub Private Sub Btn_Browser_MouseEnter(sender As Object, e As EventArgs) Handles Btn_Browser.MouseEnter, Btn_Browser.GotFocus If Manager.Theme = MetroThemeStyle.Dark Then Btn_Browser.Image = My.Resources.main_browser_invert_dark Else Btn_Browser.Image = My.Resources.main_browser_invert End If End Sub Private Sub Btn_Browser_MouseLeave(sender As Object, e As EventArgs) Handles Btn_Browser.MouseLeave, Btn_Browser.LostFocus Btn_Browser.Image = My.Resources.main_browser End Sub Private Sub Btn_Settings_MouseEnter(sender As Object, e As EventArgs) Handles Btn_Settings.MouseEnter, Btn_Settings.GotFocus If Manager.Theme = MetroThemeStyle.Dark Then Btn_Settings.Image = My.Resources.main_setting_invert_dark Else Btn_Settings.Image = My.Resources.main_setting_invert End If End Sub Private Sub Btn_Settings_MouseLeave(sender As Object, e As EventArgs) Handles Btn_Settings.MouseLeave, Btn_Settings.LostFocus Btn_Settings.Image = My.Resources.main_settings End Sub Private Sub Btn_min_MouseEnter(sender As Object, e As EventArgs) Handles Btn_min.MouseEnter, Btn_min.GotFocus If Manager.Theme = MetroThemeStyle.Dark Then Btn_min.Image = My.Resources.main_mini_dark_hover Else Btn_min.Image = My.Resources.main_mini_red End If End Sub Private Sub Btn_min_MouseLeave(sender As Object, e As EventArgs) Handles Btn_min.MouseLeave, Btn_min.LostFocus Btn_min.Image = MinImg End Sub Private Sub Btn_Close_MouseEnter(sender As Object, e As EventArgs) Handles Btn_Close.MouseEnter, Btn_Close.GotFocus If Manager.Theme = MetroThemeStyle.Dark Then Btn_Close.Image = My.Resources.main_close_dark_hover Else Btn_Close.Image = My.Resources.main_close_hover End If End Sub Private Sub Btn_Close_MouseLeave(sender As Object, e As EventArgs) Handles Btn_Close.MouseLeave, Btn_Close.LostFocus Btn_Close.Image = CloseImg End Sub Private Sub ConsoleBar_Click(sender As Object, e As EventArgs) Handles ConsoleBar.Click If TheTextBox.Visible = True Then TheTextBox.Visible = False ListViewHeightOffset = 7 ConsoleBar.Location = New Point(0, Me.Height - ListViewHeightOffset) TheTextBox.Location = New Point(1, Me.Height - ListViewHeightOffset + 7) TheTextBox.Width = Me.Width - 2 Else ListViewHeightOffset = 103 TheTextBox.Visible = True ConsoleBar.Location = New Point(0, Me.Height - ListViewHeightOffset) TheTextBox.Location = New Point(1, Me.Height - ListViewHeightOffset + 7) TheTextBox.Width = Me.Width - 2 End If Me.Height = Me.Height + 1 End Sub Private Sub ConsoleBar_MouseEnter(sender As Object, e As EventArgs) Handles ConsoleBar.MouseEnter ConsoleBar.BackgroundImage = My.Resources.balken_console End Sub Private Sub ConsoleBar_MouseLeave(sender As Object, e As EventArgs) Handles ConsoleBar.MouseLeave ConsoleBar.BackgroundImage = My.Resources.balken End Sub Private Sub Main_Resize(sender As Object, e As EventArgs) Handles Me.Resize Panel1.Width = Me.Width - 2 Panel1.Height = Me.Height - 71 - ListViewHeightOffset PictureBox5.Width = Me.Width - 40 ConsoleBar.Location = New Point(1, Me.Height - ListViewHeightOffset) ConsoleBar.Width = Me.Width - 40 TheTextBox.Location = New Point(1, Me.Height - ListViewHeightOffset + 7) TheTextBox.Width = Me.Width - 2 Btn_Close.Location = New Point(Me.Width - 41, 1) Btn_min.Location = New Point(Me.Width - 82, 1) Btn_Settings.Location = New Point(Me.Width - 190, 17) Try Panel1.AutoScrollPosition = New Point(0, 0) Dim W As Integer = Panel1.Width If Panel1.Controls.Count * 142 > Panel1.Height Then w = Panel1.Width - SystemInformation.VerticalScrollBarWidth End If Dim Item As New List(Of CRD_List_Item) Item.AddRange(Panel1.Controls.OfType(Of CRD_List_Item)) For s As Integer = 0 To Item.Count - 1 Item(s).SetBounds(0, 142 * s, W - 2, 142) If Debug2 = True Then Debug.WriteLine("Bounds: " + Item(s).GetTextBound.ToString) Debug.WriteLine("Ist: " + Item(s).Location.Y.ToString) Debug.WriteLine("Soll: " + (142 * s).ToString) End If Next Catch ex As Exception Debug.WriteLine(ex.ToString) End Try End Sub #End Region Public Declare Function waveOutSetVolume Lib "winmm.dll" (ByVal uDeviceID As Integer, ByVal dwVolume As Integer) As Integer Public Enum EXECUTION_STATE As UInteger ES_SYSTEM_REQUIRED = &H1 ES_DISPLAY_REQUIRED = &H2 ES_CONTINUOUS = &H80000000UI End Enum Public Shared Function SetThreadExecutionState(ByVal state As EXECUTION_STATE) As EXECUTION_STATE End Function Public Sub SetSettingsTheme() Einstellungen.Theme = Manager.Theme End Sub Function AddLeadingZeros(ByVal txt As String) As String txt = txt.Replace(",", ".") Dim Post As String = Nothing If CBool(InStr(txt, ".")) = True Then Dim txt_split As String() = txt.Split(New String() {"."}, System.StringSplitOptions.RemoveEmptyEntries) txt = txt_split(0) Post = "." + txt_split(1) End If For i As Integer = 0 To LeadingZero + 1 If txt.Count = LeadingZero + 1 Or txt.Count > LeadingZero + 1 Then Exit For Else txt = "0" + txt End If Next Dim Output As String = txt + Post Return Output End Function Private Sub Form8_Load(sender As Object, e As EventArgs) Handles MyBase.Load ' #Region "settings path" Dim mySettings As New DirectorySettings mySettings.DirectoryName = Application.StartupPath mySettings.FileName = "User.config.dat" mySettings.Save() ' muss explizit gepeichert werden... #End Region Me.ContextMenuStrip = ContextMenuStrip1 Dim tbtl As TextBoxTraceListener = New TextBoxTraceListener(TheTextBox) Trace.Listeners.Add(tbtl) b = True Thread.CurrentThread.Name = "Main" Debug.WriteLine("Thread Name: " + Thread.CurrentThread.Name) 'Try ' Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader") ' ProfileFolder = rkg.GetValue("ProfilFolder").ToString 'Catch ex As Exception 'End Try Dim settings As CefSettings = New CefSettings() If Not Directory.Exists(Path.GetDirectoryName(ProfileFolder)) Then ' Nein! Jetzt erstellen... Try Directory.CreateDirectory(Path.GetDirectoryName(ProfileFolder)) settings.CachePath = ProfileFolder Catch ex As Exception ' Ordner wurde nich erstellt settings.CachePath = Application.StartupPath + "\lib" End Try Else settings.CachePath = ProfileFolder End If settings.CefCommandLineArgs.Add("disable-features=PreloadMediaEngagementData, MediaEngagementBypassAutoplayPolicies") settings.CefCommandLineArgs.Add("disable-gpu") settings.CefCommandLineArgs.Add("disable-gpu-vsync") settings.CefCommandLineArgs.Add("disable-d3d11") settings.CefCommandLineArgs.Add("disable-gpu-rasterization") settings.UserAgent = My.Resources.ffmpeg_user_agend.Replace("User-Agent: ", "").Replace(Chr(34), "") settings.DisableGpuAcceleration() settings.LogFile = Path.Combine(Application.StartupPath, "lib", "browser.log") Cef.Initialize(settings) DarkModeValue = My.Settings.DarkModeValue Manager.Style = MetroColorStyle.Orange If DarkModeValue = True Then Manager.Theme = MetroThemeStyle.Dark DarkMode() Else Manager.Theme = MetroThemeStyle.Light LightMode() End If Me.StyleManager = Manager Manager.Owner = Me StartServer = My.Settings.ServerPort If StartServer > 0 Then Timer3.Enabled = True ServerThread = New Thread(AddressOf ServerStart) ServerThread.Priority = ThreadPriority.Normal ServerThread.IsBackground = True ServerThread.Start() End If waveOutSetVolume(0, 0) ServicePointManager.Expect100Continue = True ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12 StatusToolTip.Active = True Try Me.Icon = My.Resources.icon Catch ex As Exception End Try If My.Settings.Pfad = Nothing Then Pfad = My.Computer.FileSystem.SpecialDirectories.MyDocuments Else Pfad = My.Settings.Pfad End If If My.Settings.TempFolder = Nothing Then TempFolder = Pfad Else TempFolder = My.Settings.TempFolder End If Episode_Prefix = My.Settings.Prefix_E Season_Prefix = My.Settings.Prefix_S DefaultSubFunimation = My.Settings.DefaultSubFunimation DefaultSubCR = My.Settings.DefaultSubCR Startseite = My.Settings.Startseite UseQueue = My.Settings.QueueMode KodiNaming = My.Settings.KodiSupport DubMode = My.Settings.DubMode CR_Chapters = My.Settings.CR_Chapters Curl_insecure = My.Settings.Curl_insecure KeepCache = My.Settings.Keep_Cache ffmpeg_command = My.Settings.ffmpeg_command Reso = My.Settings.Reso LeadingZero = My.Settings.LeadingZero SubSprache = My.Settings.Subtitle Funimation_Bitrate = My.Settings.Funimation_Bitrate SubFolder_Value = My.Settings.SubFolder_Value MaxDL = My.Settings.SL_DL CR_NameMethode = My.Settings.CR_NameMethode ErrorTolerance = My.Settings.ErrorTolerance IncludeLangName = My.Settings.IncludeLangName LangNameType = My.Settings.LangNameType HybridThread = My.Settings.HybridThread IgnoreSeason = My.Settings.IgnoreSeason HybridMode = My.Settings.HybridMode Funimation_srt = My.Settings.Funimation_srt Funimation_vtt = My.Settings.Funimation_vtt DubFunimation = My.Settings.FunimationDub HardSubFunimation = "Disabled" SoftSubsString = My.Settings.AddedSubs If SoftSubsString = "None" Then Else Dim SoftSubsStringSplit() As String = SoftSubsString.Split(New String() {","}, System.StringSplitOptions.RemoveEmptyEntries) For i As Integer = 0 To SoftSubsStringSplit.Count - 1 SoftSubs.Add(SoftSubsStringSplit(i)) Next End If SubFunimationString = My.Settings.Fun_Sub 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 MergeSubsFormat = My.Settings.MergeSubs If MergeSubsFormat = "[merge disabled]" Then MergeSubs = False Else MergeSubs = True End If VideoFormat = My.Settings.VideoFormat RetryWithCachedFiles() End Sub Public Sub ListItemAdd(ByVal NameKomplett As String, ByVal NameP1 As String, ByVal NameP2 As String, ByVal Reso As String, ByVal HardSub As String, ByVal SoftSubs As String, ByVal ThumbnialURL As String, ByVal URL_DL As String, ByVal Pfad_DL As String, Optional Service As String = "CR") ', ByVal AudioLang As String) 'With ListView1.Items.Add("0") 'For i As Integer = 0 To 10 ItemConstructor(NameKomplett, NameP1, NameP2, Reso, HardSub, SoftSubs, ThumbnialURL, URL_DL, Pfad_DL, Service) 'Next 'End With End Sub Public Sub ItemConstructor(ByVal NameKomplett As String, ByVal NameP1 As String, ByVal NameP2 As String, ByVal DisplayReso As String, ByVal HardSub As String, ByVal SoftSubs As String, ByVal ThumbnialURL As String, ByVal URL_DL As String, ByVal Pfad_DL As String, ByVal Service As String) Dim Item As New CRD_List_Item Item.Visible = False #Region "Set Variables" Item.SetService(Service) Item.SetTolerance(ErrorTolerance) Item.SetTargetReso(Reso) Item.SetLabelWebsite(NameP1) Item.SetLabelAnimeTitel(NameP2) Item.SetLabelResolution(DisplayReso) Item.SetLabelHardsub(HardSub) Item.SetThumbnailImage(ThumbnialURL) Item.SetLabelPercent("0%") Item.SetToolTip("Softsubs: " + SoftSubs) Item.SetCache(KeepCache) Item.SetMergeSubstoMP4(MergeSubs) Item.SetDebug2(Debug2) #End Region Dim W As Integer = Panel1.Width If Panel1.Controls.Count * 142 > Panel1.Height Then W = Panel1.Width - SystemInformation.VerticalScrollBarWidth End If Item.SetBounds(0, 142 * Panel1.Controls.Count, W - 2, 142) Item.Parent = Panel1 Panel1.Controls.Add(Item) Item.Visible = True Dim TempHybridMode As Boolean = HybridMode If CBool(InStr(URL_DL, ".mpd")) Then TempHybridMode = False End If If Pfad_DL.Length > 255 Then 'MsgBox(Pfad_DL.Length.ToString) Pfad_DL = Chr(34) + "\\?\" + Pfad_DL.Replace(Chr(34), "") + Chr(34) End If 'MsgBox(URL_DL + vbNewLine + Pfad_DL + vbNewLine + NameKomplett + vbNewLine + TempHybridMode.ToString) Item.StartDownload(URL_DL, Pfad_DL, NameKomplett, TempHybridMode, TempFolder) End Sub #Region "Season DL" #End Region #Region "Sub to display" Public Function SubValuesToDisplay() As String Try Dim deDE As Boolean = False Dim enUS As Boolean = False Dim ptBR As Boolean = False Dim esLA As Boolean = False Dim frFR As Boolean = False Dim arME As Boolean = False Dim ruRU As Boolean = False Dim itIT As Boolean = False Dim esES As Boolean = False Dim ListReturn As String = Nothing For i As Integer = 0 To SoftSubs.Count - 1 If SoftSubs(i) = "deDE" Then deDE = True ElseIf SoftSubs(i) = "enUS" Then enUS = True ElseIf SoftSubs(i) = "ptBR" Then ptBR = True ElseIf SoftSubs(i) = "esLA" Then esLA = True ElseIf SoftSubs(i) = "frFR" Then frFR = True ElseIf SoftSubs(i) = "arME" Then arME = True ElseIf SoftSubs(i) = "ruRU" Then ruRU = True ElseIf SoftSubs(i) = "itIT" Then itIT = True ElseIf SoftSubs(i) = "esES" Then esES = True End If Next If deDE = True Then If ListReturn = Nothing Then ListReturn = "Deutsch" Else ListReturn = ListReturn + ", Deutsch" End If End If If enUS = True Then If ListReturn = Nothing Then ListReturn = "English" Else ListReturn = ListReturn + ", English" End If End If If esLA = True Then If ListReturn = Nothing Then ListReturn = "Español (LA)" Else ListReturn = ListReturn + ", Español (LA)" End If End If If ptBR = True Then If ListReturn = Nothing Then ListReturn = "Português (Brasil)" Else ListReturn = ListReturn + ", Português (Brasil)" End If End If If frFR = True Then If ListReturn = Nothing Then ListReturn = "Français (France)" Else ListReturn = ListReturn + ", Français (France)" End If End If If arME = True Then If ListReturn = Nothing Then ListReturn = "العربية (Arabic)" Else ListReturn = ListReturn + ", العربية (Arabic)" End If End If If ruRU = True Then If ListReturn = Nothing Then ListReturn = "Русский (Russian)" Else ListReturn = ListReturn + ", Русский (Russian)" End If End If If itIT = True Then If ListReturn = Nothing Then ListReturn = "Italiano (Italian)" Else ListReturn = ListReturn + ", Italiano (Italian)" End If End If If esES = True Then If ListReturn = Nothing Then ListReturn = "Español (España)" Else ListReturn = ListReturn + ", Español (España)" End If End If Return ListReturn Catch ex As Exception Return Nothing End Try End Function Public Function GetSubFileLangName(ByVal HardSub As String) As String HardSub = HardSub.Replace(Chr(34), "") If LangNameType = 1 Then Return CCtoMP4CC(HardSub) ElseIf LangNameType = 2 Then Dim RS As String = HardSubValuesToDisplay(HardSub) + "." + CCtoMP4CC(HardSub) Return RS Else Return HardSubValuesToDisplay(HardSub) End If End Function Public Function HardSubValuesToDisplay(ByVal HardSub As String) As String Try HardSub = HardSub.Replace(Chr(34), "") If HardSub = "deDE" Or HardSub = "de-DE" Then Return "Deutsch" ElseIf HardSub = "enUS" Or HardSub = "en" Or HardSub = "en-US" Then Return "English" ElseIf HardSub = "ptBR" Or HardSub = "pt" Or HardSub = "pt-BR" Then Return "Português (Brasil)" ElseIf HardSub = "esLA" Or HardSub = "es" Or HardSub = "es-419" Or HardSub = "es-LA" Then Return "Español (LA)" ElseIf HardSub = "frFR" Or HardSub = "fr-FR" Then Return "Français (France)" ElseIf HardSub = "arME" Or HardSub = "ar-ME" Then Return "العربية (Arabic)" ElseIf HardSub = "ruRU" Or HardSub = "ru-RU" Then Return "Русский (Russian)" ElseIf HardSub = "itIT" Or HardSub = "it-IT" Then Return "Italiano (Italian)" ElseIf HardSub = "esES" Or HardSub = "es-ES" Then Return "Español (España)" ElseIf HardSub = "jaJP" Or HardSub = "ja-JP" Then Return "Japanese" Else Return CB_SuB_Nothing End If Catch ex As Exception Return Nothing End Try End Function Public Function CCtoMP4CC(ByVal HardSub As String) As String Try If HardSub = "deDE" Or HardSub = "de-DE" Then Return "ger" ElseIf HardSub = "enUS" Or HardSub = "en-US" Or HardSub = "en" Then Return "eng" ElseIf HardSub = "ptBR" Or HardSub = "pt-BR" Or HardSub = "pt" Then Return "por" ElseIf HardSub = "esLA" Or HardSub = "es-LA" Or HardSub = "es" Or HardSub = "es-419" Then Return "spa" ElseIf HardSub = "frFR" Or HardSub = "fr-FR" Then Return "fre" ElseIf HardSub = "arME" Or HardSub = "ar-ME" Then Return "ara" ElseIf HardSub = "ruRU" Or HardSub = "ru-RU" Then Return "rus" ElseIf HardSub = "itIT" Or HardSub = "it-IT" Then Return "ita" ElseIf HardSub = "esES" Or HardSub = "es-ES" Then Return "spa" ElseIf HardSub = "jaJP" Or HardSub = "ja-JP" Then Return "jpn" Else Return "chi" End If Catch ex As Exception Return Nothing End Try End Function #End Region #Region "curl" Public Function Curl(ByVal Url As String) As String Dim exepath As String = Path.Combine(Application.StartupPath, "lib", "curl.exe") Dim startinfo As New System.Diagnostics.ProcessStartInfo Dim sr As StreamReader Dim sr2 As StreamReader Dim cmd As String = "" If Curl_insecure = True Then cmd = "--insecure " End If cmd = cmd + "--no-alpn -fsSLm 15 -A " + My.Resources.ffmpeg_user_agend.Replace("User-Agent: ", "") + " " + Chr(34) + Url + Chr(34) Dim Proc As New Process 'MsgBox(cmd) Dim CurlOutput As String = Nothing Dim CurlError As String = Nothing ' all parameters required to run the process startinfo.FileName = exepath startinfo.Arguments = cmd startinfo.UseShellExecute = False startinfo.WindowStyle = ProcessWindowStyle.Normal startinfo.RedirectStandardError = True startinfo.RedirectStandardOutput = True startinfo.CreateNoWindow = True startinfo.StandardOutputEncoding = Encoding.UTF8 startinfo.StandardErrorEncoding = Encoding.UTF8 Proc.StartInfo = startinfo Proc.Start() ' start the process sr = Proc.StandardOutput 'standard error is used by ffmpeg sr2 = Proc.StandardError 'sw = proc.StandardInput Dim start, finish, pau As Double start = CSng(Microsoft.VisualBasic.DateAndTime.Timer) pau = 5 finish = start + pau Do CurlOutput = CurlOutput + sr.ReadToEnd CurlError = CurlError + sr2.ReadToEnd 'ffmpegOutput2 = sr.ReadLine Debug.WriteLine(CurlOutput) Loop Until Proc.HasExited Or Microsoft.VisualBasic.DateAndTime.Timer < finish If CurlOutput = Nothing And CurlError = Nothing Then Debug.WriteLine("curl-E: " + "curl: ") Return CurlError ElseIf CurlOutput = Nothing And CurlError IsNot Nothing Then Debug.WriteLine("curl-E: " + CurlError) Return CurlError ElseIf CurlOutput IsNot Nothing And CurlError = Nothing Then Debug.WriteLine("curl-O: " + CurlOutput) Return CurlOutput ElseIf CurlOutput IsNot Nothing And CurlError IsNot Nothing Then Debug.WriteLine("curl-O: " + CurlOutput) Return CurlOutput Else Debug.WriteLine("curl-E: " + "curl: ") Return CurlError End If End Function Public Function CurlPost(ByVal Url As String, ByVal Cookies As String, ByVal Auth As String, ByVal Post As String) As String Dim exepath As String = Path.Combine(Application.StartupPath, "lib", "curl.exe") Dim startinfo As New System.Diagnostics.ProcessStartInfo Dim sr As StreamReader Dim sr2 As StreamReader Dim cmd As String = "" If Curl_insecure = True Then cmd = "--insecure " End If cmd = cmd + "--no-alpn -fsSLm 15 -A " + My.Resources.ffmpeg_user_agend.Replace("User-Agent: ", "") + Cookies + Auth + Post + " " + Chr(34) + Url + Chr(34) Dim Proc As New Process 'MsgBox(cmd) Dim CurlOutput As String = Nothing Dim CurlError As String = Nothing ' all parameters required to run the process startinfo.FileName = exepath startinfo.Arguments = cmd startinfo.UseShellExecute = False startinfo.WindowStyle = ProcessWindowStyle.Normal startinfo.RedirectStandardError = True startinfo.RedirectStandardOutput = True startinfo.CreateNoWindow = True startinfo.StandardOutputEncoding = Encoding.UTF8 startinfo.StandardErrorEncoding = Encoding.UTF8 Proc.StartInfo = startinfo Proc.Start() ' start the process sr = Proc.StandardOutput 'standard error is used by ffmpeg sr2 = Proc.StandardError 'sw = proc.StandardInput Dim start, finish, pau As Double start = CSng(Microsoft.VisualBasic.DateAndTime.Timer) pau = 5 finish = start + pau Do CurlOutput = CurlOutput + sr.ReadToEnd CurlError = CurlError + sr2.ReadToEnd 'ffmpegOutput2 = sr.ReadLine Debug.WriteLine(CurlOutput) Loop Until Proc.HasExited Or Microsoft.VisualBasic.DateAndTime.Timer < finish If CurlOutput = Nothing And CurlError = Nothing Then Debug.WriteLine("curl-E: " + "curl: ") Return CurlError ElseIf CurlOutput = Nothing And CurlError IsNot Nothing Then Debug.WriteLine("curl-E: " + CurlError) Return CurlError ElseIf CurlOutput IsNot Nothing And CurlError = Nothing Then Debug.WriteLine("curl-O: " + CurlOutput) Return CurlOutput ElseIf CurlOutput IsNot Nothing And CurlError IsNot Nothing Then Debug.WriteLine("curl-O: " + CurlOutput) Return CurlOutput Else Debug.WriteLine("curl-E: " + "curl: ") Return CurlError End If End Function Public Function CurlAuth(ByVal Url As String, ByVal Cookies As String, ByVal Auth As String) As String Dim exepath As String = Path.Combine(Application.StartupPath, "lib", "curl.exe") Dim startinfo As New System.Diagnostics.ProcessStartInfo Dim sr As StreamReader Dim sr2 As StreamReader Dim cmd As String = "" If Curl_insecure = True Then cmd = "--insecure " End If cmd = cmd + "--no-alpn -fsSLm 15 -A " + My.Resources.ffmpeg_user_agend.Replace("User-Agent: ", "") + Cookies + Auth + " " + Chr(34) + Url + Chr(34) Dim Proc As New Process 'MsgBox(cmd) Dim CurlOutput As String = Nothing Dim CurlError As String = Nothing ' all parameters required to run the process startinfo.FileName = exepath startinfo.Arguments = cmd startinfo.UseShellExecute = False startinfo.WindowStyle = ProcessWindowStyle.Normal startinfo.RedirectStandardError = True startinfo.RedirectStandardOutput = True startinfo.CreateNoWindow = True startinfo.StandardOutputEncoding = Encoding.UTF8 startinfo.StandardErrorEncoding = Encoding.UTF8 Proc.StartInfo = startinfo Proc.Start() ' start the process sr = Proc.StandardOutput 'standard error is used by ffmpeg sr2 = Proc.StandardError 'sw = proc.StandardInput Dim start, finish, pau As Double start = CSng(Microsoft.VisualBasic.DateAndTime.Timer) pau = 5 finish = start + pau Do CurlOutput = CurlOutput + sr.ReadToEnd CurlError = CurlError + sr2.ReadToEnd 'ffmpegOutput2 = sr.ReadLine Debug.WriteLine(CurlOutput) Loop Until Proc.HasExited Or Microsoft.VisualBasic.DateAndTime.Timer < finish If CurlOutput = Nothing And CurlError = Nothing Then Debug.WriteLine("curl-E: " + "curl: ") Return CurlError ElseIf CurlOutput = Nothing And CurlError IsNot Nothing Then Debug.WriteLine("curl-E: " + CurlError) Return CurlError ElseIf CurlOutput IsNot Nothing And CurlError = Nothing Then Debug.WriteLine("curl-O: " + CurlOutput) Return CurlOutput ElseIf CurlOutput IsNot Nothing And CurlError IsNot Nothing Then Debug.WriteLine("curl-O: " + CurlOutput) Return CurlOutput Else Debug.WriteLine("curl-E: " + "curl: ") Return CurlError End If End Function #End Region #Region "CR-Beta" Public Async Sub DownloadBetaSeasons() Try Dim ListOfEpisodes As New List(Of String) Dim EpisodeSplit() As String = CrBetaMassEpisodes.Split(New String() {Chr(34) + "id" + Chr(34) + ":" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries) 'My.Computer.FileSystem.WriteAllText("D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0 - CefSharp\Crunchyroll Downloader\bin\x64\Debug\WebInterface\EpisodeSplit.txt", CrBetaMassEpisodes, False) '"slug_title":" For i As Integer = 1 To EpisodeSplit.Count - 1 Dim EpisodeSplit2() As String = EpisodeSplit(i).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries) Dim EpisodeSplit3() As String = EpisodeSplit(i).Split(New String() {Chr(34) + "slug_title" + Chr(34) + ":" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries) Dim EpisodeSplit4() As String = EpisodeSplit3(1).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries) 'MsgBox("https://www.crunchyroll.com/watch/" + EpisodeSplit2(0) + "/" + EpisodeSplit4(0) + "/") If Url_locale = "" Then ListOfEpisodes.Add("https://www.crunchyroll.com/watch/" + EpisodeSplit2(0) + "/" + EpisodeSplit4(0) + "/") Else ListOfEpisodes.Add("https://www.crunchyroll.com/" + Url_locale + "/" + "watch/" + EpisodeSplit2(0) + "/" + EpisodeSplit4(0) + "/") End If Next Dim First As Integer = 0 Dim Last As Integer = 0 If Anime_Add.comboBox4.SelectedIndex > Anime_Add.comboBox3.SelectedIndex Or Anime_Add.comboBox4.SelectedIndex = Anime_Add.comboBox3.SelectedIndex Then First = Anime_Add.comboBox3.SelectedIndex Last = Anime_Add.comboBox4.SelectedIndex ElseIf Anime_Add.comboBox3.SelectedIndex > Anime_Add.comboBox4.SelectedIndex Then First = Anime_Add.comboBox4.SelectedIndex Last = Anime_Add.comboBox3.SelectedIndex End If Dim Anzahl As Integer = Anime_Add.comboBox4.SelectedIndex - Anime_Add.comboBox3.SelectedIndex For i As Integer = First To Last For e As Integer = 0 To Integer.MaxValue If Grapp_RDY = True Then Try Dim ItemFinshedCount As Integer = 0 ' Dim Item As New List(Of CRD_List_Item) Item.AddRange(Panel1.Controls.OfType(Of CRD_List_Item)) For i2 As Integer = 0 To Item.Count - 1 If Item(i2).GetIsStatusFinished() = True Then ItemFinshedCount = ItemFinshedCount + 1 End If Next RunningDownloads = Panel1.Controls.Count - ItemFinshedCount Catch ex As Exception RunningDownloads = Panel1.Controls.Count End Try If RunningDownloads < MaxDL Then Exit For Else 'MsgBox(e) Await Task.Delay(1000) End If Else Await Task.Delay(5000) End If Next If Anime_Add.Mass_DL_Cancel = False Then b = True Exit For Grapp_Abord = True Grapp_RDY = True 'MsgBox("dl_abourd") End If If UseQueue = True Then Anime_Add.ListBox1.Items.Add(ListOfEpisodes(i)) Anime_Add.Add_Display.ForeColor = Color.FromArgb(9248044) Pause(1) Anime_Add.Add_Display.ForeColor = Color.Black Else Grapp_RDY = False b = False Debug.WriteLine("b: " + b.ToString) Anime_Add.LoadBrowser(ListOfEpisodes(i)) End If Anime_Add.Add_Display.Text = (i - First + 1).ToString + " / " + (Last - First + 1).ToString Next Catch ex As Exception If Debug2 = True Then MsgBox(ex.ToString) End If Anime_Add.comboBox4.Items.Clear() Anime_Add.comboBox3.Items.Clear() Aktuell = 0.ToString Gesamt = 0.ToString Anime_Add.groupBox1.Visible = True Anime_Add.groupBox2.Visible = False Anime_Add.GroupBox3.Visible = False Anime_Add.Mass_DL_Cancel = False Anime_Add.btn_dl.Text = "Download" 'btn_dl.BackgroundImage = My.Resources.main_button_download_default End Try Pause(5) Anime_Add.groupBox1.Visible = True Anime_Add.groupBox2.Visible = False Anime_Add.GroupBox3.Visible = False Anime_Add.Mass_DL_Cancel = False Anime_Add.btn_dl.Text = "Download" 'Anime_Add.btn_dl.BackgroundImage = My.Resources.main_button_download_default End Sub Public Sub GetBetaSeasons(ByVal JsonUrl As String) ', ByVal SeasonJson As String) Anime_Add.groupBox2.Visible = True Anime_Add.bt_Cancel_mass.Enabled = True Anime_Add.bt_Cancel_mass.Visible = True Anime_Add.groupBox1.Visible = False Anime_Add.ComboBox1.Items.Clear() Anime_Add.comboBox3.Items.Clear() Anime_Add.comboBox4.Items.Clear() Anime_Add.ComboBox1.Text = Nothing Anime_Add.comboBox3.Text = Nothing Anime_Add.comboBox4.Text = Nothing Anime_Add.ComboBox1.Enabled = True Anime_Add.comboBox3.Enabled = True Anime_Add.comboBox4.Enabled = True Dim SeasonJson As String = Nothing 'Try ' Using client As New WebClient() ' client.Encoding = System.Text.Encoding.UTF8 ' client.Headers.Add(My.Resources.ffmpeg_user_agend.Replace(Chr(34), "")) ' SeasonJson = client.DownloadString(JsonUrl) ' End Using 'Catch ex As Exception ' Debug.WriteLine("error- getting SeasonJson data") 'End Try SeasonJson = Curl(JsonUrl) If CBool(InStr(SeasonJson, "curl:")) = True Then SeasonJson = Curl(JsonUrl) End If If CBool(InStr(SeasonJson, "curl:")) = True Then MsgBox("Error - Getting SeasonJson data") Exit Sub End If SeasonJson = CleanJSON(SeasonJson) Dim ParameterSplit() As String = JsonUrl.Split(New String() {"&locale="}, System.StringSplitOptions.RemoveEmptyEntries) CrBetaMassParameters = ParameterSplit(1) CrBetaMass = SeasonJson Dim BaseURLBuilder() As String = JsonUrl.Split(New String() {"seasons?"}, System.StringSplitOptions.RemoveEmptyEntries) CrBetaMassBaseURL = BaseURLBuilder(0) Dim SeasonSplit() As String = SeasonJson.Split(New String() {Chr(34) + "title" + Chr(34) + ":" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries) For i As Integer = 1 To SeasonSplit.Count - 1 Dim SeasonSplit2() As String = SeasonSplit(i).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries) Anime_Add.ComboBox1.Items.Add(SeasonSplit2(0)) Next End Sub Public Sub GetBetaVideoProxy(ByVal requesturl As String, ByVal WebsiteURL As String) ', ByVal ObjectJson As String, ByVal VideoJson As String) Dim Evaluator = New Thread(Sub() Me.GetBetaVideo(requesturl, WebsiteURL)) ', ObjectJson, VideoJson)) Evaluator.Start() End Sub Public Sub GetBetaVideo(ByVal Streams As String, ByVal WebsiteURL As String) ', ByVal ObjectJson As String, ByVal VideoJson As String) ' If b = False Then b = True End If Debug.WriteLine(Streams) Debug.WriteLine(vbCrLf) Debug.WriteLine("Website: " + WebsiteURL) 'CrBetaStreams = Nothing 'CrBetaObjects = Nothing 'CrBetaStreamsUrl = Nothing 'LoadedUrl = Nothing 'My.Computer.FileSystem.WriteAllText("D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0 - CefSharp\Crunchyroll Downloader\bin\x64\Debug\WebInterface\debugObjects.txt", ObjectJson, False) 'My.Computer.FileSystem.WriteAllText("D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0 - CefSharp\Crunchyroll Downloader\bin\x64\Debug\WebInterface\debugStreams.txt", VideoJson, False) Try Grapp_RDY = False Dim ffmpeg_command_temp As String = ffmpeg_command If VideoFormat = ".aac" Then Dim ffmpeg_command_Builder() As String = ffmpeg_command.Split(New String() {"-c:a copy"}, System.StringSplitOptions.RemoveEmptyEntries) ffmpeg_command_temp = "-c:a copy" + ffmpeg_command_Builder(1) End If Dim CR_MetadataUsage As Boolean = False Dim CR_Streams As New List(Of CR_Beta_Stream) Dim CR_series_title As String = Nothing Dim CR_season_number As String = Nothing Dim CR_season_number2 As String = Nothing Dim CR_episode As String = Nothing Dim CR_episode_duration_ms As String = "60000000" Dim CR_episode2 As String = Nothing Dim CR_Anime_Staffel_int As String = Nothing Dim CR_episode_int As String = Nothing Dim CR_title As String = Nothing Dim CR_audio_locale As String = Nothing #Region "Name + Pfad" Dim Pfad2 As String Dim TextBox2_Text As String = Nothing Dim CR_FilenName As String = Nothing Dim ObjectJson As String = Nothing Me.Invoke(New Action(Function() As Object TextBox2_Text = Anime_Add.TextBox2.Text Return Nothing End Function)) #Region "Name von Crunchyroll" Dim ObjectsURLBuilder() As String = Streams.Split(New String() {"videos"}, System.StringSplitOptions.RemoveEmptyEntries) Dim ObjectsURLBuilder2() As String = ObjectsURLBuilder(1).Split(New String() {"/streams"}, System.StringSplitOptions.RemoveEmptyEntries) Dim ObjectsURLBuilder3() As String = WebsiteURL.Split(New String() {"watch/"}, System.StringSplitOptions.RemoveEmptyEntries) Dim ObjectsURLBuilder4() As String = ObjectsURLBuilder3(1).Split(New String() {"/"}, System.StringSplitOptions.RemoveEmptyEntries) Dim ObjectsURL As String = ObjectsURLBuilder(0) + "objects/" + ObjectsURLBuilder4(0) + ObjectsURLBuilder2(1) Debug.WriteLine(ObjectsURL) ObjectJson = Curl(ObjectsURL) 'MsgBox(ObjectJson) If CBool(InStr(ObjectJson, "curl:")) = True Then ObjectJson = Curl(ObjectsURL) End If If CBool(InStr(ObjectJson, "curl:")) = True Then MsgBox("Error - Getting ObjectJson data") Exit Sub End If 'Try ' Using client As New WebClient() ' client.Encoding = System.Text.Encoding.UTF8 ' client.Headers.Add(My.Resources.ffmpeg_user_agend.Replace(Chr(34), "")) ' client.Headers.Add(CR_Cookies) 'document ' client.Headers.Add("Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/avif,image/webp,*/*;q=0.8") ' client.Headers.Add("Accept-Encoding: gzip, deflate, br") ' client.Headers.Add("Sec-Fetch-Dest: document") ' client.Headers.Add("Sec-Fetch-Mode: navigate") ' client.Headers.Add("Sec-Fetch-Site: none") 'Sec-Fetch-User ' client.Headers.Add("Sec-Fetch-User: ?1") ' ' client.Headers.Add("TE: trailers") ' client.Headers.Add("Upgrade-Insecure-Requests: 1") ' ObjectJson = client.DownloadString(ObjectsURL) ' End Using 'Catch ex As Exception ' Debug.WriteLine("error- getting name data") ' Debug.WriteLine(vbNewLine + ex.ToString) ' Exit Sub 'End Try 'Filter JSON esqaped characters 'Debug.WriteLine(Date.Now.ToString + "before:" + ObjectJson) ObjectJson = CleanJSON(ObjectJson) 'Debug.WriteLine(Date.Now.ToString + "after:" + ObjectJson) Dim ser As JObject = JObject.Parse(ObjectJson) Dim data As List(Of JToken) = ser.Children().ToList If TextBox2_Text = Nothing Or TextBox2_Text = "Use Custom Name" Then For Each item As JProperty In data item.CreateReader() Select Case item.Name Case "items" 'each record is inside the entries array For Each Entry As JObject In item.Values Try Dim Title As String = Entry("title").ToString CR_title = String.Join(" ", Title.Split(invalids, StringSplitOptions.RemoveEmptyEntries)).TrimEnd("."c).Replace(Chr(34), "").Replace("\", "").Replace("/", "").Replace(":", "") Debug.WriteLine(Date.Now.ToString + " CR-Title: " + CR_title) Catch ex As Exception End Try Dim SubData As List(Of JToken) = Entry.Children().ToList For Each SubItem As JProperty In SubData 'SubItem.CreateReader() Select Case SubItem.Name Case "episode_metadata" For Each SubEntry As JProperty In SubItem.Values Select Case SubEntry.Name Case "series_title" CR_series_title = SubEntry.Value.ToString.Replace(Chr(34), "").Replace("\", "").Replace("/", "").Replace(":", "") 'Case "season_title" ' CR_season_title = SubEntry.Value.ToString Case "season_number" CR_season_number = SubEntry.Value.ToString.Replace(Chr(34), "").Replace("\", "").Replace("/", "").Replace(":", "") Case "episode_number" CR_episode2 = SubEntry.Value.ToString.Replace(Chr(34), "").Replace("\", "").Replace("/", "").Replace(":", "") Case "episode" CR_episode = SubEntry.Value.ToString.Replace(Chr(34), "").Replace("\", "").Replace("/", "").Replace(":", "") Case "duration_ms" CR_episode_duration_ms = SubEntry.Value.ToString.Replace(Chr(34), "").Replace("\", "").Replace("/", "").Replace(":", "") End Select Next End Select Next Next End Select Next 'My.Computer.Clipboard.SetText(ObjectJson) ' CR_Anime_Staffel_int = CR_season_number If CR_episode = Nothing Or CR_episode = "" And CR_episode2 = Nothing Then CR_episode_int = "0" ElseIf CR_episode IsNot Nothing And CR_episode IsNot "" Then CR_episode_int = CR_episode ElseIf CR_episode2 IsNot Nothing Then CR_episode_int = CR_episode2 End If If Season_Prefix = "[default season prefix]" Then If CR_episode = Nothing And CR_episode2 = Nothing Then 'no episode number means most likey a movie CR_season_number = Nothing ElseIf CR_season_number = Nothing Then Else CR_season_number = "Season " + CR_season_number End If Else If CR_episode = Nothing And CR_episode2 = Nothing Then 'no episode number means most likey a movie CR_season_number = Nothing ElseIf CR_season_number = Nothing Then Else CR_season_number = Season_Prefix + CR_season_number End If End If CR_season_number2 = CR_season_number If IgnoreSeason = 1 And CR_season_number = "1" Or IgnoreSeason = 1 And CR_season_number = "0" Then CR_season_number = Nothing ElseIf IgnoreSeason = 2 Then CR_season_number = Nothing End If If Episode_Prefix = "[default episode prefix]" Then If CR_episode = Nothing Or CR_episode = "" And CR_episode2 = Nothing Then CR_episode = CR_title ElseIf CR_episode IsNot Nothing And CR_episode IsNot "" Then CR_episode = "Episode " + AddLeadingZeros(CR_episode) ElseIf CR_episode2 IsNot Nothing Then CR_episode = "Episode " + AddLeadingZeros(CR_episode2) End If 'CR_episode = "Episode " + AddLeadingZeros(CR_episode) Else CR_episode = Episode_Prefix + AddLeadingZeros(CR_episode) End If If CR_NameMethode = 0 Then 'nummer If CR_season_number = Nothing And CR_episode = Nothing Then CR_FilenName = CR_series_title + " " + CR_title ElseIf CR_episode = Nothing Then CR_FilenName = CR_series_title + " " + CR_title ElseIf CR_season_number = Nothing Then CR_FilenName = CR_series_title + " " + CR_episode Else CR_FilenName = CR_series_title + " " + CR_season_number + " " + CR_episode End If ElseIf CR_NameMethode = 1 Then 'name If CR_season_number = Nothing Then CR_FilenName = CR_series_title + " " + CR_title Else CR_FilenName = CR_series_title + " " + CR_season_number + " " + CR_title End If ElseIf CR_NameMethode = 2 Then ' nummer - name If CR_season_number = Nothing And CR_episode = Nothing Then CR_FilenName = CR_series_title + " " + CR_title ElseIf CR_season_number = Nothing Then CR_FilenName = CR_series_title + " " + CR_episode + " " + CR_title Else CR_FilenName = CR_series_title + " " + CR_season_number + " " + CR_episode + " " + CR_title End If ElseIf CR_NameMethode = 3 Then ' name - nummer If CR_season_number = Nothing And CR_episode = Nothing Then CR_FilenName = CR_series_title + " " + CR_title ElseIf CR_season_number = Nothing Then CR_FilenName = CR_series_title + " " + CR_title + " " + CR_episode Else CR_FilenName = CR_series_title + " " + CR_title + " " + CR_season_number + " " + CR_episode End If End If If KodiNaming = True Then Dim KodiString As String = "[S" If CR_Anime_Staffel_int = "0" Then CR_Anime_Staffel_int = "01" Else CR_Anime_Staffel_int = "0" + CR_Anime_Staffel_int End If KodiString = KodiString + CR_Anime_Staffel_int + " E" + AddLeadingZeros(CR_episode_int) ' CR_episode_nr KodiString = KodiString + "] " CR_FilenName = KodiString + CR_FilenName End If Debug.WriteLine(CR_FilenName) #End Region Else CR_FilenName = RemoveExtraSpaces(String.Join(" ", TextBox2_Text.Split(invalids, StringSplitOptions.RemoveEmptyEntries)).TrimEnd("."c)).Replace(Chr(34), "").Replace("\", "").Replace("/", "") 'System.Text.RegularExpressions.Regex.Replace(TextBox2_Text, "[^\w\\-]", " ")) End If CR_FilenName = String.Join(" ", CR_FilenName.Split(invalids, StringSplitOptions.RemoveEmptyEntries)).TrimEnd("."c).Replace(Chr(34), "").Replace("\", "").Replace("/", "") 'System.Text.RegularExpressions.Regex.Replace(CR_FilenName, "[^\w\\-]", " ") CR_FilenName = RemoveExtraSpaces(CR_FilenName) 'My.Computer.FileSystem.WriteAllText("log.log", WebbrowserText, False) Pfad2 = UseSubfolder(CR_series_title, CR_season_number2, Pfad) If Not Directory.Exists(Path.GetDirectoryName(Pfad2)) Then ' Nein! Jetzt erstellen... Try Directory.CreateDirectory(Path.GetDirectoryName(Pfad2)) Pfad2 = Chr(34) + Pfad2 + CR_FilenName + VideoFormat + Chr(34) Catch ex As Exception ' Ordner wurde nich erstellt Pfad2 = Chr(34) + Pfad + "\" + CR_FilenName + VideoFormat + Chr(34) Pfad2 = Pfad2.Replace("\\", "\") End Try Else Pfad2 = Chr(34) + Pfad2 + CR_FilenName + VideoFormat + Chr(34) End If #End Region #Region "Chapters" 'MsgBox(ObjectsURLBuilder4(0)) Dim Mdata_File As String = Application.StartupPath + "\" + ObjectsURLBuilder4(0) + "-mdata.txt" If CR_Chapters = True Then Dim ChaptersUrl As String = "https://static.crunchyroll.com/datalab-intro-v2/" + ObjectsURLBuilder4(0) + ".json" Dim ChaptersJson As String = Nothing 'Try ' Using client As New WebClient() ' client.Encoding = System.Text.Encoding.UTF8 ' client.Headers.Add(My.Resources.ffmpeg_user_agend.Replace(Chr(34), "")) ' ChaptersJson = client.DownloadString(ChaptersUrl) ' End Using 'Catch ex As Exception ' Debug.WriteLine("no Chapter data... ignoring") 'End Try ChaptersJson = Curl(ChaptersUrl) If CBool(InStr(ChaptersJson, "curl:")) = True Then ChaptersJson = Curl(ChaptersUrl) End If If CBool(InStr(ChaptersJson, "curl:")) = True Then ChaptersJson = Nothing Debug.WriteLine("no Chapter data... ignoring") End If 'Debug.WriteLine("ChaptersJson: " + ChaptersJson) 'Debug.WriteLine("ChaptersUrl: " + ChaptersUrl) 'MsgBox(ChaptersJson) If ChaptersJson IsNot Nothing Then Dim StartTime As String() = ChaptersJson.Split(New String() {Chr(34) + "startTime" + Chr(34) + ": "}, System.StringSplitOptions.RemoveEmptyEntries) Dim StartTime2 As String() = StartTime(1).Split(New String() {","}, System.StringSplitOptions.RemoveEmptyEntries) Dim StartTime3 As String() = StartTime2(0).Split(New String() {"."}, System.StringSplitOptions.RemoveEmptyEntries) Dim StartTime4 As String = StartTime3(1) For i As Integer = StartTime4.Length To 2 StartTime4 = StartTime4 + "0" Next Dim StartTime_ms As String = StartTime3(0) + StartTime4 Dim EndTime As String() = ChaptersJson.Split(New String() {Chr(34) + "endTime" + Chr(34) + ": "}, System.StringSplitOptions.RemoveEmptyEntries) Dim EndTime2 As String() = EndTime(1).Split(New String() {","}, System.StringSplitOptions.RemoveEmptyEntries) Dim EndTime3 As String() = EndTime2(0).Split(New String() {"."}, System.StringSplitOptions.RemoveEmptyEntries) Dim EndTime4 As String = EndTime3(1) Dim AfterTime As String = Nothing For i As Integer = EndTime4.Length To 2 If EndTime4.Length = 2 Then AfterTime = EndTime4 + "1" End If EndTime4 = EndTime4 + "0" Next Dim EndTime_ms As String = EndTime3(0) + EndTime4 Dim AfterTime_ms As String = EndTime3(0) + AfterTime Dim Metadata As String = Nothing If CInt(CR_episode_duration_ms) < CInt(StartTime_ms) Then 'Totaly invalid... ElseIf CInt(CR_episode_duration_ms) < CInt(EndTime_ms) Then 'it's not an Intro it's an outro Dim DeCh As Integer = CInt(StartTime_ms) - 1 Metadata = My.Resources.ffmpeg_metadata_out.Replace("[Titel]", CR_FilenName).Replace("[Start-1]", DeCh.ToString).Replace("[Start]", StartTime_ms).Replace("[duration_ms]", CR_episode_duration_ms) Else Metadata = My.Resources.ffmpeg_metadata.Replace("[Titel]", CR_FilenName).Replace("[Start]", StartTime_ms).Replace("[END]", EndTime_ms).Replace("[after]", AfterTime_ms).Replace("[duration_ms]", CR_episode_duration_ms) End If If Metadata = Nothing Then Else Dim utf8WithoutBom2 As New System.Text.UTF8Encoding(False) Using sink As New StreamWriter(Mdata_File, False, utf8WithoutBom2) sink.WriteLine(Metadata) CR_MetadataUsage = True End Using End If End If End If #End Region #Region "VideoJson" Dim VideoJson As String = Nothing VideoJson = Curl(Streams) If CBool(InStr(VideoJson, "curl:")) = True Then VideoJson = Curl(Streams) End If If CBool(InStr(VideoJson, "curl:")) = True Then VideoJson = Nothing MsgBox("Error - Getting VideoJson data") Exit Sub End If Debug.WriteLine("VideoJson: " + VideoJson) Debug.WriteLine("VideoStreams: " + Streams) 'Try ' Using client As New WebClient() ' client.Encoding = System.Text.Encoding.UTF8 ' client.Headers.Add(My.Resources.ffmpeg_user_agend.Replace(Chr(34), "")) ' VideoJson = client.DownloadString(Streams) ' End Using 'Catch ex As Exception ' Debug.WriteLine("error- getting stream data") ' Exit Sub 'End Try Dim LangNew As String = ConvertCC(SubSprache) #End Region #Region "Download softsub file or build ffmpeg cmd" Dim SoftSubs2 As New List(Of String) If SoftSubs.Count > 0 Then For i As Integer = 0 To SoftSubs.Count - 1 If CBool(InStr(VideoJson, Chr(34) + "locale" + Chr(34) + ":" + Chr(34) + ConvertCC(SoftSubs(i)) + Chr(34) + "," + Chr(34) + "url" + Chr(34) + ":" + Chr(34))) Then SoftSubs2.Add(SoftSubs(i)) Else ' 'MsgBox("Softsubtitle for " + SoftSubs(i) + " is not avalible.", MsgBoxStyle.Information) End If Next End If Dim SoftSubMergeURLs As String = Nothing Dim SoftSubMergeMaps As String = " -map 0:v -map 0:a" Dim SoftSubMergeMetatata As String = Nothing Dim IndexMoveMap As Integer = 1 If CR_MetadataUsage = True Then IndexMoveMap = 2 End If If SoftSubs2.Count > 0 Then If MergeSubs = True And SubsOnly = False Then Dim DispositionIndex As Integer = 69 Debug.WriteLine("Softsubs Default: " + DefaultSubCR) For i As Integer = 0 To SoftSubs2.Count - 1 Debug.WriteLine("Softsubs: " + SoftSubs2(i)) If SoftSubs2(i) = DefaultSubCR Then DispositionIndex = i End If Dim SoftSub As String() = VideoJson.Split(New String() {Chr(34) + "locale" + Chr(34) + ":" + Chr(34) + ConvertCC(SoftSubs2(i)) + Chr(34) + "," + Chr(34) + "url" + Chr(34) + ":" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries) Dim SoftSub_2 As String() = SoftSub(1).Split(New [Char]() {Chr(34)}) Dim SoftSub_3 As String = SoftSub_2(0).Replace("&", "&").Replace("/u0026", "&").Replace("\u002F", "/").Replace("\u0026", "&") If SoftSubMergeURLs = Nothing Then SoftSubMergeURLs = " -i " + Chr(34) + SoftSub_3 + Chr(34) Else SoftSubMergeURLs = SoftSubMergeURLs + " -i " + Chr(34) + SoftSub_3 + Chr(34) End If SoftSubMergeMaps = SoftSubMergeMaps + " -map " + (i + IndexMoveMap).ToString If SoftSubMergeMetatata = Nothing Then SoftSubMergeMetatata = " -metadata:s:s:" + i.ToString + " language=" + CCtoMP4CC(SoftSubs2(i)) + " -metadata:s:s:" + i.ToString + " title=" + Chr(34) + HardSubValuesToDisplay(SoftSubs2(i)) + Chr(34) + " -metadata:s:s:" + i.ToString + " handler_name=" + Chr(34) + HardSubValuesToDisplay(SoftSubs2(i)) + Chr(34) Else SoftSubMergeMetatata = SoftSubMergeMetatata + " -metadata:s:s:" + i.ToString + " language=" + CCtoMP4CC(SoftSubs2(i)) + " -metadata:s:s:" + i.ToString + " title=" + Chr(34) + HardSubValuesToDisplay(SoftSubs2(i)) + Chr(34) + " -metadata:s:s:" + i.ToString + " handler_name=" + Chr(34) + HardSubValuesToDisplay(SoftSubs2(i)) + Chr(34) End If Next Debug.WriteLine("-disposition:s: " + DispositionIndex.ToString) If DispositionIndex = 69 Then Else SoftSubMergeMetatata = SoftSubMergeMetatata + " -disposition:s:" + DispositionIndex.ToString + " default" End If Else For i As Integer = 0 To SoftSubs2.Count - 1 Dim i2 As Integer = i Me.Invoke(New Action(Function() As Object Anime_Add.StatusLabel.Text = "Status: downloading subtitle file " + HardSubValuesToDisplay(SoftSubs2(i2)) Me.Text = "Status: downloading subtitle file " + HardSubValuesToDisplay(SoftSubs2(i2)) Me.Invalidate() Return Nothing End Function)) Dim SoftSub As String() = VideoJson.Split(New String() {Chr(34) + "locale" + Chr(34) + ":" + Chr(34) + ConvertCC(SoftSubs2(i)) + Chr(34) + "," + Chr(34) + "url" + Chr(34) + ":" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries) Dim SoftSub_2 As String() = SoftSub(1).Split(New [Char]() {Chr(34)}) Dim SoftSub_3 As String = SoftSub_2(0).Replace("&", "&").Replace("/u0026", "&").Replace("\u002F", "/").Replace("\u0026", "&") 'MsgBox(SoftSub_3) Dim str0 As String = Nothing If System.Environment.OSVersion.Version.Major < 10 Then str0 = Curl(SoftSub_3) Else Dim client0 As New WebClient client0.Encoding = Encoding.UTF8 str0 = client0.DownloadString(SoftSub_3) 'Curl(SoftSub_3) End If 'MsgBox(str0) Dim Pfad3 As String = Pfad2.Replace(Chr(34), "") Dim FN As String = Path.ChangeExtension(Path.Combine(Path.GetFileNameWithoutExtension(Pfad3) + "." + GetSubFileLangName(SoftSubs2(i)) + Path.GetExtension(Pfad3)), "ass") 'MsgBox(FN) If i = 0 And IncludeLangName = False Then FN = Path.ChangeExtension(Path.GetFileName(Pfad3), "ass") 'MsgBox(FN) End If Dim Pfad4 As String = Path.Combine(Path.GetDirectoryName(Pfad3), FN) 'MsgBox(Pfad4) 'File.WriteAllText(Pfad4, str0, Encoding.UTF8) WriteText(Pfad4, str0) Pause(3) Next End If End If #End Region #Region "m3u8 suche" VideoJson = CleanJSON(VideoJson) Dim VideoJObject As JObject = JObject.Parse(VideoJson) Dim VideoData As List(Of JToken) = VideoJObject.Children().ToList For Each item As JProperty In VideoData item.CreateReader() Select Case item.Name Case "audio_locale" Dim Title As String = item.Value.ToString CR_audio_locale = String.Join(" ", Title.Split(invalids, StringSplitOptions.RemoveEmptyEntries)).TrimEnd("."c).Replace(Chr(34), "").Replace("\", "").Replace("/", "").Replace(":", "") Case "streams" 'each record is inside the entries array For Each Entry As JProperty In item.Values Dim JsonEntryFormat As String = Entry.Name If CBool(InStr(JsonEntryFormat, "drm")) Or CBool(InStr(JsonEntryFormat, "dash")) Or CBool(InStr(JsonEntryFormat, "download")) Then Continue For End If Dim SubData As List(Of JToken) = Entry.Children().ToList For Each SubItem As JObject In SubData SubItem.CreateReader() Dim StreamFormats As List(Of JToken) = SubItem.Children().ToList For Each HardsubStreams As JProperty In StreamFormats HardsubStreams.CreateReader() Dim SubLang As String = HardsubStreams.Name Dim Url As String = HardsubStreams.Value("url").ToString If SubLang = Nothing Or SubLang = "" Then SubLang = "" End If CR_Streams.Add(New CR_Beta_Stream(CR_audio_locale, SubLang, JsonEntryFormat, Url)) Next Next Next End Select Next Dim CR_URI_Master As String = Nothing 'Me.Invoke(New Action(Function() As Object ' MsgBox(CR_Streams.Count.ToString + vbNewLine + LangNew) ' Return Nothing ' End Function)) Dim RawStream As String = "" For i As Integer = 0 To CR_Streams.Count - 1 Debug.WriteLine(CR_Streams.Item(i).subLang) If CR_Streams.Item(i).subLang = LangNew Then CR_URI_Master = CR_Streams.Item(i).Url ElseIf CR_Streams.Item(i).subLang = "" And CR_audio_locale IsNot "ja-JP" And DubMode = True Then 'nothing/raw RawStream = CR_Streams.Item(i).Url End If Next If CR_URI_Master = Nothing And RawStream IsNot "" Then CR_URI_Master = RawStream ElseIf CR_URI_Master = Nothing Then Me.Invoke(New Action(Function() As Object ResoNotFoundString = VideoJson DialogTaskString = "Language_CR_Beta" ErrorDialog.ShowDialog() Return Nothing End Function)) If UserCloseDialog = True Then Throw New System.Exception(Chr(34) + "UserAbort" + Chr(34)) Else LangNew = ResoBackString ResoBackString = Nothing For i As Integer = 0 To CR_Streams.Count - 1 Debug.WriteLine(CR_Streams.Item(i).subLang) If CR_Streams.Item(i).subLang = LangNew Then CR_URI_Master = CR_Streams.Item(i).Url End If Next End If End If CR_URI_Master = CR_URI_Master.Replace("&", "&").Replace("/u0026", "&").Replace("\u002F", "/").Replace("\u0026", "&") If CBool(InStr(CR_URI_Master, "master.m3u8")) Then Me.Invoke(New Action(Function() As Object Anime_Add.StatusLabel.Text = "Status: m3u8 found, looking for resolution" Me.Text = "Status: m3u8 found, looking for resolution" Me.Invalidate() Return Nothing End Function)) Else Throw New System.Exception("Premium Episode") End If 'Else ' Me.Invoke(New Action(Function() As Object ' Anime_Add.StatusLabel.Text = "Status: Substitles only mode - skipped video" ' Me.Text = "Status: Substitles only mode - skipped video" ' Me.Invalidate() ' Return Nothing ' End Function)) 'End If #End Region #Region "lösche doppel download" Dim Pfad5 As String = Pfad2.Replace(Chr(34), "") If My.Computer.FileSystem.FileExists(Pfad5) And SubsOnly = False Then 'Pfad = Kompeltter Pfad mit Dateinamen + ENdung Me.Invoke(New Action(Function() As Object Anime_Add.StatusLabel.Text = "Status: The file video already exists." Me.Text = "Status: The file video already exists." Me.Invalidate() Return Nothing End Function)) If MessageBox.Show("The file " + Pfad5 + " already exists." + vbNewLine + "You want to override it?", "File exists!", MessageBoxButtons.OKCancel) = DialogResult.OK Then Try My.Computer.FileSystem.DeleteFile(Pfad5) Catch ex As Exception End Try Else Grapp_RDY = True Exit Sub End If End If #End Region If SubsOnly = False Then If Reso = 42 And HybridMode = False Then If MergeSubs = True And CR_MetadataUsage = False Then URL_DL = "-i " + Chr(34) + CR_URI_Master + Chr(34) + SoftSubMergeURLs + SoftSubMergeMaps + " " + ffmpeg_command_temp + " -c:s " + MergeSubsFormat + SoftSubMergeMetatata + " -metadata:s:a:0 language=" + CCtoMP4CC(CR_audio_locale) ElseIf MergeSubs = False And CR_MetadataUsage = False Then URL_DL = "-i " + Chr(34) + CR_URI_Master + Chr(34) + " -metadata:s:a:0 language=" + CCtoMP4CC(CR_audio_locale) + " " + ffmpeg_command_temp ElseIf MergeSubs = True And CR_MetadataUsage = True Then URL_DL = "-i " + Chr(34) + CR_URI_Master + Chr(34) + "-i " + Chr(34) + Mdata_File + Chr(34) + "-map_metadata 1" + SoftSubMergeURLs + SoftSubMergeMaps + " " + ffmpeg_command_temp + " -c:s " + MergeSubsFormat + SoftSubMergeMetatata + " -metadata:s:a:0 language=" + CCtoMP4CC(CR_audio_locale) ElseIf MergeSubs = False And CR_MetadataUsage = True Then URL_DL = "-i " + Chr(34) + CR_URI_Master + Chr(34) + "-i " + Chr(34) + Mdata_File + Chr(34) + "-map_metadata 1" + " -metadata:s:a:0 language=" + CCtoMP4CC(CR_audio_locale) + " " + ffmpeg_command_temp End If 'MsgBox(URL_DL) Else Dim str As String = Nothing If System.Environment.OSVersion.Version.Major < 10 Then str = Curl(CR_URI_Master) Else Dim client As New System.Net.WebClient client.Encoding = Encoding.UTF8 str = client.DownloadString(CR_URI_Master) End If 'MsgBox(str) If CBool(InStr(str, "x" + Reso.ToString + ",")) Then Reso2 = "x" + Reso.ToString Else 'MsgBox(str) If CBool(InStr(str, ResoSave + ",")) Then Reso2 = Reso2 Else Me.Invoke(New Action(Function() As Object DialogTaskString = "Resolution" ResoNotFoundString = str ErrorDialog.ShowDialog() Return Nothing End Function)) 'MsgBox(ResoBackString) If UserCloseDialog = True Then Throw New System.Exception(Chr(34) + "UserAbort" + Chr(34)) Else Reso2 = ResoBackString ResoSave = ResoBackString End If End If End If Dim ffmpeg_url_1 As String() = str.Split(New String() {Reso2 + ","}, System.StringSplitOptions.RemoveEmptyEntries) Dim ffmpeg_url_3 As String() = Nothing Dim ffmpeg_url_2 As String() = ffmpeg_url_1(1).Split(New [Char]() {Chr(34)}) ffmpeg_url_3 = ffmpeg_url_2(2).Split(New [Char]() {System.Convert.ToChar("#")}) Debug.WriteLine("Line 2120-CR_audio_locale: " + CR_audio_locale) If MergeSubs = True And CR_MetadataUsage = False Then URL_DL = "-i " + Chr(34) + ffmpeg_url_3(0).Trim() + Chr(34) + SoftSubMergeURLs + SoftSubMergeMaps + " " + ffmpeg_command_temp + " -c:s " + MergeSubsFormat + SoftSubMergeMetatata + " -metadata:s:a:0 language=" + CCtoMP4CC(CR_audio_locale) ElseIf MergeSubs = False And CR_MetadataUsage = False Then URL_DL = "-i " + Chr(34) + ffmpeg_url_3(0).Trim() + Chr(34) + " -metadata:s:a:0 language=" + CCtoMP4CC(CR_audio_locale) + " " + ffmpeg_command_temp ElseIf MergeSubs = True And CR_MetadataUsage = True Then URL_DL = "-i " + Chr(34) + ffmpeg_url_3(0).Trim() + Chr(34) + " -i " + Chr(34) + Mdata_File + Chr(34) + SoftSubMergeURLs + SoftSubMergeMaps + " -map_metadata 1" + " " + ffmpeg_command_temp + " -c:s " + MergeSubsFormat + SoftSubMergeMetatata + " -metadata:s:a:0 language=" + CCtoMP4CC(CR_audio_locale) ElseIf MergeSubs = False And CR_MetadataUsage = True Then URL_DL = "-i " + Chr(34) + ffmpeg_url_3(0).Trim() + Chr(34) + " -i " + Chr(34) + Mdata_File + Chr(34) + " -map_metadata 1" + " -metadata:s:a:0 language=" + CCtoMP4CC(CR_audio_locale) + " " + ffmpeg_command_temp End If 'If MergeSubs = True And CR_MetadataUsage = False Then ' URL_DL = "-i " + Chr(34) + ffmpeg_url_3(0).Trim() + Chr(34) + SoftSubMergeURLs + SoftSubMergeMaps + " " + ffmpeg_command + " -c:s " + MergeSubsFormat + SoftSubMergeMetatata + " -metadata:s:a:0 language=" + CCtoMP4CC(CR_audio_locale) 'Else ' URL_DL = "-i " + Chr(34) + ffmpeg_url_3(0).Trim() + Chr(34) + " -metadata:s:a:0 language=" + CCtoMP4CC(CR_audio_locale) + " " + ffmpeg_command_temp 'End If End If End If #Region "thumbnail" Dim thumbnail As String() = ObjectJson.Split(New String() {"https://"}, System.StringSplitOptions.RemoveEmptyEntries) Dim thumbnail2 As String() = thumbnail(1).Split(New String() {Chr(34) + "}"}, System.StringSplitOptions.RemoveEmptyEntries) '(New [Char]() {"-"}) Dim thumbnail3 As String = "https://" + thumbnail2(0).Replace("\/", "/") #End Region #Region "
  • constructor" Dim Subsprache3 As String = "none" 'HardSubValuesToDisplay(SubSprache2.Replace(Chr(34), "")) Dim ResoHTMLDisplay As String = Nothing If ResoBackString = Nothing Then ResoHTMLDisplay = Reso.ToString + "p" ElseIf DialogTaskString = "Language" Then ResoHTMLDisplay = Reso.ToString + "p" Else Dim ResoHTML As String() = ResoBackString.Split(New String() {"x"}, System.StringSplitOptions.RemoveEmptyEntries) If ResoHTML.Count > 1 Then ResoHTMLDisplay = ResoHTML(1) + "p" Else ResoHTMLDisplay = ResoHTML(0) + "p" End If End If Dim L2Name As String = String.Join(" ", CR_FilenName.Split(invalids, StringSplitOptions.RemoveEmptyEntries)).TrimEnd("."c) 'System.Text.RegularExpressions.Regex.Replace(CR_FilenName_Backup, "[^\w\\-]", " ") If Reso = 42 And HybridMode = False Then ResoHTMLDisplay = "[Auto]" ElseIf Reso = 42 And HybridMode = False Then ResoHTMLDisplay = Reso2 End If Pfad_DL = Pfad2 Dim L1Name_Split As String() = WebsiteURL.Split(New String() {"/"}, System.StringSplitOptions.RemoveEmptyEntries) Dim L1Name As String = L1Name_Split(1).Replace("www.", "") + " | Dub : " + HardSubValuesToDisplay(CR_audio_locale) If SubsOnly = True Then URL_DL = "-i [Subtitles only]" End If Me.Invoke(New Action(Function() As Object ListItemAdd(Path.GetFileName(Pfad_DL.Replace(Chr(34), "")), L1Name, L2Name, ResoHTMLDisplay, Subsprache3, SubValuesToDisplay(), thumbnail3, URL_DL, Pfad_DL) Return Nothing End Function)) 'liList.Add(My.Resources.htmlvorThumbnail + thumbnail3 + My.Resources.htmlnachTumbnail + CR_title + "
    " + CR_season_number + " " + CR_episode + My.Resources.htmlvorAufloesung + ResoHTMLDisplay + My.Resources.htmlvorSoftSubs + vbNewLine + SubValuesToDisplay() + My.Resources.htmlvorHardSubs + Subsprache3 + My.Resources.htmlnachHardSubs + "") 'Form1.RichTextBox1.Text = My.Resources.htmlvorThumbnail + thumbnail3 + My.Resources.htmlnachTumbnail + CR_Anime_Titel + "
    " + CR_Anime_Staffel + " " + CR_Anime_Folge + My.Resources.htmlvorAufloesung + ResoHTMLDisplay + My.Resources.htmlvorSoftSubs + vbNewLine + SubValuesToDisplay() + My.Resources.htmlvorHardSubs + Subsprache3 + My.Resources.htmlnachHardSubs + "" #End Region Grapp_RDY = True Me.Invoke(New Action(Function() As Object Anime_Add.StatusLabel.Text = "Status: idle" Me.Text = "Crunchyroll Downloader" ResoBackString = Nothing Me.Invalidate() Return Nothing End Function)) Catch ex As Exception Me.Invoke(New Action(Function() As Object Anime_Add.StatusLabel.Text = "Status: idle" Me.Text = "Crunchyroll Downloader" ResoBackString = Nothing Me.Invalidate() Return Nothing End Function)) Grapp_RDY = True If CBool(InStr(ex.ToString, "Could not find the sub language")) Then MsgBox(Sub_language_NotFound + SubSprache) ElseIf CBool(InStr(ex.ToString, "RESOLUTION Not Found")) Then MsgBox(Resolution_NotFound) ElseIf CBool(InStr(ex.ToString, "Premium Episode")) Then MsgBox(Premium_Stream, MsgBoxStyle.Information) ElseIf CBool(InStr(ex.ToString, "System.UnauthorizedAccessException")) Then MsgBox(ErrorNoPermisson + vbNewLine + ex.ToString, MsgBoxStyle.Information) ElseIf CBool(InStr(ex.ToString, Chr(34) + "UserAbort" + Chr(34))) Then MsgBox(ex.ToString, MsgBoxStyle.Information) Else MsgBox(ex.ToString, MsgBoxStyle.Information) End If End Try End Sub Function Convert_locale(ByVal locale As String) As String Try If locale = "de" Then Return "de-DE" ElseIf locale = "" Then Return "en-US" ElseIf locale = "pt-br" Then Return "pt-BR" ElseIf locale = "es" Then Return "es-419" ElseIf locale = "fr" Then Return "fr-FR" ElseIf locale = "ar" Then Return "ar-SA" ElseIf locale = "ru" Then Return "ru-RU" ElseIf locale = "it" Then Return "it-IT" ElseIf locale = "es-es" Then Return "es-ES" ElseIf locale = "pt-pt" Then Return "pt-PT" Else Return "en-US" End If Catch ex As Exception Return Nothing End Try End Function Function ConvertCC(ByVal CC As String) As String Try If CC = "deDE" Then Return "de-DE" ElseIf CC = "enUS" Then Return "en-US" ElseIf CC = "ptBR" Then Return "pt-BR" ElseIf CC = "esLA" Then Return "es-LA" ElseIf CC = "es-419" Then Return "es-419" ElseIf CC = "frFR" Then Return "fr-FR" ElseIf CC = "arME" Then Return "ar-ME" ElseIf CC = "ar-SA" Then Return "ar-SA" ElseIf CC = "ruRU" Then Return "ru-RU" ElseIf CC = "itIT" Then Return "it-IT" ElseIf CC = "esES" Then Return "es-ES" ElseIf CC = "jaJP" Then Return "ja-JP" ElseIf CC = "None" Then Return "" Else Return CB_SuB_Nothing End If Catch ex As Exception Return Nothing End Try End Function #End Region Private Sub Btn_Close_Click(sender As Object, e As EventArgs) Handles Btn_Close.Click If RunningDownloads > 0 Then If MessageBox.Show("Are you sure you want close the program and end all active downloads?", "confirm?", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then Dim Item As New List(Of CRD_List_Item) Item.AddRange(Panel1.Controls.OfType(Of CRD_List_Item)) For i As Integer = 0 To Item.Count - 1 Item(i).KillRunningTask() Next RemoveTempFiles() Me.Close() End If Else Timer3.Enabled = False RemoveTempFiles() Me.Close() End If End Sub Private Sub RemoveTempFiles() Try Dim files() As String = System.IO.Directory.GetFiles(Application.StartupPath) For Each file As String In files If CBool(InStr(file, "CRD-Temp-File-")) Or CBool(InStr(file, "-mdata.txt")) Then System.IO.File.Delete(file) End If Next Catch ex As Exception End Try If KeepCache = False Then Try Dim di As New System.IO.DirectoryInfo(Pfad) For Each fi As System.IO.DirectoryInfo In di.EnumerateDirectories("*.*", System.IO.SearchOption.TopDirectoryOnly) If fi.Attributes.HasFlag(System.IO.FileAttributes.Hidden) Then Else If CBool(InStr(fi.Name, "CRD-Temp-File-")) Then System.IO.Directory.Delete(fi.FullName, True) End If End If Next Catch ex As Exception End Try End If End Sub Private Sub RetryWithCachedFiles() Try Dim di As New System.IO.DirectoryInfo(Pfad) For Each fi As System.IO.DirectoryInfo In di.EnumerateDirectories("*.*", System.IO.SearchOption.TopDirectoryOnly) If fi.Attributes.HasFlag(System.IO.FileAttributes.Hidden) Then Else If CBool(InStr(fi.Name, "CRD-Temp-File-")) Then If File.Exists(fi.FullName + "\Retry\retry.txt") Then If MessageBox.Show("Cached data found, you can try to retry the download by pressing 'Yes'", "Retry?", MessageBoxButtons.YesNo) = DialogResult.Yes Then Dim L1Name As String = Nothing Dim L2Name As String = Nothing Dim ResoHTMLDisplay As String = Nothing Dim Subsprache3 As String = Nothing Dim thumbnail3 As String = "file:///" + fi.FullName + "/Retry/retry.jpg" Dim Pfad2 As String = fi.FullName Dim URL2 As String = Nothing Dim Filename As String = Nothing Dim reader As StreamReader = My.Computer.FileSystem.OpenTextFileReader(fi.FullName + "\Retry\retry.txt") Dim a As String For i As Integer = 0 To 5 a = reader.ReadLine If i = 0 Then URL2 = a ElseIf i = 1 Then L1Name = a ElseIf i = 2 Then L2Name = a ElseIf i = 3 Then ResoHTMLDisplay = a ElseIf i = 4 Then Subsprache3 = a ElseIf i = 5 Then Filename = Path.GetFileName(a.Replace(Chr(34), "")) End If Next reader.Close() Me.Invoke(New Action(Function() As Object ListItemAdd(Filename, L1Name, L2Name, ResoHTMLDisplay, Subsprache3, SubValuesToDisplay(), thumbnail3, URL2, Pfad2) Return Nothing End Function)) ' liList.Add(My.Resources.htmlvorThumbnail + thumbnail3 + My.Resources.htmlnachTumbnail + L1Name + "
    " + L2Name + My.Resources.htmlvorAufloesung + ResoHTMLDisplay + My.Resources.htmlvorSoftSubs + vbNewLine + SubValuesToDisplay() + My.Resources.htmlvorHardSubs + Subsprache3 + My.Resources.htmlnachHardSubs + "") Else Grapp_non_cr_RDY = True System.IO.Directory.Delete(fi.FullName, True) Exit Sub End If Else System.IO.Directory.Delete(fi.FullName, True) End If End If End If Next Catch ex As Exception End Try End Sub Private Sub Btn_add_Click(sender As Object, e As EventArgs) Handles Btn_add.Click If Application.OpenForms().OfType(Of CefSharp_Browser).Any = True Then Else UserBowser = False CefSharp_Browser.Show() End If If Anime_Add.WindowState = System.Windows.Forms.FormWindowState.Minimized Then Anime_Add.WindowState = System.Windows.Forms.FormWindowState.Normal Else Anime_Add.Show() End If End Sub Private Sub Btn_Settings_Click(sender As Object, ByVal e As EventArgs) Handles Btn_Settings.Click Einstellungen.Show() End Sub Private Sub ToggleDebugModeToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ToggleDebugModeToolStripMenuItem.Click If Debug2 = True Then Debug2 = False MsgBox("Debug Mode Disabled") Else Debug2 = True MsgBox("Debug Mode Enabled") End If End Sub Private Sub OpenSettingsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OpenSettingsToolStripMenuItem.Click Einstellungen.Show() End Sub Private Sub Btn_Settings_DoubleClick(sender As Object, e As EventArgs) Handles Btn_Settings.DoubleClick Einstellungen.Close() If Debug1 = True Then If Debug2 = True Then Einstellungen.Close() Try My.Computer.Clipboard.SetText(WebbrowserText) MsgBox("webbrowser text copyed to the clipboard") Catch ex As Exception End Try Else Debug2 = True Einstellungen.Close() MsgBox("Debug activated") End If Else Debug1 = True Einstellungen.Close() 'MsgBox("Debug activated") End If End Sub Private Sub Btn_Browser_Click(sender As Object, e As EventArgs) Handles Btn_Browser.Click Debug.WriteLine(Date.Now.ToString + "." + Date.Now.Millisecond.ToString) UserBowser = True If Application.OpenForms().OfType(Of CefSharp_Browser).Any = True Then CefSharp_Browser.Location = Me.Location Else CefSharp_Browser.Location = Me.Location CefSharp_Browser.Show() End If End Sub Public Function RemoveExtraSpaces(input_text As String) As String Dim rsRegEx As System.Text.RegularExpressions.Regex rsRegEx = New System.Text.RegularExpressions.Regex("\s+") Return rsRegEx.Replace(input_text, " ").Trim() End Function #Region "unused" 'Public Shared Function GetPage(url As String) As String ' Try ' Dim ourUri As New Uri(url) ' Dim myHttpWebRequest As HttpWebRequest = CType(WebRequest.Create(ourUri), HttpWebRequest) ' myHttpWebRequest.Timeout = 10000 ' Dim myHttpWebResponse As HttpWebResponse = CType(myHttpWebRequest.GetResponse(), HttpWebResponse) ' Return myHttpWebResponse.ResponseUri.ToString ' myHttpWebResponse.Close() ' Catch e As Exception ' 'MsgBox(e.Message.ToString) ' Return url ' End Try 'End Function Sub FFMPEGResoBack(ByVal sender As Object, ByVal e As DataReceivedEventArgs) If CBool(InStr(e.Data, ": Video:")) Then Dim ZeileReso() As String = e.Data.Split(New String() {" ["}, System.StringSplitOptions.RemoveEmptyEntries) Dim ZeileReso2() As String = ZeileReso(0).Split(New String() {"x"}, System.StringSplitOptions.RemoveEmptyEntries) Dim ZeileReso3() As String = e.Data.Split(New String() {": Video:"}, System.StringSplitOptions.RemoveEmptyEntries) Dim ZeileReso4() As String = ZeileReso3(0).Split(New String() {"Stream #"}, System.StringSplitOptions.RemoveEmptyEntries) ResoAvalibe = ResoAvalibe + vbNewLine + ZeileReso2(ZeileReso2.Count - 1).Trim + ":--:" + ZeileReso4(1) ElseIf CBool(InStr(e.Data, "At least one output file must be specified")) Then ResoSearchRunning = False End If End Sub Public Sub FFMPEG_Reso(ByVal DL_URL As String) ResoSearchRunning = True Dim proc As New Process Dim exepath As String = Application.StartupPath + "\ffmpeg.exe" Dim startinfo As New System.Diagnostics.ProcessStartInfo Dim cmd As String = "-i " + Chr(34) + DL_URL + Chr(34) 'start ffmpeg with command strFFCMD string Dim ffmpegOutput As String = Nothing Dim ffmpegOutput2 As String = Nothing 'all parameters required to run the process startinfo.FileName = exepath startinfo.Arguments = cmd startinfo.UseShellExecute = False startinfo.WindowStyle = ProcessWindowStyle.Hidden startinfo.RedirectStandardError = True startinfo.RedirectStandardOutput = True startinfo.CreateNoWindow = True startinfo.StandardOutputEncoding = Encoding.UTF8 startinfo.StandardErrorEncoding = Encoding.UTF8 AddHandler proc.ErrorDataReceived, AddressOf FFMPEGResoBack AddHandler proc.OutputDataReceived, AddressOf FFMPEGResoBack proc.StartInfo = startinfo proc.Start() ' start the process proc.BeginOutputReadLine() proc.BeginErrorReadLine() 'Dim ZeitAnzeige As String = Nothing 'Dim StreamNR As String = Nothing ''Math.Abs() 'Dim AllReso As String = "1080p720p480p360p" 'Dim AllResoArry() As String = AllReso.Split(New String() {"p"}, System.StringSplitOptions.RemoveEmptyEntries) 'Dim Zeilen() As String = ffmpegOutput.Split(New String() {vbNewLine}, System.StringSplitOptions.RemoveEmptyEntries) 'For i As Integer = 0 To Zeilen.Count - 1 ' If CBool(InStr(Zeilen(i), "x" + Reso.ToString + " [") Then ' Dim ZeileReso() As String = Zeilen(i).Split(New String() {": Video:"}, System.StringSplitOptions.RemoveEmptyEntries) ' Dim ZeileReso2() As String = ZeileReso(0).Split(New String() {"Stream #"}, System.StringSplitOptions.RemoveEmptyEntries) ' StreamNR = ZeileReso2(1) ' End If 'Next 'Return ZeitAnzeige + "#1" + StreamNR End Sub #End Region Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick Try Dim ItemFinshedCount As Integer = 0 Dim Item As New List(Of CRD_List_Item) Item.AddRange(Panel1.Controls.OfType(Of CRD_List_Item)) For i As Integer = 0 To Item.Count - 1 Debug.WriteLine(Item(i).GetIsStatusFinished().ToString) If Item(i).GetIsStatusFinished() = True Then ItemFinshedCount = ItemFinshedCount + 1 End If Next RunningDownloads = Item.Count - ItemFinshedCount If RunningDownloads > 0 Then SetThreadExecutionState(EXECUTION_STATE.ES_SYSTEM_REQUIRED Or EXECUTION_STATE.ES_CONTINUOUS) Else SetThreadExecutionState(EXECUTION_STATE.ES_CONTINUOUS) End If Catch ex As Exception Debug.WriteLine("Failed? : " + ex.ToString) RunningDownloads = Panel1.Controls.Count End Try 'Debug.WriteLine("Running: " + RunningDownloads.ToString) 'FontLabel2.Text = RunningDownloads.ToString 'Debug.WriteLine("downloads.tick: " + RunningDownloads.ToString) End Sub #Region "Funimation JS " Public Sub GetFunimationJS_Seasons(Optional ByVal JsonUrl As String = Nothing, Optional ByVal Json As String = Nothing) FunimtaionSeasonList.Clear() Dim SeasonJson As String = Nothing Debug.WriteLine("JsonUrl: " + JsonUrl) If JsonUrl = Nothing Then SeasonJson = Json Else FunimationSeasonAPIUrl = JsonUrl 'Navigate(JsonUrl) 'FunimationJsonBrowser = "SeasonJson" 'Exit Sub Try Using client As New WebClient() client.Encoding = System.Text.Encoding.UTF8 client.Headers.Add(My.Resources.ffmpeg_user_agend.Replace(Chr(34), "")) SeasonJson = client.DownloadString(JsonUrl) End Using Catch ex As Exception Debug.WriteLine("error- getting funimation SeasonJson data") FunimationJsonBrowser = "SeasonJson" Navigate(JsonUrl) 'Navigate(JsonUrl) Exit Sub End Try End If Debug.WriteLine("SeasonJson: " + SeasonJson) Dim ser As JObject = JObject.Parse(SeasonJson) Dim data As List(Of JToken) = ser.Children().ToList Dim Slug As String = Nothing Dim Title As String = Nothing Dim ID As String = Nothing For Each item As JProperty In data item.CreateReader() 'MsgBox(item.Name) Select Case item.Name Case "slug" Slug = item.Value.ToString Case "index" 'each record is inside the entries array Dim SubData2 As List(Of JToken) = item.Values("seasons").Children().ToList For i As Integer = 0 To SubData2.Count - 1 Dim SubItem As JToken = SubData2.Item(i) Dim SeasonSubData As List(Of JToken) = SubItem.Children().ToList For Each SeasonSubItem As JProperty In SeasonSubData SeasonSubItem.CreateReader() Select Case SeasonSubItem.Name Case "contentId" 'MsgBox(SeasonSubItem.Value.ToString) ID = SeasonSubItem.Value.ToString Case "title" ' MsgBox(SeasonSubItem.Value.Item("en").ToString) Title = SeasonSubItem.Value.Item("en").ToString FunimtaionSeasonList.Add(New FunimationOverview(Slug, ID, Title)) End Select Next Next End Select Next 'Debug.WriteLine("SeasonJson: ") Anime_Add.groupBox2.Visible = True Anime_Add.bt_Cancel_mass.Enabled = True Anime_Add.bt_Cancel_mass.Visible = True Anime_Add.groupBox1.Visible = False Anime_Add.ComboBox1.Items.Clear() Anime_Add.comboBox3.Items.Clear() Anime_Add.comboBox4.Items.Clear() Anime_Add.ComboBox1.Text = Nothing Anime_Add.comboBox3.Text = Nothing Anime_Add.comboBox4.Text = Nothing Anime_Add.ComboBox1.Enabled = True Anime_Add.comboBox3.Enabled = False Anime_Add.comboBox4.Enabled = False WebbrowserURL = "https://funimation.com/js" Debug.WriteLine("Count: " + FunimtaionSeasonList.Count.ToString) For i As Integer = 0 To FunimtaionSeasonList.Count - 1 Debug.WriteLine(FunimtaionSeasonList.Item(i).Title) Anime_Add.ComboBox1.Items.Add(FunimtaionSeasonList.Item(i).Title) Next End Sub Public Async Sub DownloadFunimationJS_Seasons() Try #Region "JS" Debug.WriteLine("EpisodeJson: " + FunimationEpisodeJSON) Anime_Add.Add_Display.Text = "preparing ...." Dim ListOfEpisodes As New List(Of String) Dim BaseURL As String = "https://www.funimation.com/v/" + FunimtaionSeasonList.Item(0).Slug + "/" 'If FunimationRegion IsNot Nothing Then ' BaseURL = "https://www.funimation.com/" + FunimationRegion + "/shows/" 'Else ' BaseURL = "https://www.funimation.com/en/shows/" 'End If 'Dim EpisodeSplit() As String = FunimationEpisodeJSON.Split(New String() {Chr(34) + "slug" + Chr(34) + ": " + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries) 'For i As Integer = 1 To EpisodeSplit.Count - 1 ' Dim EpisodeSplit2() As String = EpisodeSplit(i).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries) ' Debug.WriteLine(BaseURL + FunimationShowPath + EpisodeSplit2(0)) ' ListOfEpisodes.Add(BaseURL + FunimationShowPath + EpisodeSplit2(0)) '+ FunimationAPIRegion) 'Next Dim ser As JObject = JObject.Parse(FunimationEpisodeJSON) Dim data As List(Of JToken) = ser.Children().ToList For Each item As JProperty In data item.CreateReader() Select Case item.Name Case "episodes" 'each record is inside the entries array For Each Entry As JObject In item.Values Dim slug As String = Entry("slug").ToString 'Debug.WriteLine(BaseURL + FunimationShowPath + slug) 'ListOfEpisodes.Add(BaseURL + FunimationShowPath + slug) '+ FunimationAPIRegion) Debug.WriteLine(BaseURL + slug) ListOfEpisodes.Add(BaseURL + slug) Next End Select Next Dim First As Integer = 0 Dim Last As Integer = 0 Dim Anzahl As Integer = 0 If Anime_Add.comboBox4.SelectedIndex > Anime_Add.comboBox3.SelectedIndex Then First = Anime_Add.comboBox3.SelectedIndex Last = Anime_Add.comboBox4.SelectedIndex Anzahl = Last - First + 1 ElseIf Anime_Add.comboBox4.SelectedIndex < Anime_Add.comboBox3.SelectedIndex Then First = Anime_Add.comboBox4.SelectedIndex Last = Anime_Add.comboBox3.SelectedIndex Anime_Add.comboBox4.SelectedIndex = Last Anime_Add.comboBox3.SelectedIndex = First Anzahl = Last - First + 1 ElseIf Anime_Add.comboBox4.SelectedIndex = Anime_Add.comboBox3.SelectedIndex Then First = Anime_Add.comboBox4.SelectedIndex Last = Anime_Add.comboBox4.SelectedIndex Anzahl = Last - First + 1 End If Anime_Add.Add_Display.Text = Anzahl.ToString + " episodes selected" For i As Integer = First To Last For e As Integer = 0 To Integer.MaxValue If Funimation_Grapp_RDY = True Then Try Dim ItemFinshedCount As Integer = 0 Dim Item As New List(Of CRD_List_Item) Item.AddRange(Panel1.Controls.OfType(Of CRD_List_Item)) For i2 As Integer = 0 To Item.Count - 1 If Item(i2).GetIsStatusFinished() = True Then ItemFinshedCount = ItemFinshedCount + 1 End If Next RunningDownloads = Panel1.Controls.Count - ItemFinshedCount Catch ex As Exception RunningDownloads = Panel1.Controls.Count End Try If RunningDownloads < MaxDL Then Exit For Else 'MsgBox(e) Await Task.Delay(1000) End If Else Await Task.Delay(5000) End If Next If Anime_Add.Mass_DL_Cancel = False Then b = True Exit For Grapp_Abord = True 'MsgBox("dl_abourd") End If If UseQueue = True Then Anime_Add.ListBox1.Items.Add(ListOfEpisodes(i)) Anime_Add.Add_Display.ForeColor = Color.FromArgb(9248044) Pause(1) Anime_Add.Add_Display.ForeColor = Color.Black Else Funimation_Grapp_RDY = False b = False If CBool(InStr(ListOfEpisodes(i), "funimation.com/v/")) Then Dim Episode() As String = ListOfEpisodes(i).Split(New String() {"/"}, System.StringSplitOptions.RemoveEmptyEntries) Dim v1JsonUrl As String = "https://d33et77evd9bgg.cloudfront.net/data/v1/episodes/" + Episode(Episode.Length - 1) + ".json" Dim v1Json As String = Nothing Try Using client As New WebClient() client.Encoding = System.Text.Encoding.UTF8 client.Headers.Add(My.Resources.ffmpeg_user_agend.Replace(Chr(34), "")) v1Json = client.DownloadString(v1JsonUrl) End Using GetFunimationNewJS_VideoProxy(Nothing, v1Json) Catch ex As Exception Debug.WriteLine("error- getting v1Json data for the bypasss") Debug.WriteLine(ex.ToString) Navigate(ListOfEpisodes(i)) End Try Else Navigate(ListOfEpisodes(i)) End If End If Anime_Add.Add_Display.Text = (i - First + 1).ToString + " / " + (Last - First + 1).ToString Next #End Region Catch ex As Exception If Debug2 = True Then MsgBox(ex.ToString) End If Anime_Add.comboBox4.Items.Clear() Anime_Add.comboBox3.Items.Clear() Aktuell = 0.ToString Gesamt = 0.ToString Anime_Add.groupBox1.Visible = True Anime_Add.groupBox2.Visible = False Anime_Add.GroupBox3.Visible = False Anime_Add.Mass_DL_Cancel = False Anime_Add.btn_dl.Text = "Download" 'Anime_Add.btn_dl.BackgroundImage = My.Resources.main_button_download_default End Try FunimationEpisodeJSON = Nothing Pause(5) Anime_Add.groupBox1.Visible = True Anime_Add.groupBox2.Visible = False Anime_Add.GroupBox3.Visible = False Anime_Add.Mass_DL_Cancel = False Anime_Add.btn_dl.Text = "Download" 'Anime_Add.btn_dl.BackgroundImage = My.Resources.main_button_download_default End Sub Private Function ConvertFunimationDub(ByVal Dub As String) As String If Dub = "english" Then Return "English" ElseIf Dub = "spanish(Mexico)" Then Return "Spanish (Latin Am)" ElseIf Dub = "portuguese(Brazil)" Then Return "Portuguese (Brazil)" ElseIf Dub = "japanese" Then Return "Japanese" Else Return "N/A" End If End Function Private Function ConvertFunimationDubToJson(ByVal Dub As String) As String If Dub = "english" Then Return "en" ElseIf Dub = "spanish(Mexico)" Then Return "es" ElseIf Dub = "portuguese(Brazil)" Then Return "pt" ElseIf Dub = "japanese" Then 'japanese Return "ja" Else Return "N/A" End If End Function Private Function ConvertJsonToFunimationDub(ByVal Dub As String) As String If Dub = "en" Then Return "english" ElseIf Dub = "es" Then Return "spanish(Mexico)" ElseIf Dub = "pt" Then Return "portuguese(Brazil)" ElseIf Dub = "ja" Then Return "japanese" Else Return "N/A" End If End Function Public Sub GetFunimationNewJS_VideoProxy(Optional ByVal v1JsonURL As String = Nothing, Optional ByVal v1JsonData As String = Nothing) Try Dim Collector As New TaskCookieVisitor Dim CM As ICookieManager = CefSharp_Browser.WebBrowser1.GetCookieManager CM.VisitAllCookies(Collector) Dim list As List(Of Global.CefSharp.Cookie) = Collector.Task.Result() Dim Cookie As String = "" For i As Integer = 0 To list.Count - 1 If CBool(InStr(list.Item(i).Domain, "funimation.com")) Then 'list.Item(i).Domain = "funimation.com" Then 'MsgBox(list.Item(i).Name + vbNewLine + list.Item(i).Value) Cookie = Cookie + list.Item(i).Name + "=" + list.Item(i).Value + ";" End If If CBool(InStr(list.Item(i).Domain, "funimation.com")) And CBool(InStr(list.Item(i).Name, "src_token")) Then 'list.Item(i).Domain = "funimation.com" Then 'MsgBox(list.Item(i).Name + vbNewLine + list.Item(i).Value) FunimationToken = "Token " + list.Item(i).Value End If If CBool(InStr(list.Item(i).Domain, "funimation.com")) And CBool(InStr(list.Item(i).Name, "region")) Then 'list.Item(i).Domain = "funimation.com" Then 'MsgBox(list.Item(i).Name + vbNewLine + list.Item(i).Value) FunimationDeviceRegion = "?deviceType=web&" + list.Item(i).Name + "=" + list.Item(i).Value End If Next Catch ex As Exception End Try ' region=US; LoadedUrls.Clear() Dim Evaluator = New Thread(Sub() Me.GetFunimationNewJS_Video(v1JsonURL, v1JsonData)) Evaluator.Start() End Sub Public Sub GetFunimationNewJS_Video(ByVal v1JsonUrl As String, ByVal v1JsonData As String) ', ByVal WebsiteURL As String Debug.WriteLine(v1JsonUrl) Dim v1Json As String = Nothing If v1JsonUrl = Nothing Then v1Json = v1JsonData Else Try 'Throw New Exception("TEst") Using client As New WebClient() client.Encoding = System.Text.Encoding.UTF8 client.Headers.Add(My.Resources.ffmpeg_user_agend.Replace(Chr(34), "")) v1Json = client.DownloadString(v1JsonUrl) End Using Catch ex As Exception Debug.WriteLine("error- getting v1Json data") Debug.WriteLine(ex.ToString) Me.Invoke(New Action(Function() As Object 'Me.Text = "Status: error - getting v1Json data" FunimationJsonBrowser = "v1Json" Navigate(v1JsonUrl) 'Anime_Add.StatusLabel.Text = "Status: error - getting v1Json data" Me.Invalidate() Return Nothing End Function)) Exit Sub End Try End If 'Debug.WriteLine("v1Json: " + v1Json) If v1Json = Nothing Then Me.Invoke(New Action(Function() As Object Me.Text = "Status: error - getting v1Json data" Anime_Add.StatusLabel.Text = "Status: error - getting v1Json data" Me.Invalidate() Return Nothing End Function)) Exit Sub End If Try Dim ffmpeg_command_temp As String = ffmpeg_command If VideoFormat = ".aac" Then Dim ffmpeg_command_Builder() As String = ffmpeg_command.Split(New String() {"-c:a copy"}, System.StringSplitOptions.RemoveEmptyEntries) ffmpeg_command_temp = "-c:a copy" + ffmpeg_command_Builder(1) End If Me.Invoke(New Action(Function() As Object Me.Text = "Status: looking for video file" Anime_Add.StatusLabel.Text = "Status: looking for video file" Me.Invalidate() Return Nothing End Function)) Funimation_Grapp_RDY = False #Region "Name" Dim DownloadPfad As String = Nothing Dim FunimationSeason As String = Nothing Dim FunimationEpisode As String = Nothing Dim FunimationTitle As String = Nothing Dim FunimationEpisodeTitle As String = Nothing Dim FunimationDub As String = Nothing Dim FunimationAudioMap As String = Nothing Dim FunimationEpisodeJson As String = Nothing Dim thumbnail4 As String = "" Dim ser As JObject = JObject.Parse(v1Json) Dim data As List(Of JToken) = ser.Children().ToList For Each item As JProperty In data item.CreateReader() Select Case item.Name Case "images" 'each record is inside the entries array For Each Entry As JObject In item.Values Dim key As String = Entry("key").ToString If key = "Key Art - Official Video Image" Or key = "Episode Thumbnail" Then Dim path As String = Entry("path").ToString thumbnail4 = path End If Next Case "id" 'id.json for video FunimationEpisodeJson = item.Value.ToString Case "episodeNumber" Dim FunimationEpisode3 As String = RemoveExtraSpaces(item.Value.ToString) If Episode_Prefix = "[default episode prefix]" Then FunimationEpisode = "Episode " + AddLeadingZeros(FunimationEpisode3) Else FunimationEpisode = Episode_Prefix + AddLeadingZeros(FunimationEpisode3) End If Case "name" Dim NameData As List(Of JToken) = item.Values.ToList() For Each Name As JProperty In NameData Select Case Name.Name Case "en" FunimationEpisodeTitle = Name.Value.ToString Debug.WriteLine("FunimationEpisodeTitle: " + FunimationEpisodeTitle) End Select Next Case "season" 'each record is inside the entries array Dim SubData As List(Of JToken) = item.Values.ToList() For Each SubItem As JProperty In SubData Select Case SubItem.Name Case "name" If Season_Prefix = "[default season prefix]" Then Dim SeasonNameData As List(Of JToken) = SubItem.Values.ToList() For Each SeasonName As JProperty In SeasonNameData Select Case SeasonName.Name Case "en" FunimationSeason = SeasonName.Value.ToString Debug.WriteLine("FunimationSeason: " + FunimationSeason) End Select Next End If Case "number" If Season_Prefix = "[default season prefix]" Then 'FunimationSeason = Entry("name") Else Dim EpisodeNumer As String = SubItem.Value.ToString FunimationSeason = Season_Prefix + " " + EpisodeNumer Debug.WriteLine("FunimationSeason: " + FunimationSeason) End If End Select Next Case "show" 'each record is inside the entries array Dim SubData As List(Of JToken) = item.Values.ToList() For Each SubItem As JProperty In SubData Select Case SubItem.Name Case "name" Dim SeasonNameData As List(Of JToken) = SubItem.Values.ToList() For Each SeasonName As JProperty In SeasonNameData Select Case SeasonName.Name Case "en" FunimationTitle = SeasonName.Value.ToString Debug.WriteLine("FunimationTitle: " + FunimationTitle) End Select Next End Select Next End Select Next FunimationTitle = RemoveExtraSpaces(String.Join(" ", FunimationTitle.Split(invalids, StringSplitOptions.RemoveEmptyEntries)).TrimEnd("."c)).Replace(Chr(34), "").Replace("\", "").Replace("/", "") FunimationEpisodeTitle = String.Join(" ", FunimationEpisodeTitle.Split(invalids, StringSplitOptions.RemoveEmptyEntries)).TrimEnd("."c).Replace(Chr(34), "").Replace("\", "").Replace("/", "") FunimationDub = ConvertFunimationDub(DubFunimation) 'FunimationDub2(0) Dim DefaultName As String = RemoveExtraSpaces(FunimationTitle + " " + FunimationSeason + " " + FunimationEpisode) If CR_NameMethode = 1 Then DefaultName = RemoveExtraSpaces(FunimationTitle + " " + FunimationSeason + " " + FunimationEpisodeTitle) ElseIf CR_NameMethode = 2 Then DefaultName = RemoveExtraSpaces(FunimationTitle + " " + FunimationSeason + " " + FunimationEpisode + " " + FunimationEpisodeTitle) ElseIf CR_NameMethode = 3 Then DefaultName = RemoveExtraSpaces(FunimationTitle + " " + FunimationEpisodeTitle + " " + FunimationSeason + " " + FunimationEpisode) End If DefaultName = DefaultName.Replace("'", "'") 'Dim DefaultPath As String = Pfad + "\" + DefaultName + VideoFormat 'DefaultPath = DefaultPath.Replace("\\", "\") #End Region #Region "Pfad" Dim TextBox2_Text As String = Nothing Me.Invoke(New Action(Function() As Object TextBox2_Text = Anime_Add.TextBox2.Text Return Nothing End Function)) If TextBox2_Text = Nothing Or TextBox2_Text = "Use Custom Name" Then Else Me.Invoke(New Action(Function() As Object Return Nothing End Function)) End If DefaultName = DefaultName.Replace(":", "") DownloadPfad = RemoveExtraSpaces(UseSubfolder(FunimationTitle, FunimationSeason, Pfad)) If Not Directory.Exists(Path.GetDirectoryName(DownloadPfad)) Then ' Nein! Jetzt erstellen... Try Directory.CreateDirectory(Path.GetDirectoryName(DownloadPfad)) DownloadPfad = RemoveExtraSpaces(Chr(34) + DownloadPfad + DefaultName + VideoFormat + Chr(34)) Catch ex As Exception ' Ordner wurde nich erstellt DownloadPfad = RemoveExtraSpaces(Chr(34) + Pfad + DefaultName + VideoFormat + Chr(34)) End Try Else DownloadPfad = RemoveExtraSpaces(Chr(34) + DownloadPfad + DefaultName + VideoFormat + Chr(34)) End If #Region "lösche doppel download" Dim Pfad5 As String = DownloadPfad.Replace(Chr(34), "") If My.Computer.FileSystem.FileExists(Pfad5) Then 'Pfad = Kompeltter Pfad mit Dateinamen + ENdung Me.Invoke(New Action(Function() As Object Me.Text = "Status: File already exists." Anime_Add.StatusLabel.Text = "Status: File already exists." Me.Invalidate() Return Nothing End Function)) If MessageBox.Show("The file " + Pfad5 + " already exists." + vbNewLine + "You want to override it?", "File exists!", MessageBoxButtons.OKCancel) = DialogResult.OK Then Try My.Computer.FileSystem.DeleteFile(Pfad5) Me.Invoke(New Action(Function() As Object Me.Text = "Status: Old file overwritten." Anime_Add.StatusLabel.Text = "Status: Old file overwritten." Me.Invalidate() Return Nothing End Function)) Catch ex As Exception End Try Else Me.Invoke(New Action(Function() As Object Me.Text = "Crunchyroll Downloader" Anime_Add.StatusLabel.Text = "idle" Me.Invalidate() Return Nothing End Function)) Funimation_Grapp_RDY = True Exit Sub End If End If #End Region #End Region #Region "json" Dim EpisodeJsonString As String = Nothing Dim PlayerClient As New WebClient PlayerClient.Encoding = Encoding.UTF8 PlayerClient.Headers.Add(My.Resources.ffmpeg_user_agend.Replace(Chr(34), "")) PlayerClient.Headers.Add(HttpRequestHeader.Accept, "application/json, text/plain, */*") PlayerClient.Headers.Add("origin: https://www.funimation.com/") PlayerClient.Headers.Add(HttpRequestHeader.Referer, "https://www.funimation.com/") Dim BaseUrl As String = "https://playback.prd.funimationsvc.com/v1/play/" Debug.WriteLine(PlayerClient.Headers.ToString) If FunimationToken = Nothing Then Debug.WriteLine("FunimationToken: false") BaseUrl = "https://playback.prd.funimationsvc.com/v1/play/anonymous/" Else Debug.WriteLine("FunimationToken: true") PlayerClient.Headers.Add(HttpRequestHeader.Authorization, FunimationToken) End If 'FunimationToken 'MsgBox(WebbrowserCookie) 'BaseUrl + FunimationEpisodeJson + FunimationDeviceRegion If FunimationDeviceRegion = Nothing Then FunimationDeviceRegion = "?deviceType=web" End If Debug.WriteLine(BaseUrl + FunimationEpisodeJson + FunimationDeviceRegion) If WebbrowserCookie = Nothing Then Else PlayerClient.Headers.Add(HttpRequestHeader.Cookie, WebbrowserCookie) End If If SystemWebBrowserCookie = Nothing Then Else PlayerClient.Headers.Add(HttpRequestHeader.Cookie, SystemWebBrowserCookie) End If ' Dim PlayerPage As String = SubsClient.DownloadString("https://www.funimation.com/player/" + ExperienceID + "/?bdub=0&qid=") Try 'Throw New System.Exception("Test") 'MsgBox(BaseUrl + FunimationEpisodeJson + FunimationDeviceRegion) EpisodeJsonString = PlayerClient.DownloadString(BaseUrl + FunimationEpisodeJson + FunimationDeviceRegion) Catch ex As Exception Debug.WriteLine(ex.ToString) Pause(2) Debug.WriteLine("showexperience 2nd try") 'Me.Invoke(New Action(Function() As Object 'PlayerClient.Headers.Add(HttpRequestHeader.AcceptEncoding, "gzip") 'EpisodeJsonString = DecompressString(PlayerClient.DownloadData(BaseUrl + FunimationEpisodeJson + FunimationDeviceRegion)) EpisodeJsonString = PlayerClient.DownloadString(BaseUrl + FunimationEpisodeJson + FunimationDeviceRegion) 'Debug.WriteLine("Thread Name: " + Thread.CurrentThread.Name) 'ErrorBrowserString = "Funimation_showexperience" 'ErrorBrowserUrl = "https://www.funimation.com/api/showexperience/" + ExperienceID + "/?pinst_id=fzQc9p9f" 'Debug.WriteLine("2-showexperience data via browser") 'ErrorBrowser.ShowDialog() 'Debug.WriteLine("3-showexperience data via browser") 'showexperience = ErrorBrowserBackString End Try 'MsgBox(EpisodeJsonString) Dim SubsFiles As New List(Of FunimationSubs) Dim VideoStreams As New List(Of FunimationStream) Dim EpisodeJson As JObject = JObject.Parse(EpisodeJsonString) Dim EpisodeJsonData As List(Of JToken) = EpisodeJson.Children().ToList Dim PrimaryVersion As String = Nothing ' item.Item("version").ToString Dim PrimaryaudioLanguage As String = Nothing ' item.Item("audioLanguage").ToString Dim PrimarymanifesUrl As String = Nothing 'item.Item("manifestPath").ToString For Each item As JProperty In EpisodeJsonData item.CreateReader() Select Case item.Name Case "fallback" ' MsgBox(SubItem.Value.ToString()) Dim SubData2 As List(Of JToken) = item.Values.ToList 'MsgBox(SubData2.Count.ToString) For i As Integer = 0 To SubData2.Count - 1 Dim audioLanguage As String = Nothing Dim Format As String = Nothing Try Dim Version As String = SubData2(i).Item("version").ToString audioLanguage = SubData2(i).Item("audioLanguage").ToString Dim Url As String = SubData2(i).Item("manifestPath").ToString Debug.WriteLine(Version) Debug.WriteLine(audioLanguage) Debug.WriteLine(Url) Format = SubData2(i).Item("fileExt").ToString If Format = "m3u8" Then VideoStreams.Add(New FunimationStream(audioLanguage, Version, Url, False)) End If Catch ex As Exception End Try Try Dim SubData3 As List(Of JToken) = SubData2(i).Item("subtitles").Children.ToList 'MsgBox(SubData2.Count.ToString) For i3 As Integer = 0 To SubData2.Count - 1 Try Dim LangCode As String = SubData3(i3).Item("languageCode").ToString Dim CCFormat As String = SubData3(i3).Item("fileExt").ToString Dim Url As String = SubData3(i3).Item("filePath").ToString If audioLanguage = "ja" And Format = "m3u8" Then SubsFiles.Add(New FunimationSubs(LangCode, CCFormat, Url)) End If Catch ex As Exception End Try Next Catch ex As Exception End Try Next Case "primary" 'each record is inside the entries array Dim SubData As List(Of JToken) = item.Values.ToList() For Each SubItem As JProperty In SubData Select Case SubItem.Name ' Case "manifestPath" ' Funimation_m3u8_Main = SubItem.Value.ToString '' MsgBox() Case "version" PrimaryVersion = SubItem.Value.ToString Case "audioLanguage" PrimaryaudioLanguage = SubItem.Value.ToString Case "manifestPath" PrimarymanifesUrl = SubItem.Value.ToString Case "subtitles" ' MsgBox(SubItem.Value.ToString()) Dim SubData2 As List(Of JToken) = SubItem.Values.ToList 'MsgBox(SubData2.Count.ToString) For i As Integer = 0 To SubData2.Count - 1 Try Dim LangCode As String = SubData2(i).Item("languageCode").ToString Dim Format As String = SubData2(i).Item("fileExt").ToString Dim Url As String = SubData2(i).Item("filePath").ToString SubsFiles.Add(New FunimationSubs(LangCode, Format, Url)) Catch ex As Exception End Try Next End Select Next Debug.WriteLine("primary version: " + PrimaryVersion) Debug.WriteLine("primary audioLanguage: " + PrimaryaudioLanguage) Debug.WriteLine("primary manifesUrl: " + PrimarymanifesUrl) VideoStreams.Add(New FunimationStream(PrimaryaudioLanguage, PrimaryVersion, PrimarymanifesUrl, True)) End Select Next #End Region #Region "m3u8 URL" Dim Funimation_m3u8_Main As String = Nothing Dim Funimation_m3u8_MainVersion As String = Nothing Dim Funimation_m3u8_Primary_Version As String = Nothing Dim Funimation_m3u8_Primary As String = Nothing Dim Funimation_m3u8_Primary_audioLanguage As String = Nothing Dim Funimation_m3u8_final As String = Nothing Dim client0 As New WebClient client0.Encoding = Encoding.UTF8 If SubsOnly = False Then For i As Integer = 0 To VideoStreams.Count - 1 If VideoStreams(i).Primary = True Then Funimation_m3u8_Primary = VideoStreams(i).Url Funimation_m3u8_Primary_Version = VideoStreams(i).version Funimation_m3u8_Primary_audioLanguage = VideoStreams(i).audioLanguage End If If VideoStreams(i).audioLanguage = ConvertFunimationDubToJson(DubFunimation) And Funimation_m3u8_Main = Nothing Then Funimation_m3u8_Main = VideoStreams(i).Url Funimation_m3u8_MainVersion = VideoStreams(i).version ElseIf VideoStreams(i).audioLanguage = ConvertFunimationDubToJson(DubFunimation) And VideoStreams(i).version = "uncut" Then Funimation_m3u8_Main = VideoStreams(i).Url Funimation_m3u8_MainVersion = VideoStreams(i).version End If Next 'MsgBox(Funimation_m3u8_Main) 'Funimation_m3u8_Main = InputBox("Edit Url", "Change") If Funimation_m3u8_Main = Nothing Then Funimation_m3u8_Main = Funimation_m3u8_Primary Funimation_m3u8_MainVersion = Funimation_m3u8_Primary_Version FunimationDub = ConvertFunimationDub(ConvertJsonToFunimationDub(Funimation_m3u8_Primary_audioLanguage)) End If If Funimation_m3u8_Main = Nothing Then If MessageBox.Show("No media matching your settings." + vbNewLine + "Avalible: Not implimentented, press 'Yes' to copy the data into the clipboard.", "No media", MessageBoxButtons.YesNo) = DialogResult.Yes Then Me.Invoke(New Action(Function() As Object Try My.Computer.Clipboard.SetText(EpisodeJsonString) Catch ex As Exception End Try Return Nothing End Function)) Exit Sub Else Funimation_Grapp_RDY = True Exit Sub End If End If Me.Invoke(New Action(Function() As Object Me.Text = "Status: Video found!" Anime_Add.StatusLabel.Text = "Status: Video found!" Me.Invalidate() Return Nothing End Function)) Dim str1 As String = client0.DownloadString(Funimation_m3u8_Main.Replace(Chr(34), "")) If CBool(InStr(str1, "# AUDIO groups")) Then Dim FunimationAudio() As String = str1.Split(New String() {"# AUDIO groups"}, System.StringSplitOptions.RemoveEmptyEntries) Dim FunimationAudio2() As String = FunimationAudio(1).Split(New String() {"URI=" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries) Dim FunimationAudio3() As String = FunimationAudio2(1).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries) FunimationAudioMap = " -headers " + My.Resources.ffmpeg_user_agend + " -i " + Chr(34) + FunimationAudio3(0) + Chr(34) End If Dim str2() As String = str1.Split(New String() {"# keyframes"}, System.StringSplitOptions.RemoveEmptyEntries) Dim Streams() As String = str2(0).Split(New String() {vbLf}, System.StringSplitOptions.RemoveEmptyEntries) Dim FunimationBackupm3u8 As String = Nothing Dim Tartegt_m3u8_list As New List(Of String) Dim Secondary_m3u8_list As New List(Of String) For i As Integer = 0 To Streams.Length - 1 If CBool(InStr(Streams(i), "x" + Reso.ToString)) Then Tartegt_m3u8_list.Add(Streams(i) + vbCrLf + Streams(i + 1)) FunimationBackupm3u8 = Streams(i + 1) ElseIf CBool(InStr(Streams(i), ResoFunBackup)) And FunimationBackupm3u8 = Nothing Then Secondary_m3u8_list.Add(Streams(i) + vbCrLf + Streams(i + 1)) FunimationBackupm3u8 = Streams(i + 1) End If Next If Tartegt_m3u8_list.Count = 0 And Secondary_m3u8_list.Count > 0 Then Tartegt_m3u8_list = Secondary_m3u8_list End If If Tartegt_m3u8_list.Count > 1 Then Dim HigestBitrate As Integer = 0 For i2 As Integer = 0 To Tartegt_m3u8_list.Count - 1 Dim Bandwidth_String As String = Nothing If CBool(InStr(Tartegt_m3u8_list.Item(i2), "AVERAGE-BANDWIDTH=")) = True Then Bandwidth_String = "AVERAGE-BANDWIDTH=" ElseIf CBool(InStr(Tartegt_m3u8_list.Item(i2), "BANDWIDTH=")) = True Then Bandwidth_String = "BANDWIDTH=" Else Continue For End If Dim BitRate() As String = Tartegt_m3u8_list.Item(i2).Split(New String() {Bandwidth_String}, System.StringSplitOptions.RemoveEmptyEntries) Dim BitRate2() As String = BitRate(1).Split(New String() {","}, System.StringSplitOptions.RemoveEmptyEntries) If Funimation_Bitrate = 0 Then If CInt(BitRate2(0)) > HigestBitrate Then HigestBitrate = CInt(BitRate2(0)) End If Else If HigestBitrate > CInt(BitRate2(0)) Then HigestBitrate = CInt(BitRate2(0)) ElseIf HigestBitrate = 0 Then HigestBitrate = CInt(BitRate2(0)) End If End If Next For i2 As Integer = 0 To Tartegt_m3u8_list.Count - 1 If CBool(InStr(Tartegt_m3u8_list.Item(i2), HigestBitrate.ToString)) = True Then Dim new_m3u8_2() As String = Tartegt_m3u8_list.Item(i2).Split(New String() {vbLf}, System.StringSplitOptions.RemoveEmptyEntries) Funimation_m3u8_final = new_m3u8_2(1) FunimationBackupm3u8 = new_m3u8_2(1) End If Next ElseIf Tartegt_m3u8_list.Count = 1 Then Dim new_m3u8_2() As String = Tartegt_m3u8_list.Item(0).Split(New String() {vbLf}, System.StringSplitOptions.RemoveEmptyEntries) Funimation_m3u8_final = new_m3u8_2(1) FunimationBackupm3u8 = new_m3u8_2(1) End If If Funimation_m3u8_final = Nothing And FunimationBackupm3u8 = Nothing Then Me.Invoke(New Action(Function() As Object Me.Text = "Status: Resolution not found!" Anime_Add.StatusLabel.Text = "Status: Resolution not found!" Me.Invalidate() DialogTaskString = "Funimation_Resolution" ResoNotFoundString = str1 ErrorDialog.ShowDialog() Return Nothing End Function)) ResoFunBackup = ResoBackString For i As Integer = 0 To Streams.Length - 1 If CBool(InStr(Streams(i), ResoBackString)) Then Dim Streams2() As String = Streams(i).Split(New String() {"https://"}, System.StringSplitOptions.RemoveEmptyEntries) Dim Streams3() As String = Streams2(1).Split(New String() {"#EXT-"}, System.StringSplitOptions.RemoveEmptyEntries) Dim StreamURL As String = "https://" + Streams3(0).Trim Dim CheckClient As New WebClient CheckClient.Encoding = Encoding.UTF8 If Not WebbrowserCookie = Nothing Then CheckClient.Headers.Add(HttpRequestHeader.Cookie, WebbrowserCookie) ElseIf Not SystemWebBrowserCookie = Nothing Then CheckClient.Headers.Add(HttpRequestHeader.Cookie, SystemWebBrowserCookie) End If Dim m3u8String As String = CheckClient.DownloadString(StreamURL) 'MsgBox(textLenght(i)) Dim keyfileurl() As String = m3u8String.Split(New String() {"URI=" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries) Dim keyfileurl2() As String = keyfileurl(1).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries) Dim keyfileurl3 As String = keyfileurl2(0) If CBool(InStr(keyfileurl2(0), "https://")) Then Else Dim c() As String = New Uri(StreamURL).Segments Dim path As String = "https://" + New Uri(StreamURL).Host For i3 As Integer = 0 To c.Count - 2 path = path + c(i3) Next keyfileurl3 = path + keyfileurl2(0) 'New Uri(textLenght(i)).LocalPath + keyfileurl2(0) End If Try Dim CheckClient2 As New WebClient CheckClient2.Encoding = System.Text.Encoding.UTF8 Dim testdl As String = CheckClient2.DownloadString(keyfileurl3) Funimation_m3u8_final = StreamURL Exit For Catch ex As Exception Debug.WriteLine(keyfileurl3 + vbNewLine + ex.ToString) End Try 'Funimation_m3u8_final = textLenght(i) 'Exit For End If Next ElseIf Funimation_m3u8_final = Nothing Then Funimation_m3u8_final = FunimationBackupm3u8 Else Me.Invoke(New Action(Function() As Object Me.Text = "Status: Resolution found!" Anime_Add.StatusLabel.Text = "Status: Resolution found!" Me.Invalidate() Return Nothing End Function)) End If Debug.WriteLine("Funimation_m3u8_final: " + Funimation_m3u8_final) Funimation_m3u8_final = Funimation_m3u8_final.Replace(Chr(34), "") Else Me.Invoke(New Action(Function() As Object Me.Text = "Status: Substitles only mode - skipped video" Anime_Add.StatusLabel.Text = "Status: Substitles only mode - skipped video" Me.Invalidate() Return Nothing End Function)) End If 'MsgBox(FunimationName3) Dim ResoHTMLDisplay As String = Reso.ToString + "p" #Region "Subs" 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 For i As Integer = 0 To SubsFiles.Count - 1 Debug.WriteLine(SubsFiles(i).LangugageCode + "-" + SubsFiles(i).Format) If SubFunimation.Count = 0 Then Exit For End If If Funimation_vtt = True And SubsFiles(i).Format = "vtt" And CBool(InStr(SubFunimationString, SubsFiles(i).LangugageCode)) Then UsedSubs.Add(SubsFiles(i).Url + " , " + SubsFiles(i).LangugageCode) ElseIf Funimation_srt = True And SubsFiles(i).Format = "srt" And CBool(InStr(SubFunimationString, SubsFiles(i).LangugageCode)) Then UsedSubs.Add(SubsFiles(i).Url + " , " + SubsFiles(i).LangugageCode) End If Next ' Dim SoftSubMergeURLs As String = Nothing Dim SoftSubMergeMaps As String = " -map 0:v -map 0:a" If Not FunimationAudioMap = Nothing Then SoftSubMergeMaps = " -map 0:v -map 1:a" End If Dim SoftSubMergeMetatata As String = Nothing If UsedSubs.Count > 0 Then If MergeSubs = True And SubsOnly = False Then Dim DispositionIndex As Integer = 999 Dim LastMerged As String = Nothing Dim MapCount As Integer = -1 For i As Integer = 0 To UsedSubs.Count - 1 Dim SoftSub As String() = UsedSubs.Item(i).Split(New String() {" , "}, System.StringSplitOptions.RemoveEmptyEntries) If CCtoMP4CC(SoftSub(1)) = LastMerged Then Continue For Else LastMerged = CCtoMP4CC(SoftSub(1)) End If MapCount = MapCount + 1 If DefaultSubFunimation = SoftSub(1) Then 'Debug.WriteLine(SoftSub(1)) DispositionIndex = MapCount End If If SoftSubMergeURLs = Nothing Then SoftSubMergeURLs = " -headers " + My.Resources.ffmpeg_user_agend + " -i " + Chr(34) + SoftSub(0) + Chr(34) Else SoftSubMergeURLs = SoftSubMergeURLs + " -headers " + My.Resources.ffmpeg_user_agend + " -i " + Chr(34) + SoftSub(0) + Chr(34) End If If FunimationAudioMap = Nothing Then SoftSubMergeMaps = SoftSubMergeMaps + " -map " + (MapCount + 1).ToString Else SoftSubMergeMaps = SoftSubMergeMaps + " -map " + (MapCount + 2).ToString End If If SoftSubMergeMetatata = Nothing Then 'SoftSubMergeMetatata = " -metadata:s:s:" + i.ToString + " language=" + CCtoMP4CC(SoftSub(1)) SoftSubMergeMetatata = " -metadata:s:s:" + MapCount.ToString + " language=" + CCtoMP4CC(SoftSub(1)) + " -metadata:s:s:" + MapCount.ToString + " title=" + Chr(34) + HardSubValuesToDisplay(Chr(34) + SoftSub(1) + Chr(34)) + Chr(34) + " -metadata:s:s:" + MapCount.ToString + " handler_name=" + Chr(34) + HardSubValuesToDisplay(Chr(34) + SoftSub(1) + Chr(34)) + Chr(34) Else SoftSubMergeMetatata = SoftSubMergeMetatata + " -metadata:s:s:" + MapCount.ToString + " language=" + CCtoMP4CC(SoftSub(1)) + " -metadata:s:s:" + MapCount.ToString + " title=" + Chr(34) + HardSubValuesToDisplay(Chr(34) + SoftSub(1) + Chr(34)) + Chr(34) + " -metadata:s:s:" + MapCount.ToString + " handler_name=" + Chr(34) + HardSubValuesToDisplay(Chr(34) + SoftSub(1) + Chr(34)) + Chr(34) 'SoftSubMergeMetatata + " -metadata:s:s:" + i.ToString + " language=" + CCtoMP4CC(SoftSubs2(i)) End If Next If DispositionIndex < 999 Then SoftSubMergeMetatata = SoftSubMergeMetatata + " -disposition:s:" + DispositionIndex.ToString + " default" End If Else Dim SubsClient As New WebClient SubsClient.Encoding = Encoding.UTF8 If Not WebbrowserCookie = Nothing Then SubsClient.Headers.Add(HttpRequestHeader.Cookie, WebbrowserCookie) ElseIf Not SystemWebBrowserCookie = Nothing Then SubsClient.Headers.Add(HttpRequestHeader.Cookie, SystemWebBrowserCookie) End If For i As Integer = 0 To UsedSubs.Count - 1 LabelUpdate = "Status: downloading subtitle file" LabelEpisode = UsedSubs(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 CBool(InStr(SoftSub_3, ".vtt")) Then SubtitelFormat = "vtt" 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) Debug.WriteLine(Pfad4) 'File.WriteAllText(Pfad4, Subfile, Encoding.UTF8) WriteText(Pfad4, Subfile) Pause(1) Next End If End If #End Region #Region "ffmpeg command" Dim DubMetatata As String = Nothing If FunimationDub = "Japanese" Then DubMetatata = " -metadata:s:a:0 language=jpn" 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" End If If HardSubFound = True And CBool(InStr(VideoFormat, ".aac")) = False Then Funimation_m3u8_final = "-i " + Chr(34) + Funimation_m3u8_final + Chr(34) + FunimationAudioMap + " -vf subtitles=" + Chr(34) + UsedSub + Chr(34) + " " + ffmpeg_hardsub ElseIf MergeSubs = True Then Funimation_m3u8_final = "-i " + Chr(34) + Funimation_m3u8_final + Chr(34) + FunimationAudioMap + SoftSubMergeURLs + SoftSubMergeMaps + " " + ffmpeg_command + " -c:s " + MergeSubsFormat + SoftSubMergeMetatata + DubMetatata ElseIf CBool(InStr(VideoFormat, ".aac")) = True Then If FunimationAudioMap = Nothing Then Funimation_m3u8_final = "-i " + Chr(34) + Funimation_m3u8_final + Chr(34) + DubMetatata + " " + ffmpeg_command_temp Else Funimation_m3u8_final = FunimationAudioMap.Replace(" -headers " + My.Resources.ffmpeg_user_agend + " ", "") + DubMetatata + " " + ffmpeg_command_temp End If Else Funimation_m3u8_final = "-i " + Chr(34) + Funimation_m3u8_final + Chr(34) + FunimationAudioMap + DubMetatata + " " + ffmpeg_command End If Funimation_m3u8_final = Funimation_m3u8_final + " -metadata:g encoding_tool=CrD_Funimation_JS" #End Region 'MsgBox(Funimation_m3u8_final) 'DownloadPfad = DownloadPfad.Replace(" \", "\") If SubsOnly = True Then Funimation_m3u8_final = "-i [Subtitles only]" End If Dim L1Name_Split As String() = WebbrowserURL.Split(New String() {"/"}, System.StringSplitOptions.RemoveEmptyEntries) Dim L1Name As String = L1Name_Split(1).Replace("www.", "") + " | Dub : " + FunimationDub Me.Invoke(New Action(Function() As Object ListItemAdd(Pfad_DL, L1Name, DefaultName, ResoHTMLDisplay, Funimation_m3u8_MainVersion, SubValuesToDisplay(), thumbnail4, Funimation_m3u8_final, DownloadPfad, "FM") Return Nothing End Function)) 'liList.Add(My.Resources.htmlvorThumbnail + thumbnail4 + My.Resources.htmlnachTumbnail + FunimationTitle + "
    " + FunimationSeason + " " + FunimationEpisode + My.Resources.htmlvorAufloesung + ResoHTMLDisplay + My.Resources.htmlvorSoftSubs + vbNewLine + SubValuesToDisplay() + My.Resources.htmlvorHardSubs + "null" + My.Resources.htmlnachHardSubs + "") #End Region Me.Invoke(New Action(Function() As Object Me.Text = "Crunchyroll Downloader" Anime_Add.StatusLabel.Text = "idle" ResoBackString = Nothing Me.Invalidate() Return Nothing End Function)) Catch ex As Exception Me.Invoke(New Action(Function() As Object Me.Text = "Crunchyroll Downloader!" Anime_Add.StatusLabel.Text = "idle" ResoBackString = Nothing Me.Invalidate() Return Nothing End Function)) MsgBox(ex.ToString) End Try Funimation_Grapp_RDY = True End Sub #End Region Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick Dim Item As New List(Of CRD_List_Item) Item.AddRange(Panel1.Controls.OfType(Of CRD_List_Item)) Dim GeckoHTML As String = My.Resources.htmlTop + vbNewLine + My.Resources.htmlTitlel.Replace("Placeholder", Me.Text.Replace("open the add window to continue", "")) For i As Integer = 0 To Item.Count - 1 Dim ItemString As String = My.Resources.htmlvorThumbnail + Item(i).GetThumbnailSource + My.Resources.htmlnachTumbnail + Item(i).Label_website.Text + "
    " + Item(i).Label_Anime.Text + My.Resources.htmlvorAufloesung.Replace("0%", Item(i).Label_percent.Text).Replace("width:0%", Item(i).GetPercentValue.ToString + "%") + Item(i).Label_Reso.Text + My.Resources.htmlvorSoftSubs + vbNewLine + My.Resources.htmlvorHardSubs + Item(i).Label_Hardsub.Text + My.Resources.htmlnachHardSubs GeckoHTML = GeckoHTML + vbNewLine + ItemString Next Dim c As String = GeckoHTML + vbNewLine + My.Resources.htmlEnd Dim Balken As String = "balken.png" c = c.Replace("balken1.png", Balken) Dim CC As String = "cc.png" c = c.Replace("cc1.png", CC) HTML = c End Sub #Region "process html" Public Sub ProcessHTML(ByVal document As String, ByVal Address As String, ByVal DocumentTitle As String) Dim localHTML As String = document Debug.WriteLine(Date.Now.ToString + "." + Date.Now.Millisecond.ToString) Debug.WriteLine(Address) If CBool(InStr(Address, "title-api.prd.funimationsvc.com")) Then If FunimationJsonBrowser = "EpisodeJson" Then Anime_Add.FillFunimationEpisodes(localHTML.Replace("", "").Replace("", "").Replace("
    ", "").Replace("
    ", "").Replace("", "").Replace("
    ", "")) '
                FunimationJsonBrowser = Nothing
                WebbrowserURL = "https://funimation.com/js"
            ElseIf FunimationJsonBrowser = "v1Json" Then
                GetFunimationNewJS_VideoProxy(Nothing, localHTML.Replace("", "").Replace("", "").Replace("
    ", "").Replace("
    ", "").Replace("", "").Replace("
    ", "")) '
                FunimationJsonBrowser = Nothing
                WebbrowserURL = "https://funimation.com/js"
            End If
            Exit Sub
        ElseIf CBool(InStr(Address, "/data/v2/shows/")) Then
            If FunimationJsonBrowser = "SeasonJson" Then
                Me.Invoke(New Action(Function() As Object
                                         'My.Computer.Clipboard.SetText(localHTML)
                                         FunimationSeasonAPIUrl = Address
                                         GetFunimationJS_Seasons(Nothing, localHTML.Replace("", "").Replace("", "").Replace("
    ", "").Replace("
    ", "").Replace("", "").Replace("
    ", "")) '
                                         FunimationJsonBrowser = Nothing
                                         WebbrowserURL = "https://funimation.com/js"
                                         Return Nothing
                                     End Function))
            End If
            Exit Sub
        ElseIf CBool(InStr(Address, "wakanim.tv")) Then
            If CBool(InStr(document, "var tracks = [{" + Chr(34) + "file" + Chr(34) + ":" + Chr(34))) Then
                Dim WakanimSub() As String = document.Split(New String() {"var tracks = [{" + Chr(34) + "file" + Chr(34) + ":" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
                Dim WakanimSub2() As String = WakanimSub(1).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
                Try
                    Using client As New WebClient()
                        client.Encoding = System.Text.Encoding.UTF8
                        client.Headers.Add(My.Resources.ffmpeg_user_agend.Replace(Chr(34), ""))
                        Dim SaveName As String = System.Text.RegularExpressions.Regex.Replace(DocumentTitle.Replace(" - Schaue legal auf Wakanim.TV", ""), "[^\w\\-]", " ").Replace(":", "")
                        SaveName = RemoveExtraSpaces(SaveName)
                        client.DownloadFile(WakanimSub2(0), Pfad + "\" + SaveName + ".vtt")
                    End Using
                Catch ex As Exception
                    'Debug.WriteLine("error- getting funimation SeasonJson data")
                    'FunimationJsonBrowser = "SeasonJson"
                    'Navigate(JsonUrl)
                    ''Navigate(JsonUrl)
                    Exit Sub
                End Try
            End If
        End If
        If b = True Then
            LoadedUrls.Clear()
            Grapp_RDY = True
            Debug.WriteLine("Just Browsing, exiting...")
            'Debug.WriteLine("Just Browsing, exiting... for real...")
            Exit Sub
        End If
        'MsgBox("loaded!")
        If CBool(InStr(Address, "crunchyroll.com")) Then
            WebbrowserURL = Address


            For i As Integer = 10 To 1 Step -1
                If Application.OpenForms().OfType(Of Anime_Add).Any = True Then
                    Anime_Add.StatusLabel.Text = "Status: Processing Url " + i.ToString
                End If
                Me.Text = "Status: Processing Url " + i.ToString

                Pause(1)

                If b = True Then
                    If Application.OpenForms().OfType(Of Anime_Add).Any = True Then
                        Anime_Add.StatusLabel.Text = "Status: idle"
                    End If
                    Me.Text = "Crunchyroll Downloader"
                    Grapp_RDY = True
                    LoadedUrls.Clear()
                    Debug.WriteLine("canceled....")
                    Exit Sub
                End If
            Next

            Debug.WriteLine("LoadedUrls: " + LoadedUrls.Count.ToString)
            For i As Integer = 0 To LoadedUrls.Count - 1
                Debug.WriteLine("LoadedUrls: " + LoadedUrls(i))
            Next

            If LoadedUrls.Count > 0 Then
                If Application.OpenForms().OfType(Of Anime_Add).Any = True Then
                    Anime_Add.StatusLabel.Text = "Status: Processing... "
                End If
                Me.Text = "Status: Processing... "
                ProcessUrls()
                Debug.WriteLine("ProcessUrls")
                Exit Sub
            Else
                If Application.OpenForms().OfType(Of Anime_Add).Any = True Then
                    Anime_Add.StatusLabel.Text = "Status: nothing found"
                End If
                Me.Text = "Status: nothing found"
                ProcessUrls()
                Debug.WriteLine("3530: nothing found")
                Grapp_RDY = True
                Exit Sub
            End If

        ElseIf CBool(InStr(Address, "funimation.com")) Then
            Dim Collector As New TaskCookieVisitor
            Dim CM As ICookieManager = CefSharp_Browser.WebBrowser1.GetCookieManager
            CM.VisitAllCookies(Collector)
            Dim list As List(Of Global.CefSharp.Cookie) = Collector.Task.Result()
            Dim Cookie As String = ""
            For i As Integer = 0 To list.Count - 1
                If CBool(InStr(list.Item(i).Domain, "funimation.com")) Then 'list.Item(i).Domain = "funimation.com" Then
                    'MsgBox(list.Item(i).Name + vbNewLine + list.Item(i).Value)
                    Cookie = Cookie + list.Item(i).Name + "=" + list.Item(i).Value + ";"
                End If
                If CBool(InStr(list.Item(i).Domain, "funimation.com")) And CBool(InStr(list.Item(i).Name, "src_token")) Then 'list.Item(i).Domain = "funimation.com" Then
                    'MsgBox(list.Item(i).Name + vbNewLine + list.Item(i).Value)
                    FunimationToken = "Token " + list.Item(i).Value
                End If
            Next
            If b = False Then
                WebbrowserCookie = Cookie
                WebbrowserURL = Address
                Text = "Crunchyroll Downloader"
                For i As Integer = 10 To 0 Step -1
                    Anime_Add.StatusLabel.Text = "Status: checking traffic - " + i.ToString
                    Pause(1)
                Next
                Dim Evaluator = New Thread(Sub() Me.ProcessUrls())
                Evaluator.Start()
                Exit Sub
            End If
        Else
            WebbrowserURL = Address
            Text = "Crunchyroll Downloader"
            For i As Integer = 10 To 0 Step -1
                Anime_Add.StatusLabel.Text = "Status: checking traffic - " + i.ToString
                Pause(1)
            Next
            ProcessUrls()
            'Pause(10)
            'ProcessUrls()
        End If
        'End If
    End Sub




#End Region
    Public Sub ProcessUrls()
        Debug.WriteLine(LoadedUrls.Count.ToString)
        Debug.WriteLine(Date.Now.ToString + " Thread Name: " + Thread.CurrentThread.Name)

        For i As Integer = 0 To LoadedUrls.Count - 1
            Dim requesturl As String = LoadedUrls.Item(i)
            If CBool(InStr(requesturl, "crunchyroll.com/")) And CBool(InStr(requesturl, "streams?")) Then

                If b = False Then

                    If Application.OpenForms().OfType(Of Anime_Add).Any = True Then
                        Anime_Add.StatusLabel.Text = "Status: Crunchyroll episode found."
                    End If
                    Me.Text = "Status: Crunchyroll episode found."
                    Debug.WriteLine("Crunchyroll episode found")
                    GetBetaVideoProxy(requesturl, WebbrowserURL)
                    b = True

                    'CefSharp_Browser.WebBrowser1.LoadUrl(requesturl)


                    LoadedUrls.Clear()
                    Me.Text = "Crunchyroll Downloader"
                    Exit Sub
                End If
            ElseIf CBool(InStr(requesturl, "crunchyroll.com/")) And CBool(InStr(requesturl, "/objects/")) Then

                If b = False Then
                    Dim ObjectJson As String
                    Dim ObjectsUrl As String = requesturl
                    Dim StreamsUrl As String
                    ObjectJson = Curl(ObjectsUrl)

                    If CBool(InStr(ObjectJson, "curl:")) = True Then
                        ObjectJson = Curl(ObjectsUrl)
                    End If

                    If CBool(InStr(ObjectJson, "curl:")) = True Then
                        Continue For
                    ElseIf CBool(InStr(ObjectJson, "videos/")) = False Then

                        If Application.OpenForms().OfType(Of Anime_Add).Any = True Then
                            Anime_Add.StatusLabel.Text = "Status: Failed, check CR login"
                        End If
                        Me.Text = "Status: Failed, check CR login"
                        Debug.WriteLine("Status: Failed, check CR login")

                        Continue For
                    End If




                    Dim StreamsUrlBuilder() As String = ObjectJson.Split(New String() {"videos/"}, System.StringSplitOptions.RemoveEmptyEntries)
                    Dim StreamsUrlBuilder2() As String = StreamsUrlBuilder(1).Split(New String() {"/streams"}, System.StringSplitOptions.RemoveEmptyEntries)

                    Dim StreamsUrlBuilder3() As String = ObjectsUrl.Split(New String() {"objects/"}, System.StringSplitOptions.RemoveEmptyEntries)
                    Dim StreamsUrlBuilder4() As String = StreamsUrlBuilder3(1).Split(New String() {"?"}, System.StringSplitOptions.RemoveEmptyEntries)

                    StreamsUrl = StreamsUrlBuilder3(0) + "videos/" + StreamsUrlBuilder2(0) + "/streams?" + StreamsUrlBuilder4(1)


                    If Application.OpenForms().OfType(Of Anime_Add).Any = True Then
                        Anime_Add.StatusLabel.Text = "Status: Crunchyroll episode found."
                    End If
                    Me.Text = "Status: Crunchyroll episode found."
                    Debug.WriteLine("Crunchyroll episode found")
                    GetBetaVideoProxy(StreamsUrl, WebbrowserURL)
                    b = True
                    LoadedUrls.Clear()
                    Me.Text = "Crunchyroll Downloader"
                    Exit Sub
                End If
            ElseIf CBool(InStr(requesturl, "crunchyroll.com/")) And CBool(InStr(requesturl, "seasons?series_id=")) And CBool(InStr(WebbrowserURL, "series")) Then

                If b = False Then

                    If Application.OpenForms().OfType(Of Anime_Add).Any = True Then
                        Anime_Add.StatusLabel.Text = "Status: Crunchyroll season found."
                    End If
                    Me.Text = "Status: Crunchyroll season found."
                    Debug.WriteLine("Crunchyroll season found")
                    GetBetaSeasons(requesturl)
                    'CefSharp_Browser.WebBrowser1.LoadUrl(requesturl)
                    b = True
                    LoadedUrls.Clear()
                    Me.Text = "Crunchyroll Downloader"
                    Exit Sub
                End If
            ElseIf CBool(InStr(requesturl, "crunchyroll.com/")) And CBool(InStr(requesturl, "seasons?series_id=")) Then

                If b = False Then

                    If Application.OpenForms().OfType(Of Anime_Add).Any = True Then
                        Anime_Add.StatusLabel.Text = "Status: Error found invalid data."
                    End If
                    b = True
                    LoadedUrls.Clear()
                    Me.Text = "Crunchyroll Downloader"
                    Exit Sub
                End If

            End If

            If CBool(InStr(requesturl, "/data/v2/shows/")) Then
                b = True
                'MsgBox("The new Funimation Overview is not supportet yet!", MsgBoxStyle.Information)
                Me.Invoke(New Action(Function() As Object
                                         'My.Computer.Clipboard.SetText(localHTML)
                                         GetFunimationJS_Seasons(requesturl)
                                         WebbrowserURL = "https://funimation.com/js"
                                         Return Nothing
                                     End Function))
                LoadedUrls.Clear()
                Me.Text = "Crunchyroll Downloader"
                Exit Sub
            End If
            If CBool(InStr(requesturl, "data/v1/episodes/")) Then
                b = True
                'MsgBox("The new Funimation Overview is not supportet yet!", MsgBoxStyle.Information)
                Me.Invoke(New Action(Function() As Object
                                         'My.Computer.Clipboard.SetText(localHTML)
                                         GetFunimationNewJS_VideoProxy(requesturl)
                                         WebbrowserURL = "https://funimation.com/js"
                                         Return Nothing
                                     End Function))
                LoadedUrls.Clear()
                Me.Text = "Crunchyroll Downloader"
                Exit Sub
            End If
            If CBool(InStr(requesturl, "https://title-api.prd.funimationsvc.com")) And CBool(InStr(requesturl, "?region=")) Then
                Try
                    Dim Collector As New TaskCookieVisitor
                    Dim CM As ICookieManager = CefSharp_Browser.WebBrowser1.GetCookieManager
                    CM.VisitAllCookies(Collector)
                    Dim list As List(Of Global.CefSharp.Cookie) = Collector.Task.Result()
                    Dim Cookie As String = ""
                    For ii As Integer = 0 To list.Count - 1
                        If CBool(InStr(list.Item(ii).Domain, "funimation.com")) Then 'list.Item(i).Domain = "funimation.com" Then
                            'MsgBox(list.Item(i).Name + vbNewLine + list.Item(i).Value)
                            Cookie = Cookie + list.Item(ii).Name + "=" + list.Item(ii).Value + ";"
                        End If
                    Next
                    WebbrowserCookie = Cookie
                Catch ex As Exception
                End Try
                If FunimationAPIRegion = Nothing Then
                    Me.Invoke(New Action(Function() As Object
                                             Dim parms As String() = requesturl.Split(New String() {"?region="}, System.StringSplitOptions.RemoveEmptyEntries)
                                             FunimationAPIRegion = "?region=" + parms(1)
                                             Return Nothing
                                         End Function))
                End If
                If b = False Then
                    'If CBool(InStr(requesturl, "https://title-api.prd.funimationsvc.com/v1/episodes/")) Then
                    '    GetFunimationJS_VideoProxy(requesturl)
                    '    Debug.WriteLine("processing :" + requesturl)
                    '    b = True
                    '    Exit For
                    'Else
                    If CBool(InStr(requesturl, "https://title-api.prd.funimationsvc.com/v1/show")) And CBool(InStr(requesturl, "/episodes/")) Then
                        b = True
                        Try
                            Dim Collector As New TaskCookieVisitor
                            Dim CM As ICookieManager = CefSharp_Browser.WebBrowser1.GetCookieManager
                            CM.VisitAllCookies(Collector)
                            Dim list As List(Of Global.CefSharp.Cookie) = Collector.Task.Result()
                            Dim Cookie As String = ""
                            For ii As Integer = 0 To list.Count - 1
                                If CBool(InStr(list.Item(ii).Domain, "funimation.com")) Then 'list.Item(i).Domain = "funimation.com" Then
                                    'MsgBox(list.Item(i).Name + vbNewLine + list.Item(i).Value)
                                    Cookie = Cookie + list.Item(ii).Name + "=" + list.Item(ii).Value + ";"
                                End If
                            Next
                            WebbrowserCookie = Cookie
                        Catch ex As Exception
                        End Try
                        GetFunimationNewJS_VideoProxy(requesturl)
                        Debug.WriteLine("processing :" + requesturl)
                        LoadedUrls.Clear()
                        Me.Text = "Crunchyroll Downloader"
                        Exit Sub
                    End If
                End If
            End If
        Next

        LoadedUrls.Clear()

        If b = True Then
            LoadedUrls.Clear()
            Debug.WriteLine("Just Browsing after all, exiting...")
            Grapp_RDY = True
            Me.Text = "Crunchyroll Downloader"
            Exit Sub
        End If

    End Sub

    Public Sub Navigate(ByVal Url As String)
        If Application.OpenForms().OfType(Of CefSharp_Browser).Any = True Then
            If InvokeRequired = True Then
                Me.Invoke(New Action(Function() As Object
                                         CefSharp_Browser.WebBrowser1.Load(Url)
                                         Return Nothing
                                     End Function))
            Else
                CefSharp_Browser.WebBrowser1.Load(Url)
            End If
        Else
            If InvokeRequired = True Then
                Me.Invoke(New Action(Function() As Object
                                         CefSharp_Browser.Show()
                                         CefSharp_Browser.WebBrowser1.Load(Url)
                                         Return Nothing
                                     End Function))
            Else
                CefSharp_Browser.Show()
                CefSharp_Browser.WebBrowser1.Load(Url)
            End If
        End If
    End Sub

#Region "server"
    Dim ListOfThread As New List(Of Thread)
    Sub ServerStart()
        Dim server As TcpListener
        server = Nothing
        Try
            Dim Port As String = StartServer.ToString
            Dim localAddr As IPAddress = IPAddress.Parse("127.0.0.1")
            server = New TcpListener(localAddr, Int32.Parse(Port))
            ' Start listening for client requests.
            server.Start()
            Debug.WriteLine("Web server started at: " & localAddr.ToString() & ":" & Port)
            While True
                Dim client As TcpClient = server.AcceptTcpClient()
                Dim clientThread As New Thread(Sub() Me.ManageConnections(client))
                clientThread.Start()
            End While
        Catch ex As SocketException
            Debug.WriteLine("SocketException: " + ex.ToString)
        Finally
            Debug.WriteLine(Date.Now.ToString + " " + "End server")
            server.Stop()
        End Try
        Debug.WriteLine(ControlChars.Cr + "Hit enter to continue....")
    End Sub

    Sub ManageConnections(ByVal client As TcpClient)
        Dim bytes(1048576) As Byte
        Dim stream As NetworkStream = client.GetStream()
        ' Debug.WriteLine(Date.Now + " " + "stream opend")
        Dim numberOfBytesRead As Integer = 0
        Dim myCompleteMessage As StringBuilder = New StringBuilder()
        Dim stopWatch As New Stopwatch()
        stopWatch.Start()
        Do While stopWatch.Elapsed.TotalSeconds < 4 And stream.DataAvailable
            'Debug.WriteLine(Date.Now + " " + numberOfBytesRead.ToString + " " + stopWatch.Elapsed.TotalSeconds.ToString)
            numberOfBytesRead = stream.Read(bytes, 0, bytes.Length)
            myCompleteMessage.AppendFormat("{0}", Encoding.UTF8.GetString(bytes, 0, numberOfBytesRead))
        Loop
        stopWatch.Stop()
        ProcessRequest(stream, myCompleteMessage.ToString())
        client.Close()
    End Sub

    Sub ProcessRequest(ByVal stream As NetworkStream, ByVal htmlReq As String)
        Debug.WriteLine(htmlReq)
        ' Dim recvBytes(1048576) As Byte
        Try
            Dim rootPath As String = Directory.GetCurrentDirectory() & "\WebInterface\"
            ' Set default page
            Dim defaultPage As String = "index.html"
            Dim PostPage As String = "post.html"
            Dim strArray() As String
            Dim strRequest As String
            strArray = htmlReq.Trim.Split(New String() {" "}, System.StringSplitOptions.RemoveEmptyEntries)
            'MsgBox(htmlReq)
            If strArray(0).Trim().ToUpper.Equals("POST") Then
                'Debug.WriteLine("receiving data from the add-on")
                'Debug.WriteLine(htmlReq)
                'UrlDecode
                Me.Invoke(New Action(Function() As Object
                                         Me.Text = "Status: receiving data from the add-on"
                                         Me.Invalidate()
                                         Return Nothing
                                     End Function))

#Region "mass-dl"


                If CBool(InStr(htmlReq, "HTMLMass=")) Then
                    Debug.WriteLine("multi episode mode")
                    Try
                        Dim html() As String = htmlReq.Split(New String() {"HTMLMass="}, System.StringSplitOptions.RemoveEmptyEntries)
                        Dim DecodedHTML As String = UrlDecode(html(1))
                        Dim URLSplit() As String = DecodedHTML.Split(New String() {"javascript:"}, System.StringSplitOptions.RemoveEmptyEntries)
                        If Application.OpenForms().OfType(Of Anime_Add).Any = True Then
                            For i As Integer = 0 To URLSplit.Count - 1
                                Dim ii As Integer = i
                                Me.Invoke(New Action(Function() As Object
                                                         If Anime_Add.ListBox1.Items.Contains(URLSplit(ii)) = False Then
                                                             Anime_Add.ListBox1.Items.Add(URLSplit(ii))
                                                         End If
                                                         'Anime_Add.ListBox1.Items.Add(URLSplit(ii))
                                                         Return Nothing
                                                     End Function))
                            Next
                        Else
                            For i As Integer = 0 To URLSplit.Count - 1
                                If ListBoxList.Contains(URLSplit(i)) = False Then
                                    ListBoxList.Add(URLSplit(i))
                                End If
                            Next
                            Me.Invoke(New Action(Function() As Object
                                                     Me.Text = "Status: " + ListBoxList.Count.ToString + " downloads in queue" + vbNewLine + "open the add window to continue"
                                                     Me.Invalidate()
                                                     Return Nothing
                                                 End Function))
                        End If
                        strRequest = rootPath & "Post_Mass_Sucess.html" 'PostPage
                        SendHTMLResponse(stream, strRequest)
                    Catch abort As ThreadAbortException
                        Exit Sub
                    Catch ex As Exception
                        Dim ErrorPage As String = My.Resources.Post_error_Top + ex.ToString + My.Resources.Post_error_Bottom
                        'My.Computer.FileSystem.WriteAllText(Application.StartupPath + "\WebInterface\error_Page.html", ErrorPage, False)
                        'strRequest = rootPath & "error_Page.html" 'PostPage
                        'SendHTMLResponse(stream, strRequest)
                        SendHTMLResponse(stream, Nothing, New ServerResponse(ErrorPage, "html"))

                    End Try
#End Region
#Region "Funimation-mass"
                ElseIf CBool(InStr(htmlReq, "FunimationMass=")) Then
                    Debug.WriteLine("Funimation multi episode mode")
                    Try
                        Dim DecodedHTML As String = UrlDecode(htmlReq)
                        If CBool(InStr(DecodedHTML, "&FunimationCookie=")) Then
                            Dim CookieSplit() As String = DecodedHTML.Split(New String() {"&FunimationCookie="}, System.StringSplitOptions.RemoveEmptyEntries)
                            SystemWebBrowserCookie = CookieSplit(1)
                            Dim URLSplit() As String = CookieSplit(0).Split(New String() {"FunimationMass="}, System.StringSplitOptions.RemoveEmptyEntries)
                            Dim URLSplit2() As String = URLSplit(1).Split(New String() {"javascript:"}, System.StringSplitOptions.RemoveEmptyEntries)
                            If Application.OpenForms().OfType(Of Anime_Add).Any = True Then
                                For i As Integer = 0 To URLSplit2.Count - 1
                                    Dim ii As Integer = i
                                    Me.Invoke(New Action(Function() As Object
                                                             If Anime_Add.ListBox1.Items.Contains(URLSplit2(ii)) = False Then
                                                                 Anime_Add.ListBox1.Items.Add(URLSplit2(ii))
                                                             End If
                                                             'Anime_Add.ListBox1.Items.Add(URLSplit(ii))
                                                             Return Nothing
                                                         End Function))
                                Next
                            Else
                                For i As Integer = 0 To URLSplit2.Count - 1
                                    If ListBoxList.Contains(URLSplit2(i)) = False Then
                                        ListBoxList.Add(URLSplit2(i))
                                    End If
                                Next
                                Me.Invoke(New Action(Function() As Object
                                                         Me.Text = "Status: " + ListBoxList.Count.ToString + " downloads in queue" + vbNewLine + "open the add window to continue"
                                                         Me.Invalidate()
                                                         Return Nothing
                                                     End Function))
                            End If
                            strRequest = rootPath & "Post_Mass_Sucess.html" 'PostPage
                            SendHTMLResponse(stream, strRequest)
                        End If
                    Catch abort As ThreadAbortException
                        Exit Sub
                    Catch ex As Exception
                        Dim ErrorPage As String = My.Resources.Post_error_Top + ex.ToString + My.Resources.Post_error_Bottom
                        'My.Computer.FileSystem.WriteAllText(Application.StartupPath + "\WebInterface\error_Page.html", ErrorPage, False)
                        'strRequest = rootPath & "error_Page.html" 'PostPage
                        'SendHTMLResponse(stream, strRequest)
                        SendHTMLResponse(stream, Nothing, New ServerResponse(ErrorPage, "html"))

                    End Try
#End Region
#Region "funimation Einzeln"
                ElseIf CBool(InStr(htmlReq, "FunimationURL=")) Then
                    Debug.WriteLine("single episode mode - Funimation")
                    'MsgBox(htmlReq)
                    Me.Invoke(New Action(Function() As Object
                                             Me.Text = "Status: Download added from add-on"
                                             Me.Invalidate()
                                             Return Nothing
                                         End Function))
                    Try
                        Dim URLSplit() As String = htmlReq.Split(New String() {"FunimationURL="}, System.StringSplitOptions.RemoveEmptyEntries)
                        Dim URLSplit2() As String = URLSplit(1).Split(New String() {"&FunimationCookie="}, System.StringSplitOptions.RemoveEmptyEntries)
                        SystemWebBrowserCookie = URLSplit2(1)
                        WebbrowserURL = UrlDecode(URLSplit2(0))
                        If CBool(InStr(WebbrowserURL, "funimation.com")) Then
                            If DubFunimation = "Disabled" Then
                            Else
                                If CBool(InStr(WebbrowserURL, "?lang=")) Then
                                    Dim ClearUri As String() = WebbrowserURL.Split(New String() {"?lang="}, System.StringSplitOptions.RemoveEmptyEntries)
                                    If ClearUri.Count > 1 Then
                                        If CBool(InStr(ClearUri(1), "&")) Then
                                            Dim ClearUri2 As String() = ClearUri(1).Split(New String() {"&"}, System.StringSplitOptions.RemoveEmptyEntries)
                                            Dim Parms As String = Nothing
                                            For i As Integer = 1 To ClearUri2.Count - 1
                                                Parms = Parms + "&" + ClearUri2(i)
                                            Next
                                            WebbrowserURL = ClearUri(0) + "?lang=" + DubFunimation + Parms
                                        Else
                                            WebbrowserURL = ClearUri(0) + "?lang=" + DubFunimation
                                        End If
                                    Else
                                        WebbrowserURL = ClearUri(0) + "?lang=" + DubFunimation
                                    End If
                                ElseIf CBool(InStr(WebbrowserURL, "&lang=")) Then
                                    Dim ClearUri As String() = WebbrowserURL.Split(New String() {"&lang="}, System.StringSplitOptions.RemoveEmptyEntries)
                                    If ClearUri.Count > 1 Then
                                        If CBool(InStr(ClearUri(1), "&")) Then
                                            Dim ClearUri2 As String() = ClearUri(1).Split(New String() {"&"}, System.StringSplitOptions.RemoveEmptyEntries)
                                            Dim Parms As String = Nothing
                                            For i As Integer = 1 To ClearUri2.Count - 1
                                                Parms = Parms + "&" + ClearUri2(i)
                                            Next
                                            WebbrowserURL = ClearUri(0) + "&lang=" + DubFunimation + Parms
                                        Else
                                            WebbrowserURL = ClearUri(0) + "&lang=" + DubFunimation
                                        End If
                                    Else
                                        WebbrowserURL = ClearUri(0) + "&lang=" + DubFunimation
                                    End If
                                ElseIf CBool(InStr(WebbrowserURL, "?")) Then
                                    WebbrowserURL = WebbrowserURL + "&lang=" + DubFunimation
                                Else
                                    WebbrowserURL = WebbrowserURL + "?lang=" + DubFunimation
                                End If
                            End If
                        End If
                        If Funimation_Grapp_RDY = True Then
                            If RunningDownloads >= MaxDL Then
                                If ListBoxList.Contains(WebbrowserURL) = False Then
                                    ListBoxList.Add(WebbrowserURL)
                                End If
                                'ListBoxList.Add(WebbrowserURL)
                            Else
                                Me.Invoke(New Action(Function() As Object
                                                         Navigate(WebbrowserURL)
                                                         Return Nothing
                                                     End Function))
                                b = False
                            End If
                        Else
                            If Application.OpenForms().OfType(Of Anime_Add).Any = True Then
                                Me.Invoke(New Action(Function() As Object
                                                         If Anime_Add.ListBox1.Items.Contains(WebbrowserURL) = False Then
                                                             Anime_Add.ListBox1.Items.Add(WebbrowserURL)
                                                         End If
                                                         Return Nothing
                                                     End Function))
                            Else
                                If ListBoxList.Contains(WebbrowserURL) = False Then
                                    ListBoxList.Add(WebbrowserURL)
                                End If
                                Me.Invoke(New Action(Function() As Object
                                                         Me.Text = "Status: " + ListBoxList.Count.ToString + " downloads in queue"
                                                         Me.Invalidate()
                                                         Return Nothing
                                                     End Function))
                            End If
                        End If
                        strRequest = rootPath & "Post_Single_Sucess.html" 'PostPage
                        SendHTMLResponse(stream, strRequest)
                    Catch abort As ThreadAbortException
                        Exit Sub
                    Catch ex As Exception
                        Dim ErrorPage As String = My.Resources.Post_error_Top + ex.ToString + My.Resources.Post_error_Bottom
                        'My.Computer.FileSystem.WriteAllText(Application.StartupPath + "\WebInterface\error_Page.html", ErrorPage, False)
                        'strRequest = rootPath & "error_Page.html" 'PostPage
                        'SendHTMLResponse(stream, strRequest)
                        SendHTMLResponse(stream, Nothing, New ServerResponse(ErrorPage, "html"))

                    End Try
#End Region
                Else
                    strRequest = rootPath & "error_Page_default.html" 'PostPage
                    SendHTMLResponse(stream, strRequest)
                End If
            ElseIf strArray(0).Trim().ToUpper.Equals("GET") Then
                strRequest = strArray(1).Trim
                If strRequest.StartsWith("/") Then
                    strRequest = strRequest.Substring(1)
                End If
                If strRequest.EndsWith("/") Or strRequest.Equals("") Then
                    'Debug.WriteLine(Date.Now + " " + "it's index.html")
                    strRequest = strRequest & defaultPage '"HTMLString" 'strRequest & defaultPage
                End If

                strRequest = rootPath & strRequest
                SendHTMLResponse(stream, strRequest)
            Else ' Not HTTP GET method

                strRequest = rootPath & defaultPage
                SendHTMLResponse(stream, strRequest)
            End If
        Catch ex As Exception
            Debug.WriteLine(ex.ToString())
            Dim ErrorPage As String = My.Resources.Post_error_Top + ex.ToString + My.Resources.Post_error_Bottom
            ' My.Computer.FileSystem.WriteAllText(Application.StartupPath + "\WebInterface\error_Page.html", ErrorPage, False)
            SendHTMLResponse(stream, Nothing, New ServerResponse(ErrorPage, "html"))

        End Try
    End Sub

    ' Send HTTP Response
    Private Sub SendHTMLResponse(ByVal stream As NetworkStream, Optional ByVal httpRequest As String = Nothing, Optional ByVal Response As ServerResponse = Nothing)
        Try
            Dim respByte() As Byte
            If httpRequest = Nothing Then
                Debug.WriteLine(httpRequest)
                respByte = System.Text.Encoding.UTF8.GetBytes(Response.Content) 'File.ReadAllBytes("") '
                ' Set HTML Header
                Dim htmlHeader As String =
                    "HTTP/1.0 200 OK" & ControlChars.CrLf &
                    "Server: CRD 1.0" & ControlChars.CrLf &
                   "Content-Length: " & respByte.Length & ControlChars.CrLf &
                    "Content-Type: " & GetContentType(Response.Type) &
                    ControlChars.CrLf & ControlChars.CrLf
                ' The content Length of HTML Header
                Dim headerByte() As Byte = Encoding.UTF8.GetBytes(htmlHeader)
                stream.Write(headerByte, 0, headerByte.Length)
                stream.Write(respByte, 0, respByte.Length)

            ElseIf CBool(InStr(httpRequest, "index.html")) Then
                Debug.WriteLine(httpRequest)
                respByte = System.Text.Encoding.UTF8.GetBytes(HTML) 'File.ReadAllBytes("") '
                ' Set HTML Header
                Dim htmlHeader As String =
                    "HTTP/1.0 200 OK" & ControlChars.CrLf &
                    "Server: CRD 1.0" & ControlChars.CrLf &
                   "Content-Length: " & respByte.Length & ControlChars.CrLf &
                    "Content-Type: " & GetContentType(httpRequest) &
                    ControlChars.CrLf & ControlChars.CrLf
                ' The content Length of HTML Header
                Dim headerByte() As Byte = Encoding.UTF8.GetBytes(htmlHeader)
                'Debug.WriteLine("HTML Header: " & ControlChars.CrLf & htmlHeader)
                ' Send HTML Header back to Web Browser
                'Dim response() As Byte = headerByte.Concat(respByte).ToArray()
                ' stream.Write(response, 0, response.Length)
                'Debug.WriteLine("sending headers")
                stream.Write(headerByte, 0, headerByte.Length)
                'Debug.WriteLine("headers send")
                'Debug.WriteLine("sending content")
                ' Send HTML Content back to Web Browser
                stream.Write(respByte, 0, respByte.Length)
                'clientSocket.Send(respByte, 0, respByte.Length, SocketFlags.None)
                ' Close HTTP Socket connection
                'Debug.WriteLine("content send")
            ElseIf File.Exists(httpRequest) Then
                Debug.WriteLine(httpRequest)
                respByte = File.ReadAllBytes(httpRequest)
                ' Set HTML Header
                Dim htmlHeader As String =
                    "HTTP/1.0 200 OK" & ControlChars.CrLf &
                    "Server: CRD 1.0" & ControlChars.CrLf &
                   "Content-Length: " & respByte.Length & ControlChars.CrLf &
                    "Content-Type: " & GetContentType(httpRequest) & ControlChars.CrLf &
                    "Connection: close" &
                    ControlChars.CrLf & ControlChars.CrLf
                ' The content Length of HTML Header
                Dim headerByte() As Byte = Encoding.UTF8.GetBytes(htmlHeader)
                ' Send HTML Header back to Web Browser
                stream.Write(headerByte, 0, headerByte.Length)
                ' Send HTML Content back to Web Browser
                stream.Write(respByte, 0, respByte.Length)
            ElseIf httpRequest = "Handshake_Confirm" Then
                respByte = System.Text.Encoding.UTF8.GetBytes("CRD_Handshake_Confirm") 'File.ReadAllBytes("") '
                Dim htmlHeader As String =
                    "HTTP/1.0 200 OK" & ControlChars.CrLf &
                    "Server: CRD 1.0" & ControlChars.CrLf &
                    "Access-Control-Allow-Origin: *" & ControlChars.CrLf &
                    "Content-Length: " & respByte.Length & ControlChars.CrLf &
                    "Content-Type: text/plain" &
                    "Connection: close" &
                      ControlChars.CrLf & ControlChars.CrLf
                Dim headerByte() As Byte = Encoding.UTF8.GetBytes(htmlHeader)
                stream.Write(headerByte, 0, headerByte.Length)
                ' Send HTML Content back to Web Browser
                stream.Write(respByte, 0, respByte.Length)
                Debug.WriteLine("content send")
            Else
                respByte = Encoding.UTF8.GetBytes(My.Resources.Error_404) 'File.ReadAllBytes(httpRequest)
                Debug.WriteLine("404 Not Found : " + httpRequest)
                ' Set HTML Header
                Dim htmlHeader As String =
                "HTTP/1.0 404 Not Found" & ControlChars.CrLf &
                "Server: WebServer 1.0" & ControlChars.CrLf &
                "Connection: close" &
                 ControlChars.CrLf & ControlChars.CrLf
                ' The content Length of HTML Header
                Dim headerByte() As Byte = Encoding.UTF8.GetBytes(htmlHeader)
                ' Send HTML Header back to Web Browser
                stream.Write(headerByte, 0, headerByte.Length)
                'stream.Write(headerByte, 0, headerByte.Length, SocketFlags.None)
                ' Send HTML Content back to Web Browser
                stream.Write(respByte, 0, respByte.Length)
            End If
        Catch ex As Exception
            Debug.WriteLine(ex.ToString())
        End Try
    End Sub

    ' Get Content Type
    Private Function GetContentType(ByVal httpRequest As String) As String
        If (httpRequest.EndsWith("html")) Then
            Return "text/html"
        ElseIf (httpRequest.EndsWith("htm")) Then
            Return "text/html"
        ElseIf (httpRequest.EndsWith("txt")) Then
            Return "text/plain"
        ElseIf (httpRequest.EndsWith("gif")) Then
            Return "image/gif"
        ElseIf (httpRequest.EndsWith("jpg")) Then
            Return "image/jpeg"
        ElseIf (httpRequest.EndsWith("jpg")) Then
            Return "image/jpeg"
        ElseIf (httpRequest.EndsWith("ico")) Then
            Return "image/x-icon"
        ElseIf (httpRequest.EndsWith("png")) Then
            Return "image/png"
        ElseIf (httpRequest.EndsWith("jpeg")) Then
            Return "image/jpeg"
        ElseIf (httpRequest.EndsWith("pdf")) Then
            Return "application/pdf"
        ElseIf (httpRequest.EndsWith("pdf")) Then
            Return "application/pdf"
        ElseIf (httpRequest.EndsWith("doc")) Then
            Return "application/msword"
        ElseIf (httpRequest.EndsWith("xls")) Then
            Return "application/vnd.ms-excel"
        ElseIf (httpRequest.EndsWith("ppt")) Then
            Return "application/vnd.ms-powerpoint"
        ElseIf (httpRequest.EndsWith("js")) Then
            Return "application/javascript"
        ElseIf (httpRequest.EndsWith("ass")) Then
            Return "application/octet-stream"
        ElseIf (httpRequest.EndsWith("check")) Then
            Return "application/json"
        Else
            Return "text/plain"
        End If
    End Function
    Private Sub Button1_Click(sender As Object, e As EventArgs)
        ErrorDialog.Show()
    End Sub

    Private Sub Button1_Click_1(sender As Object, e As EventArgs)
        ErrorDialog.ShowDialog()
    End Sub

    Private Sub Btn_min_Click(sender As Object, e As EventArgs) Handles Btn_min.Click
        Me.WindowState = System.Windows.Forms.FormWindowState.Minimized
    End Sub

    Private Sub Button1_Click_2(sender As Object, e As EventArgs)
        network_scan.Show()
    End Sub

    Private Sub Timer4_Tick(sender As Object, e As EventArgs) Handles Timer4.Tick

        If Application.OpenForms().OfType(Of Anime_Add).Any = False Then
            If ListBoxList.Count > 0 Then
                If CBool(InStr(Me.Text, "Crunchyroll Downloader")) Or CBool(InStr(Me.Text, " downloads in queue")) Then
                    Me.Text = "Status: " + ListBoxList.Count.ToString + " downloads in queue" + vbNewLine + "open the add window to continue"
                End If
            End If
        End If

    End Sub

    Private Sub Main_Shown(sender As Object, e As EventArgs) Handles Me.Shown
        Btn_add.Image = My.Resources.main_add
        Panel1.Select()
    End Sub

    Private Sub TestDownloadToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TestDownloadToolStripMenuItem.Click
        Dim Token As String = Nothing
        Try
            Dim Collector As New TaskCookieVisitor
            Dim CM As ICookieManager = CefSharp_Browser.WebBrowser1.GetCookieManager
            CM.VisitAllCookies(Collector)
            Dim DeviceRegion As String = Nothing
            Dim list As List(Of Global.CefSharp.Cookie) = Collector.Task.Result()
            Dim Cookie As String = ""
            For i As Integer = 0 To list.Count - 1
                If CBool(InStr(list.Item(i).Domain, "funimation.com")) Then 'list.Item(i).Domain = "funimation.com" Then
                    'MsgBox(list.Item(i).Name + vbNewLine + list.Item(i).Value)
                    Cookie = Cookie + list.Item(i).Name + "=" + list.Item(i).Value + ";"
                End If
                If CBool(InStr(list.Item(i).Domain, "funimation.com")) And CBool(InStr(list.Item(i).Name, "src_token")) Then 'list.Item(i).Domain = "funimation.com" Then
                    'MsgBox(list.Item(i).Name + vbNewLine + list.Item(i).Value)
                    Token = "Token " + list.Item(i).Value
                End If
                If CBool(InStr(list.Item(i).Domain, "funimation.com")) And CBool(InStr(list.Item(i).Name, "region")) Then 'list.Item(i).Domain = "funimation.com" Then
                    'MsgBox(list.Item(i).Name + vbNewLine + list.Item(i).Value)
                    DeviceRegion = "?deviceType=web&" + list.Item(i).Name + "=" + list.Item(i).Value
                End If
            Next
        Catch ex As Exception

        End Try
        ' region=US;
        If Token = Nothing Then
            MsgBox("No Token has been found...", MsgBoxStyle.Exclamation)
        Else
            FunimationToken = Token
            MsgBox("Token found!" + vbNewLine + Token, MsgBoxStyle.Information)
        End If
    End Sub


    Private Sub CheckCRBetaTokenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CheckCRBetaTokenToolStripMenuItem.Click
        If CrBetaBasic = Nothing Then
            If CBool(MessageBox.Show("No CR Beta Basic Token has been found..." + vbNewLine + "Press 'Yes' to manuel edit the Token", "Token", MessageBoxButtons.YesNo) = DialogResult.Yes) Then
                CrBetaBasic = InputBox("Please enter a valid Token", "Token")
            End If

        Else
            MsgBox("CR Beta Basic Token found!" + vbNewLine + CrBetaBasic, MsgBoxStyle.Information)
            ' CrBetaBasic = Nothing


        End If
    End Sub

    Private Sub AddonHTMLToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AddonHTMLToolStripMenuItem.Click
        My.Computer.Clipboard.SetText(HTML)
    End Sub

    Private Sub Timer3OffToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles Timer3OffToolStripMenuItem.Click
        Timer3.Enabled = False
    End Sub

    Private Sub ThreadCount_Click(sender As Object, e As EventArgs) Handles ThreadCount.Click
        Trackbar.ShowDialog()
    End Sub

    Private Sub MsgBoxToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MsgBoxToolStripMenuItem.Click
        MsgBox(LoadedUrls.Count.ToString)
        For i As Integer = 0 To LoadedUrls.Count - 1
            MsgBox(LoadedUrls(i))
        Next
    End Sub

    Private Sub CRCookieToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CRCookieToolStripMenuItem.Click

        'MsgBox(Curl(InputBox("test", "test")))

        MsgBox(CR_Cookies)
    End Sub

    Private Sub ClearAllSettingsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ClearAllSettingsToolStripMenuItem.Click


        If MessageBox.Show("This will clear all settings and close the programm!", "confirm?", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
            Registry.CurrentUser.DeleteSubKey("Software\CRDownloader")
            Me.Close()
        End If

    End Sub


    Private Sub ItemBoundsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ItemBoundsToolStripMenuItem.Click
        Try

            For s As Integer = 0 To Panel1.Controls.Count - 1
                MsgBox(Panel1.Controls.Item(s).Bounds.ToString)
            Next
        Catch ex As Exception
        End Try
    End Sub




    Private Sub PanelControlRemoved(sender As Object, e As ControlEventArgs) Handles Panel1.ControlAdded, Panel1.ControlRemoved

        ItemBounds()
    End Sub

    Private Sub PanelScroll(sender As Object, e As ScrollEventArgs) Handles Panel1.Scroll
        'MsgBox("Scroll")
        ItemBounds()
    End Sub

    Sub ItemBounds()
        Try
            Panel1.AutoScrollPosition = New Point(0, 0)
            Dim W As Integer = Panel1.Width
            If Panel1.Controls.Count * 142 > Panel1.Height Then
                W = Panel1.Width - SystemInformation.VerticalScrollBarWidth
            End If

            Dim Item As New List(Of CRD_List_Item)
            Item.AddRange(Panel1.Controls.OfType(Of CRD_List_Item))
            For s As Integer = 0 To Item.Count - 1
                Item(s).SetBounds(0, 142 * s, W - 2, 142)
                If Debug2 = True Then
                    Debug.WriteLine("Ist: " + Item(s).Location.Y.ToString)
                    Debug.WriteLine("Soll: " + (142 * s).ToString)
                End If
            Next


        Catch ex As Exception
            Debug.WriteLine(ex.ToString)
        End Try
    End Sub

    Private Sub DummyItemToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DummyItemToolStripMenuItem.Click
        Dim TN As String = "https://invalid.com/"
        Dim cmd As String = "-i " + Chr(34) + "https://invalid.com/" + Chr(34) + " -c copy "
        ListItemAdd("TestDL", "CR", "TestDL", "9987p", "DE", "None", TN, cmd, "E:\Test\RWBY\Testdl.mkv")


    End Sub















#End Region
End Class

Public Class FunimationOverview
    Public ID As String
    Public Title As String
    Public Slug As String
    Public Sub New(ByVal Slug As String, ByVal ID As String, ByVal Title As String)
        Me.ID = ID
        Me.Title = Title
        Me.Slug = Slug
    End Sub

    Public Overrides Function ToString() As String
        Return String.Format("{0}, {1}, {2}", Me.Slug, Me.ID, Me.Title)
    End Function
End Class

Public Class FunimationSubs
    Public LangugageCode As String
    Public Url As String
    Public Format As String
    Public Sub New(ByVal LangugageCode As String, ByVal Format As String, ByVal Url As String)
        Me.Url = Url
        Me.LangugageCode = LangugageCode
        Me.Format = Format
    End Sub

    Public Overrides Function ToString() As String
        Return String.Format("{0}, {1}, {2}", Me.LangugageCode, Me.Format, Me.Url)
    End Function
End Class

Public Class FunimationStream
    Public audioLanguage As String
    Public Url As String
    Public version As String
    Public Primary As Boolean
    Public Sub New(ByVal audioLanguage As String, ByVal version As String, ByVal Url As String, ByVal Primary As Boolean)
        Me.Primary = Primary
        Me.Url = Url
        Me.audioLanguage = audioLanguage
        Me.version = version
    End Sub

    Public Overrides Function ToString() As String
        Return String.Format("{0}, {1}, {2}", Me.audioLanguage, Me.version, Me.Url)
    End Function
End Class

Public Class CR_Beta_Stream
    Public audioLanguage As String
    Public Url As String
    Public subLang As String
    Public Format As String
    Public Sub New(ByVal audioLanguage As String, ByVal subLang As String, ByVal Format As String, ByVal Url As String)
        Me.subLang = subLang
        Me.Url = Url
        Me.audioLanguage = audioLanguage
        Me.Format = Format
    End Sub

    Public Overrides Function ToString() As String
        Return String.Format("{0}, {1}, {2}", Me.audioLanguage, Me.subLang, Me.Format, Me.Url)
    End Function

End Class
Public Class ServerResponse

    Public Type As String
    Public Content As String
    Public Sub New(ByVal Content As String, ByVal Type As String)
        Me.Content = Content
        Me.Type = Type

    End Sub

    Public Overrides Function ToString() As String
        Return String.Format("{0}, {1}", Me.Content, Me.Type)
    End Function
End Class