Crunchyroll-Downloader-v3.0/Crunchyroll Downloader/GeckoFX.vb

Imports Gecko.Events
Imports Gecko
Imports System.IO
Imports Gecko.Cache
Imports System.ComponentModel
Imports System.Threading
Imports System.Net
Imports System.Net.WebUtility
Imports System.IO.Compression
Imports System.Text

Public Class GeckoFX
    Public keks As String = Nothing
    'Public c As Boolean = True
    Dim t As Thread
    Dim ScanTrue As Boolean = False
    Private Sub GeckoWebBrowser1_DocumentCompleted(sender As Object, e As EventArgs) Handles WebBrowser1.DocumentCompleted

        If ScanTrue = False Then
            Button2.Enabled = True
        End If
        If Main.LoginOnly = "US_UnBlock" Then
            Main.LoginOnly = "US_UnBlock_Wait"
            If CBool(InStr(WebBrowser1.Document.Body.OuterHtml, "waiting for reCAPTCHA . . .")) Then
                Main.Pause(4)
                Main.LoginOnly = "US_UnBlock"
            Else

                Dim cookieGrapp As String = WebBrowser1.Document.Body.OuterHtml '.Replace(vbTab, "").Replace(" ", "")
                If Main.Debug2 = True Then
                    MsgBox(cookieGrapp)
                End If
                Dim cookieGrapp2() As String = cookieGrapp.Split(New String() {"<a class=" + Chr(34) + "cookie" + Chr(34) + ">"}, System.StringSplitOptions.RemoveEmptyEntries)
                Dim cookieGrapp3() As String = cookieGrapp2(1).Split(New String() {"</a>"}, System.StringSplitOptions.RemoveEmptyEntries)
                keks = cookieGrapp3(0)
                If Main.Debug2 = True Then
                    MsgBox(keks)
                End If

                WebBrowser1.Navigate("https://www.crunchyroll.com/logout")
                Main.Pause(5)
                WebBrowser1.Navigate("javascript:document.cookie =" + Chr(34) + "session_id=" + keks + "; expires=Thu, 04 Jan 2022 00:00:00 UTC; path=/;" + Chr(34) + ";")
                Main.Pause(1)
                WebBrowser1.Navigate("javascript:document.cookie =" + Chr(34) + "sess_id=" + keks + "; expires=Thu, 04 Jan 2022 00:00:00 UTC; path=/;" + Chr(34) + ";")
                Main.Pause(1)
                If Main.LoginDialog = True Then
                    'Login.ShowDialog()
                Else
                    WebBrowser1.Navigate("https://www.crunchyroll.com/")
                End If

            End If

        Else


            If CBool(InStr(WebBrowser1.Url.ToString, "crunchyroll.com")) Then

                If Main.b = False Then
                    Try
                        If WebBrowser1.Url.ToString = "https://www.crunchyroll.com/" Then
                            Main.b = True
                        ElseIf WebBrowser1.Url.ToString = "https://www.crunchyroll.com/en-gb" Then
                            Main.b = True
                        ElseIf WebBrowser1.Url.ToString = "https://www.crunchyroll.com/es" Then
                            Main.b = True
                        ElseIf WebBrowser1.Url.ToString = "https://www.crunchyroll.com/es-es" Then
                            Main.b = True
                        ElseIf WebBrowser1.Url.ToString = "https://www.crunchyroll.com/pt-br" Then
                            Main.b = True
                        ElseIf WebBrowser1.Url.ToString = "https://www.crunchyroll.com/pt-pt" Then
                            Main.b = True
                        ElseIf WebBrowser1.Url.ToString = "https://www.crunchyroll.com/fr" Then
                            Main.b = True
                        ElseIf WebBrowser1.Url.ToString = "https://www.crunchyroll.com/de" Then
                            Main.b = True
                        ElseIf WebBrowser1.Url.ToString = "https://www.crunchyroll.com/ar" Then
                            Main.b = True
                        ElseIf WebBrowser1.Url.ToString = "https://www.crunchyroll.com/it" Then
                            Main.b = True
                        ElseIf WebBrowser1.Url.ToString = "https://www.crunchyroll.com/ru" Then
                            Main.b = True
                        ElseIf CBool(InStr(WebBrowser1.Document.Body.OuterHtml, "hardsub_lang")) Then
                            Main.WebbrowserURL = WebBrowser1.Url.ToString
                            Main.WebbrowserText = WebBrowser1.Document.Body.OuterHtml
                            Main.WebbrowserTitle = WebBrowser1.DocumentTitle
                            Main.b = True
                            If Main.d = False Then
                                Main.d = True
                                t = New Thread(AddressOf Main.DownloadSubsOnly)
                                t.Priority = ThreadPriority.Normal
                                t.IsBackground = True
                                t.Start()
                            Else
                                t = New Thread(AddressOf Main.GrappURL)
                                t.Priority = ThreadPriority.Normal
                                t.IsBackground = True
                                t.Start()
                            End If



                        ElseIf CBool(InStr(WebBrowser1.Document.Body.OuterHtml, "season-dropdown content-menu block")) Then
                            Main.b = True
                            Anime_Add.textBox2.Text = "Name of the Anime"
                            Main.WebbrowserURL = WebBrowser1.Url.ToString
                            Main.WebbrowserText = WebBrowser1.Document.Body.OuterHtml
                            Main.WebbrowserTitle = WebBrowser1.DocumentTitle
                            If Main.d = False Then
                                Main.d = True
                                Main.SeasonDropdownGrappSubs()
                                einstellungen.StatusLabel.Text = "Status: Multi Download detected!"
                            Else
                                Main.SeasonDropdownGrapp()
                            End If
                        ElseIf CBool(InStr(WebBrowser1.Document.Body.OuterHtml, "wrapper container-shadow hover-classes")) Then
                            Main.b = True
                            Anime_Add.textBox2.Text = "Name of the Anime"
                            Main.WebbrowserURL = WebBrowser1.Url.ToString
                            Main.WebbrowserText = WebBrowser1.Document.Body.OuterHtml
                            Main.WebbrowserTitle = WebBrowser1.DocumentTitle
                            If Main.d = False Then
                                Main.d = True
                                Main.MassGrappSubs()
                                einstellungen.StatusLabel.Text = "Status: Multi Download detected!"

                            Else
                                Main.MassGrapp()
                            End If
                        Else
                            Main.b = True
                            MsgBox(Main.No_Stream, MsgBoxStyle.OkOnly)
                            Anime_Add.StatusLabel.Text = "Status: idle"
                        End If
                    Catch ex As Exception
                        MsgBox(ex.ToString)
                        Anime_Add.StatusLabel.Text = "Status: idle"
                    End Try
                ElseIf Main.c = False Then
                    If CBool(InStr(WebBrowser1.Document.Body.OuterHtml, "hardsub_lang")) Then
                        Main.c = True
                        Main.WebbrowserURL = WebBrowser1.Url.ToString
                        Main.WebbrowserText = WebBrowser1.Document.Body.OuterHtml
                        Main.WebbrowserTitle = WebBrowser1.DocumentTitle
                        'SoftSub.DownloadSubs()
                        Me.Close()
                    End If


                End If
                If Main.UserBowser = False Then
                    Main.WebbrowserURL = WebBrowser1.Url.ToString
                    Main.WebbrowserText = WebBrowser1.Document.Body.OuterHtml
                    Main.WebbrowserTitle = WebBrowser1.DocumentTitle
                    Me.Close()
                End If
                'ElseIf CBool(InStr(WebBrowser1.Url.ToString, "https://www.anime-on-demand.de/anime/")) Then

                'MsgBox(Main.WebbrowserSoftSubURL)
                ' Anime_Add.StatusLabel.Text = 
            ElseIf CBool(InStr(WebBrowser1.Url.ToString, "funimation.com")) Then
                If Main.b = False Then

                    If InStr(WebBrowser1.Document.Body.OuterHtml, My.Resources.Funimation_Player_ID) Then
                        Main.WebbrowserURL = WebBrowser1.Url.ToString
                        Main.WebbrowserText = WebBrowser1.Document.Body.OuterHtml
                        Main.WebbrowserTitle = WebBrowser1.DocumentTitle
                        Main.WebbrowserHeadText = WebBrowser1.Document.Head.InnerHtml
                        Main.WebbrowserCookie = WebBrowser1.Document.Cookie
                        Main.b = True

                        t = New Thread(AddressOf Main.Funitmation_Grapp)
                        t.Priority = ThreadPriority.Normal
                        t.IsBackground = True
                        t.Start()

                    Else
                        Anime_Add.StatusLabel.Text = "fail?"
                    End If
                End If

            Else
                If Main.b = False Then
                    Main.WebbrowserURL = WebBrowser1.Url.ToString
                    Main.WebbrowserText = WebBrowser1.Document.Body.OuterHtml
                    Main.WebbrowserTitle = WebBrowser1.DocumentTitle
                    Main.b = True
                    Main.UserBowser = True
                    For i As Integer = 20 To 0 Step -1
                        Main.Pause(1)
                        Anime_Add.StatusLabel.Text = "Status: scanning network traffic " + Math.Abs(i).ToString
                    Next
                    Anime_Add.StatusLabel.Text = "Status:  "
                    Dim FileLocation As DirectoryInfo = New DirectoryInfo(Application.StartupPath)
                    Dim CurrentFile As String = Nothing
                    For Each File In FileLocation.GetFiles()
                        If InStr(File.FullName, "gecko-network.txt") Then
                            CurrentFile = File.FullName
                            Exit For
                        End If
                    Next
                    Dim logFileStream As FileStream = New FileStream(CurrentFile, FileMode.Open, FileAccess.ReadWrite, FileShare.ReadWrite)
                    Dim logFileReader As StreamReader = New StreamReader(logFileStream)
                    Dim line As String = Nothing
                    Dim HTMLString As String = Nothing
                    line = logFileReader.ReadLine

                    While (line IsNot Nothing)
                        line = logFileReader.ReadLine
                        If InStr(line, ".m3u8") Then 'm3u8?
                            If HTMLString = Nothing Then
                                HTMLString = line
                            Else
                                HTMLString = HTMLString + vbNewLine + line
                            End If
                            For i As Integer = 0 To 10
                                line = logFileReader.ReadLine
                                If InStr(line, " Host: ") Then
                                    HTMLString = HTMLString + vbNewLine + line
                                End If
                            Next

                        End If
                    End While
                    logFileReader.Close()
                    logFileStream.Close()
                    'MsgBox(HTMLString)
                    If InStr(HTMLString, ".m3u8") Then 'm3u8?
                        Anime_Add.StatusLabel.Text = "Status: m3u8 found, trying to start the download"
                        Main.LogBrowserData = False
                        GeckoPreferences.Default("logging.config.LOG_FILE") = "gecko-network.txt"
                        GeckoPreferences.Default("logging.nsHttp") = 0
                        Dim URL As String = Nothing
                        Dim HTMLSplit() As String = HTMLString.Split(New String() {vbNewLine}, System.StringSplitOptions.RemoveEmptyEntries)
                        For i As Integer = 0 To HTMLSplit.Count - 1
                            If InStr(HTMLSplit(i), ".m3u8") Then 'm3u8?
                                Dim URLPart2() As String = HTMLSplit(i).Split(New String() {"  GET "}, System.StringSplitOptions.RemoveEmptyEntries)
                                Dim URLPart2Split2() As String = URLPart2(1).Split(New String() {" HTTP/"}, System.StringSplitOptions.RemoveEmptyEntries)
                                Dim URLPart1() As String = HTMLSplit(i + 1).Split(New String() {" Host: "}, System.StringSplitOptions.RemoveEmptyEntries)
                                Main.NonCR_URL = "https://" + URLPart1(1) + URLPart2Split2(0)
                                'MsgBox(Main.NonCR_URL)
                                'RichTextBox1.Text = RichTextBox1.Text + vbNewLine + URL_Final
                                t = New Thread(AddressOf Main.Grapp_non_CR)
                                t.Priority = ThreadPriority.Normal
                                t.IsBackground = True
                                t.Start()
                                Main.UserBowser = False
                                Exit For
                                Me.Close()
                            End If
                        Next
                    Else
                        Anime_Add.StatusLabel.Text = "Status: no m3u8 found, analyzing HTML content"
                        WebBrowser1.Navigate("view-source:" + Main.WebbrowserURL)
                        Main.Pause(3)
                        If CBool(InStr(WebBrowser1.Document.Body.OuterHtml, ".m3u8")) Then
#Region "m3u8 suche"
                            Main.WebbrowserText = UrlDecode(WebBrowser1.Document.Body.OuterHtml)
                            If InStr(Main.WebbrowserText, ".m3u8") Then 'm3u8?
                            Else
                                Anime_Add.StatusLabel.Text = "Status: no m3u8 found"
                                Main.UserBowser = False
                                Me.Close()
                                Exit Sub
                            End If
                            Dim ii As Integer = 0
                            Dim Video_URI_Master As String = Nothing
                            Dim Video_URI_Master_Split1 As String() = Main.WebbrowserText.Split(New String() {".m3u8"}, System.StringSplitOptions.RemoveEmptyEntries) 'm3u8?
                            Dim m3u8Link As String = Nothing
                            For i As Integer = 0 To Video_URI_Master_Split1.Count - 2
                                Dim Video_URI_Master_Split_Top As String() = Video_URI_Master_Split1(i).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
                                Dim Video_URI_Master_Split_Bottom As String() = Video_URI_Master_Split1(i + 1).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
                                m3u8Link = Video_URI_Master_Split_Top(Video_URI_Master_Split_Top.Count - 1) + ".m3u8" + Video_URI_Master_Split_Bottom(0) 'm3u8?
                                Exit For
                            Next
                            m3u8Link = m3u8Link.Replace("&amp;", "&").Replace("/u0026", "&").Replace("\u002F", "/")
                            Dim req As WebRequest
                            Dim res As WebResponse

                            req = WebRequest.Create(m3u8Link)

                            Try
                                res = req.GetResponse()
                                Dim ResponseStreamReader As StreamReader = New StreamReader(res.GetResponseStream)
                                Dim ResponseStreamString As String = ResponseStreamReader.ReadToEnd
                                If InStr(ResponseStreamString, "drm") Then
                                    Anime_Add.StatusLabel.Text = "Status: m3u8 found, but looks like it is DRM protected"
                                Else
                                    Anime_Add.StatusLabel.Text = "Status: m3u8 found, looks good"
                                    Main.Pause(1)
                                    Main.NonCR_URL = m3u8Link
                                    t = New Thread(AddressOf Main.Grapp_non_CR)
                                    t.Priority = ThreadPriority.Normal
                                    t.IsBackground = True
                                    t.Start()
                                    Me.Close()
                                End If
                            Catch ee As WebException
                                Anime_Add.StatusLabel.Text = "Status: error while loading m3u8"
                                Main.UserBowser = False
                                Me.Close()
                                Exit Sub
                                ' URL doesn't exists
                            Catch eee As Exception
                                'MsgBox(eee.ToString + vbNewLine + m3u8Link)
                            End Try
#End Region
                        End If
                        Anime_Add.StatusLabel.Text = "Status: idle"
                        Me.Close()
                        Main.UserBowser = False
                    End If
                End If
            End If
            If Main.UserBowser = False Then
                If Main.b = True Then
                    Anime_Add.StatusLabel.Text = "Status: idle"
                    Me.Close()
                End If
            End If
        End If
    End Sub

    Private Sub GeckoFX_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If Me.Width > My.Computer.Screen.Bounds.Width Then
            Me.Width = My.Computer.Screen.Bounds.Width
            WebBrowser1.Width = Me.Size.Width - 15 ', Me.Size.Height - 69)
            WebBrowser1.Location = New Point(0, 30)
            TextBox1.Width = My.Computer.Screen.Bounds.Width - 435

        End If

        If Me.Size.Height > My.Computer.Screen.Bounds.Height Then
            Me.Height = My.Computer.Screen.Bounds.Height
            WebBrowser1.Height = Me.Size.Height - 69
            WebBrowser1.Location = New Point(0, 30)
        End If

        If Main.Debug2 = True Then
            Debug_Mode.Show()
            Debug_Mode.Location = New Point(Me.Location.X + Me.Width - 15, Me.Location.Y)
        End If

        If WebBrowser1.Url.ToString = "about:blank" Then
            If Main.LoginOnly = "US_UnBlock" Then
                WebBrowser1.Navigate("https://www.crunchyroll.com/login")
            Else
                WebBrowser1.Navigate(Main.Startseite)
            End If
        End If
        Me.Icon = My.Resources.icon
        Main.UserBowser = True
        'Main.Pause(15)
        'For ii As Integer = 19 To 46
        '    WebBrowser1.Navigate("https://proxer.me/read/22459/" + ii.ToString + "/en/1")
        '    Main.Pause(15)
        '    Main.WebbrowserURL = WebBrowser1.Url.ToString
        '    Dim NameDLFinal As String = Nothing
        '    Dim NameDL As String() = WebBrowser1.Document.Body.OuterHtml.Split(New String() {"<div id=" + Chr(34) + "breadcrumb" + Chr(34) + ">"}, System.StringSplitOptions.RemoveEmptyEntries)
        '    Dim NameDL2 As String() = NameDL(1).Split(New String() {"<div>"}, System.StringSplitOptions.RemoveEmptyEntries)
        '    Dim NameDL3 As String() = NameDL2(0).Split(New String() {Chr(34) + "true" + Chr(34) + ">"}, System.StringSplitOptions.RemoveEmptyEntries)
        '    For i As Integer = 0 To NameDL3.Count - 1
        '        If InStr(NameDL3(i), "</a>") Then
        '            Dim NameDL4 As String() = NameDL3(i).Split(New String() {"</a>"}, System.StringSplitOptions.RemoveEmptyEntries)
        '            If NameDLFinal = Nothing Then
        '                NameDLFinal = NameDL4(0)
        '            Else
        '                NameDLFinal = NameDLFinal + " " + NameDL4(0)
        '            End If
        '        End If
        '    Next
        '    NameDLFinal = System.Text.RegularExpressions.Regex.Replace(NameDLFinal, "[^\w\\-]", " ")
        '    If Main.Debug2 = True Then
        '        MsgBox(NameDLFinal)
        '    End If
        '    Dim SiteData As String() = WebBrowser1.Document.Body.OuterHtml.Split(New String() {"var pages ="}, System.StringSplitOptions.RemoveEmptyEntries)
        '    Dim SiteData2 As String() = SiteData(1).Split(New String() {"</script>"}, System.StringSplitOptions.RemoveEmptyEntries)
        '    Dim ImageNumbers As String() = SiteData2(0).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
        '    Dim ImageList As New List(Of String)
        '    Dim ImageListString As String = Nothing
        '    For i As Integer = 0 To ImageNumbers.Count - 1
        '        If InStr(ImageNumbers(i), ".jpg") Then
        '            ImageList.Add(ImageNumbers(i).Replace(vbNewLine, ""))
        '            ImageListString = ImageListString + vbNewLine + ImageNumbers(i).Replace(vbNewLine, "")
        '        ElseIf InStr(ImageNumbers(i), ".png") Then
        '            ImageList.Add(ImageNumbers(i).Replace(vbNewLine, ""))
        '            ImageListString = ImageListString + vbNewLine + ImageNumbers(i).Replace(vbNewLine, "")
        '        End If
        '    Next
        '    If Main.Debug2 = True Then
        '        MsgBox(ImageListString)
        '    End If
        '    Dim BaseURL As String() = SiteData2(0).Split(New String() {"var serverurl = '"}, System.StringSplitOptions.RemoveEmptyEntries)
        '    Dim BaseURL2 As String() = BaseURL(1).Split(New String() {"';"}, System.StringSplitOptions.RemoveEmptyEntries)
        '    Dim BaseURL3 As String = "https:" + BaseURL2(0)
        '    If Main.Debug2 = True Then
        '        MsgBox(BaseURL3)
        '    End If
        '    AsyncWorkerX.RunAsync(AddressOf Main.DownloadMangaPages, BaseURL3, ImageList, Main.RemoveExtraSpaces(NameDLFinal))
        'Next
    End Sub

    Private Sub GeckoFX_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
        Main.UserBowser = False
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        'Main.WebbrowserURL = WebBrowser1.Url.ToString
        'Main.WebbrowserText = WebBrowser1.Document.Body.OuterHtml
        'Main.WebbrowserTitle = WebBrowser1.DocumentTitle
        'Main.GrappURL()
        Try
            My.Computer.Clipboard.SetText(WebBrowser1.Url.ToString)
            'My.Computer.Clipboard.SetText(WebBrowser1.Document.Cookie)

            MsgBox("copied: " + Chr(34) + WebBrowser1.Url.ToString + Chr(34))
        Catch ex As Exception
        End Try

        'MsgBox(WebBrowser1.Document.Cookie)
    End Sub

    Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown
        Try
            If e.KeyCode = Keys.Return Then
                e.SuppressKeyPress = True
                WebBrowser1.Navigate(TextBox1.Text)
            End If

        Catch ex As Exception
            MsgBox("Error in URL", MsgBoxStyle.Critical)
        End Try
    End Sub

    Private Sub WebBrowser1_DocumentTitleChanged(sender As Object, e As EventArgs) Handles WebBrowser1.DocumentTitleChanged
        Try
            TextBox1.Text = WebBrowser1.Url.ToString
        Catch ex As Exception
        End Try
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        If InStr(WebBrowser1.Url.ToString, "https://proxer.me/read/") Then
            Main.WebbrowserURL = WebBrowser1.Url.ToString
            Dim NameDLFinal As String = Nothing
            Dim NameDL As String() = WebBrowser1.Document.Body.OuterHtml.Split(New String() {"<div id=" + Chr(34) + "breadcrumb" + Chr(34) + ">"}, System.StringSplitOptions.RemoveEmptyEntries)
            Dim NameDL2 As String() = NameDL(1).Split(New String() {"<div>"}, System.StringSplitOptions.RemoveEmptyEntries)
            Dim NameDL3 As String() = NameDL2(0).Split(New String() {Chr(34) + "true" + Chr(34) + ">"}, System.StringSplitOptions.RemoveEmptyEntries)
            For i As Integer = 0 To NameDL3.Count - 1
                If InStr(NameDL3(i), "</a>") Then
                    Dim NameDL4 As String() = NameDL3(i).Split(New String() {"</a>"}, System.StringSplitOptions.RemoveEmptyEntries)
                    If NameDLFinal = Nothing Then
                        NameDLFinal = NameDL4(0)
                    Else
                        NameDLFinal = NameDLFinal + " " + NameDL4(0)
                    End If
                End If
            Next
            NameDLFinal = System.Text.RegularExpressions.Regex.Replace(NameDLFinal, "[^\w\\-]", " ")
            If Main.Debug2 = True Then
                MsgBox(NameDLFinal)
            End If
            Dim SiteData As String() = WebBrowser1.Document.Body.OuterHtml.Split(New String() {"var pages ="}, System.StringSplitOptions.RemoveEmptyEntries)
            Dim SiteData2 As String() = SiteData(1).Split(New String() {"</script>"}, System.StringSplitOptions.RemoveEmptyEntries)
            Dim ImageNumbers As String() = SiteData2(0).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
            Dim ImageList As New List(Of String)
            Dim ImageListString As String = Nothing
            For i As Integer = 0 To ImageNumbers.Count - 1
                If InStr(ImageNumbers(i), ".jpg") Then
                    ImageList.Add(ImageNumbers(i).Replace(vbNewLine, ""))
                    ImageListString = ImageListString + vbNewLine + ImageNumbers(i).Replace(vbNewLine, "")
                ElseIf InStr(ImageNumbers(i), ".png") Then
                    ImageList.Add(ImageNumbers(i).Replace(vbNewLine, ""))
                    ImageListString = ImageListString + vbNewLine + ImageNumbers(i).Replace(vbNewLine, "")
                End If
            Next
            If Main.Debug2 = True Then
                MsgBox(ImageListString)
            End If
            Dim BaseURL As String() = SiteData2(0).Split(New String() {"var serverurl = '"}, System.StringSplitOptions.RemoveEmptyEntries)
            Dim BaseURL2 As String() = BaseURL(1).Split(New String() {"';"}, System.StringSplitOptions.RemoveEmptyEntries)
            Dim BaseURL3 As String = "https:" + BaseURL2(0)
            If Main.Debug2 = True Then
                MsgBox(BaseURL3)
            End If
            'AsyncWorkerX.RunAsync(AddressOf Main.DownloadMangaPages, BaseURL3, ImageList, Main.RemoveExtraSpaces(NameDLFinal))
            Dim Thumbnail As String = BaseURL3 + ImageList(0)
            Main.MangaListItemAdd(Main.RemoveExtraSpaces(NameDLFinal), Thumbnail, BaseURL3, ImageList)

        ElseIf InStr(WebBrowser1.Url.ToString, "cr-cookie-ui.php") Then
            MsgBox(WebBrowser1.Document.Body.InnerHtml)

        Else
            Try

                Main.m3u8List.Clear()
                Main.mpdList.Clear()
                Main.txtList.Clear()
                Button2.Enabled = False
                ScanTrue = True

                GeckoPreferences.Default("logging.config.LOG_FILE") = "gecko-network.txt"
                GeckoPreferences.Default("logging.nsHttp") = 3
                Main.LogBrowserData = True
                Dim FileLocation As DirectoryInfo = New DirectoryInfo(Application.StartupPath)
                Dim CurrentFile As String = Nothing
                For Each File In FileLocation.GetFiles()
                    If InStr(File.FullName, "gecko-network.txt") Then
                        CurrentFile = File.FullName
                        Exit For
                    End If
                Next
                Dim logFileStream As FileStream = New FileStream(CurrentFile, FileMode.Open, FileAccess.ReadWrite, FileShare.ReadWrite)
                Dim logFileReader As StreamReader = New StreamReader(logFileStream)
                logFileStream.SetLength(0)
                'WebBrowser1.Navigate(TextBox1.Text)
                Main.WebbrowserURL = WebBrowser1.Url.ToString
                Main.WebbrowserText = WebBrowser1.Document.Body.OuterHtml
                Main.b = True
                Main.UserBowser = True
                For i As Integer = 20 To 0 Step -1
                    Main.Pause(1)
                    Button2.Text = "network scan is in progess " + Math.Abs(i).ToString
                Next
                If InStr(Main.WebbrowserURL, "anime-on-demand.de/anime/") Then
                    Main.WebbrowserTitle = WebBrowser1.Document.GetElementsByClassName("jw-title-primary").First.TextContent
                    If Main.Debug2 = True Then
                        MsgBox(Main.WebbrowserTitle)
                    End If
                    'Main.Thumbnail = WebBrowser1.Document.GetElementsByClassName("fullwidth-image anime-top-image").First.TextContent
                Else

                    Main.WebbrowserTitle = WebBrowser1.DocumentTitle
                End If
                Dim line As String = Nothing
                Dim HTMLString As String = Nothing
                line = logFileReader.ReadLine

                While (line IsNot Nothing)
                    line = logFileReader.ReadLine
                    If InStr(line, ".m3u8") Then 'm3u8?
                        Dim Temp_String As String = Nothing
                        Temp_String = line
                        If HTMLString = Nothing Then
                            HTMLString = line
                        Else
                            HTMLString = HTMLString + vbNewLine + line
                        End If
                        For i As Integer = 0 To 10
                            line = logFileReader.ReadLine
                            If InStr(line, " Host: ") Then
                                HTMLString = HTMLString + vbNewLine + line
                                Main.m3u8List.Add(Temp_String + vbNewLine.ToString + line.ToString)
                            End If
                        Next
                    ElseIf InStr(line, ".txt") Then
                        Dim Temp_String As String = Nothing
                        Temp_String = line
                        For i As Integer = 0 To 10
                            line = logFileReader.ReadLine
                            If InStr(line, " Host: ") Then
                                Main.txtList.Add(Temp_String + vbNewLine + line)
                            End If
                        Next
                    ElseIf InStr(line, ".vtt") Then
                        Dim Temp_String As String = Nothing
                        Temp_String = line
                        For i As Integer = 0 To 10
                            line = logFileReader.ReadLine
                            If InStr(line, " Host: ") Then
                                Main.txtList.Add(Temp_String + vbNewLine + line)
                            End If
                        Next
                    ElseIf InStr(line, ".mpd") Then
                        Dim Temp_String As String = Nothing
                        Temp_String = line
                        For i As Integer = 0 To 10
                            line = logFileReader.ReadLine
                            If InStr(line, " Host: ") Then
                                Main.mpdList.Add(Temp_String + vbNewLine + line)
                            End If
                        Next
                    End If
                End While
                logFileReader.Close()
                logFileStream.Close()
                'MsgBox(HTMLString)
                If InStr(HTMLString, ".m3u8") Then 'm3u8?
                    Button2.Text = "found m3u8"
                    Main.LogBrowserData = False
                    GeckoPreferences.Default("logging.config.LOG_FILE") = "gecko-network.txt"
                    GeckoPreferences.Default("logging.nsHttp") = 0
                    Dim URL As String = Nothing
                    Dim HTMLSplit() As String = HTMLString.Split(New String() {vbNewLine}, System.StringSplitOptions.RemoveEmptyEntries)
                    For i As Integer = 0 To HTMLSplit.Count - 1
                        If InStr(HTMLSplit(i), ".m3u8") Then 'm3u8?
                            Dim URLPart2() As String = HTMLSplit(i).Split(New String() {"  GET "}, System.StringSplitOptions.RemoveEmptyEntries)
                            Dim URLPart2Split2() As String = URLPart2(1).Split(New String() {" HTTP/"}, System.StringSplitOptions.RemoveEmptyEntries)
                            Dim URLPart1() As String = HTMLSplit(i + 1).Split(New String() {" Host: "}, System.StringSplitOptions.RemoveEmptyEntries)
                            Main.NonCR_URL = "https://" + URLPart1(1) + URLPart2Split2(0)
                            'MsgBox(Main.NonCR_URL)
                            'RichTextBox1.Text = RichTextBox1.Text + vbNewLine + URL_Final
                            Main.FFMPEG_Reso(Main.NonCR_URL)
                            t = New Thread(AddressOf Main.Grapp_non_CR)
                            t.Priority = ThreadPriority.Normal
                            t.IsBackground = True
                            t.Start()
                            Button2.Text = "Start network scan"
                            Exit For
                        End If
                    Next
                ElseIf Main.mpdList.Count > 0 Then                'InStr(HTMLString, ".mpd?") Then
                    HTMLString = Main.mpdList.Item(0)
                    Button2.Text = "found mpd!"
                    Main.LogBrowserData = False
                    GeckoPreferences.Default("logging.config.LOG_FILE") = "gecko-network.txt"
                    GeckoPreferences.Default("logging.nsHttp") = 0
                    Dim URL As String = Nothing
                    Dim HTMLSplit() As String = HTMLString.Split(New String() {vbNewLine}, System.StringSplitOptions.RemoveEmptyEntries)
                    For i As Integer = 0 To HTMLSplit.Count - 1
                        If InStr(HTMLSplit(i), ".mpd?") Then
                            Dim URLPart2() As String = HTMLSplit(i).Split(New String() {"  GET "}, System.StringSplitOptions.RemoveEmptyEntries)
                            Dim URLPart2Split2() As String = URLPart2(1).Split(New String() {" HTTP/"}, System.StringSplitOptions.RemoveEmptyEntries)
                            Dim URLPart1() As String = HTMLSplit(i + 1).Split(New String() {" Host: "}, System.StringSplitOptions.RemoveEmptyEntries)
                            Main.NonCR_URL = "https://" + URLPart1(1) + URLPart2Split2(0)
                            'MsgBox(Main.NonCR_URL)
                            'RichTextBox1.Text = RichTextBox1.Text + vbNewLine + URL_Final
                            Main.FFMPEG_Reso(Main.NonCR_URL)
                            t = New Thread(AddressOf Main.Grapp_non_CR)
                            t.Priority = ThreadPriority.Normal
                            t.IsBackground = True
                            t.Start()
                            Button2.Text = "Start network scan"
                            Exit For
                        End If
                    Next

                End If
                'If Main.txtList.Count > 0 Then                'InStr(HTMLString, ".mpd?") Then
                '    HTMLString = Main.mpdList.Item(0)
                '    'Button2.Text = "found mpd!"
                '    Main.LogBrowserData = False

                '    GeckoPreferences.Default("logging.config.LOG_FILE") = "gecko-network.txt"
                '    GeckoPreferences.Default("logging.nsHttp") = 0
                '    Dim URL As String = Nothing
                '    Dim HTMLSplit() As String = HTMLString.Split(New String() {vbNewLine}, System.StringSplitOptions.RemoveEmptyEntries)
                '    For i As Integer = 0 To HTMLSplit.Count - 1
                '        If InStr(HTMLSplit(i), ".mpd?") Then
                '            Dim URLPart2() As String = HTMLSplit(i).Split(New String() {"  GET "}, System.StringSplitOptions.RemoveEmptyEntries)
                '            Dim URLPart2Split2() As String = URLPart2(1).Split(New String() {" HTTP/"}, System.StringSplitOptions.RemoveEmptyEntries)
                '            Dim URLPart1() As String = HTMLSplit(i + 1).Split(New String() {" Host: "}, System.StringSplitOptions.RemoveEmptyEntries)
                '            Main.NonCR_URL = "https://" + URLPart1(1) + URLPart2Split2(0)
                '            'MsgBox(Main.NonCR_URL)
                '            'RichTextBox1.Text = RichTextBox1.Text + vbNewLine + URL_Final
                '            Main.FFMPEG_Reso(Main.NonCR_URL)
                '            t = New Thread(AddressOf Main.Grapp_non_CR)
                '            t.Priority = ThreadPriority.Normal
                '            t.IsBackground = True
                '            t.Start()
                '            Button2.Text = "Start network scan"
                '            Exit For
                '        End If
                '    Next

                'End If
                ScanTrue = False
                Button2.Enabled = True
            Catch ex As Exception
                MsgBox(ex.ToString, MsgBoxStyle.OkOnly)
                Button2.Enabled = True
                ScanTrue = False
            End Try
        End If
    End Sub

    Private Sub GeckoFX_LocationChanged(sender As Object, e As EventArgs) Handles Me.LocationChanged
        If Main.Debug2 = True Then
            Debug_Mode.Location = New Point(Me.Location.X + Me.Width - 15, Me.Location.Y)
        End If
    End Sub

    Private Sub WebBrowser1_GotFocus(sender As Object, e As EventArgs) Handles WebBrowser1.GotFocus
        'Debug_Mode.ActiveForm = True
    End Sub

    Private Sub WebBrowser1_LostFocus(sender As Object, e As EventArgs) Handles WebBrowser1.LostFocus
        'Debug_Mode.TopMost = False
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        If InStr(WebBrowser1.Url.ToString, "funimation.com") Then
            Dim Funimation_List As New List(Of String)
            Dim Funimation_list1() As String = WebBrowser1.Document.Body.OuterHtml.Split(New String() {My.Resources.Funimation_Split_1}, System.StringSplitOptions.RemoveEmptyEntries)

            For i As Integer = 1 To Funimation_list1.Count - 1
                Dim Funimation_list2() As String = Funimation_list1(i).Split(New String() {My.Resources.Funimation_Split_2}, System.StringSplitOptions.RemoveEmptyEntries)
                Funimation_List.Add("https://www.funimation.com" + Funimation_list2(0))
                Main.ListBoxList.Add("https://www.funimation.com" + Funimation_list2(0))
            Next
            MsgBox(Funimation_List.Count.ToString + " episodes added to Download queue")
            'For ii As Integer = 0 To Funimation_List.Count - 1
            '    MsgBox(Funimation_List.Item(ii))
            'Next
        End If
    End Sub
End Class