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
    Public ScanTrue As Boolean = False
    Public ScanTime As Integer = 0



    Private Sub GeckoWebBrowser1_DocumentCompleted(sender As Object, e As EventArgs) Handles WebBrowser1.DocumentCompleted
        Debug.WriteLine(Date.Now.ToString + "." + Date.Now.Millisecond.ToString)
        'MsgBox("loaded!")
        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
                Pause(4)
                Main.LoginOnly = "US_UnBlock"
            Else
                Try

                    If CBool(InStr(WebBrowser1.Document.Uri, "https://api.crunchyroll.com/login.0.json")) Then
                        Main.LoginOnly = "US_UnBlock_Finsihed"
                    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")
                        Pause(5)
                        WebBrowser1.Navigate("javascript:document.cookie =" + Chr(34) + "session_id=" + keks + "; expires=Thu, 04 Jan 2022 00:00:00 UTC; path=/;" + Chr(34) + ";")
                        Pause(1)
                        WebBrowser1.Navigate("javascript:document.cookie =" + Chr(34) + "sess_id=" + keks + "; expires=Thu, 04 Jan 2022 00:00:00 UTC; path=/;" + Chr(34) + ";")
                        Pause(1)
                        WebBrowser1.Navigate("https://www.crunchyroll.com/")
                        Main.LoginOnly = "US_UnBlock_Finsihed"
                    End If

                Catch ex As Exception
                    If Main.LoginOnly = "US_UnBlock_Finsihed" And Main.UserBowser = False Then
                        Main.UserBowser = False
                        Me.Close()

                    End If

                    'MsgBox(ex.ToString)
                End Try

            End If
        ElseIf Main.LoginOnly = "US_UnBlock_Finsihed" Then
            Main.LoginOnly = "ClosedAfterUS_UnBlock"
            Main.UserBowser = False
            Me.Close()
        Else

            If CBool(InStr(WebBrowser1.Url.ToString, "beta.crunchyroll.com")) Then
                Main.WebbrowserURL = WebBrowser1.Url.ToString
                Exit Sub

            ElseIf 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.WebbrowserHeadText = WebBrowser1.Document.Head.InnerHtml
                            Main.b = True

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



                        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
                            Main.WebbrowserHeadText = WebBrowser1.Document.Head.InnerHtml

                            Main.SeasonDropdownGrapp()

                        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
                            Main.WebbrowserHeadText = WebBrowser1.Document.Head.InnerHtml
                            Main.MassGrapp()
                        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
                        Main.WebbrowserHeadText = WebBrowser1.Document.Head.InnerHtml
                        'SoftSub.DownloadSubs()
                        Me.Close()
                    End If


                End If
                If Main.UserBowser = False Then
                    Try
                        Main.WebbrowserURL = WebBrowser1.Url.ToString
                        Main.WebbrowserText = WebBrowser1.Document.Body.OuterHtml
                        Main.WebbrowserTitle = WebBrowser1.DocumentTitle
                        Main.WebbrowserHeadText = WebBrowser1.Document.Head.InnerHtml
                    Catch ex As Exception
                    End Try

                    Me.Close()
                End If

            ElseIf CBool(InStr(WebBrowser1.Url.ToString, "funimation.com")) Then
                If Main.b = False Then

                    If CBool(InStr(WebBrowser1.Document.Body.OuterHtml, My.Resources.Funimation_Player_ID)) = True Or CBool(InStr(WebBrowser1.Document.Body.OuterHtml, My.Resources.Funimation_Player_ID_2)) = True 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
                        Main.Text = "Status: no video found"
                        Anime_Add.StatusLabel.Text = "Status: no video found"
                    End If
                End If
            ElseIf CBool(InStr(WebBrowser1.Url.ToString, "anime-on-demand.de")) Then
                If Main.b = False Then
                    Main.b = True
                    Main.WebbrowserURL = WebBrowser1.Url.ToString
                    Main.WebbrowserText = WebBrowser1.Document.Body.OuterHtml
                    Main.WebbrowserTitle = WebBrowser1.DocumentTitle
                    Anime_Add.AoDHTML = WebBrowser1.Document.Body.OuterHtml
                    Anime_Add.ProcessAoD()
                    Exit Sub


                End If

            Else
                If Main.b = False Then
                    Main.m3u8List.Clear()
                    Main.mpdList.Clear()
                    Main.txtList.Clear()
                    Button2.Enabled = False
                    ScanTrue = True
                    Main.LogBrowserData = True
                    NetworkScanEnd()
                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
        Try
            Me.Icon = My.Resources.icon
        Catch ex As Exception

        End Try

        '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
        Try
            My.Computer.Clipboard.SetText(WebBrowser1.Url.ToString)
            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 = String.Join(" ", NameDLFinal.Split(Main.invalids, StringSplitOptions.RemoveEmptyEntries)).TrimEnd("."c) ''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
            Main.m3u8List.Clear()
            Main.mpdList.Clear()
            Main.txtList.Clear()
            Button2.Enabled = False
            ScanTrue = True
            Main.LogBrowserData = True
            NetworkScanEnd()
        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


    Private Sub ObserveHttpModifyRequest(sender As Object, e As GeckoObserveHttpModifyRequestEventArgs) Handles WebBrowser1.ObserveHttpModifyRequest
        Dim requesturl As String = Nothing
        Try
            requesturl = e.Channel.Uri.ToString()
        Catch ex As Exception
            Exit Sub
        End Try

        Dim url As New Uri(requesturl)

        If Main.BlockList.Contains(url.Host) Then
            e.Cancel = True
            'Debug.WriteLine(requesturl)
            Exit Sub
        ElseIf requesturl.Contains("ad_") Or requesturl.Contains("ads") Or requesturl.Contains(".swf") Or requesturl.Contains("unsupported") Then
            e.Cancel = True
            'Debug.WriteLine(requesturl)
            Exit Sub

        End If
        If CBool(InStr(requesturl, ".js")) = True Then

            'Debug.WriteLine(requesturl)
        End If
        If CBool(InStr(requesturl, "https://beta-api.crunchyroll.com/")) And CBool(InStr(requesturl, "streams?")) Then
            If Main.b = False Then
                Main.GetBetaVideoProxy(requesturl, Main.WebbrowserURL)
                Main.b = True
                Exit Sub
            End If
        ElseIf CBool(InStr(requesturl, "https://beta-api.crunchyroll.com/")) And CBool(InStr(requesturl, "seasons?series_id=")) Then
            'Debug.WriteLine(requesturl)
            If Main.b = False Then
                Main.GetBetaSeasons(requesturl)
                Main.b = True
                Exit Sub
            End If

        End If

        If CBool(InStr(requesturl, "https://title-api.prd.funimationsvc.com")) And CBool(InStr(requesturl, "?region=")) Then
            Dim parms As String() = requesturl.Split(New String() {"?region="}, System.StringSplitOptions.RemoveEmptyEntries)
            Main.FunimationAPIRegion = "?region=" + parms(1)
            If Main.b = False Then
                If CBool(InStr(requesturl, "https://title-api.prd.funimationsvc.com/v1/show")) And CBool(InStr(requesturl, "/episodes/")) Then
                    Main.GetFunimationJS_VideoProxy(requesturl)
                    Main.b = True
                    Exit Sub
                Else
                    Anime_Add.ProcessFunimationJS(Main.WebbrowserURL)
                    Main.b = True
                    Exit Sub
                End If


            End If
        End If

        If ScanTrue = True Then

            If InStr(requesturl, ".m3u8") Then
                Dim client0 As New WebClient
                client0.Encoding = Encoding.UTF8
                client0.Headers.Add(HttpRequestHeader.Cookie, e.Channel.GetRequestHeader("Cookie"))
                Dim str0 As String = client0.DownloadString(requesturl)

                If InStr(str0, "#EXTM3U") Then
                    Main.m3u8List.Add(requesturl)
                Else
                    Dim DecodedUrl As String = UrlDecode(requesturl)
                    'MsgBox(DecodedUrl)
                    Dim URLSplit() As String = DecodedUrl.Split(New String() {".m3u8"}, System.StringSplitOptions.RemoveEmptyEntries)
                    Dim URLSplit2() As String = URLSplit(0).Split(New String() {"https://"}, System.StringSplitOptions.RemoveEmptyEntries)
                    Dim NewUrl As String = "https://" + URLSplit2(URLSplit2.Count - 1) + ".m3u8" + URLSplit(1)
                    'MsgBox(NewUrl)
                    Dim str1 As String = client0.DownloadString(NewUrl)
                    'MsgBox(str1)
                    If InStr(str1, "#EXTM3U") Then
                        Main.m3u8List.Add(NewUrl)
                    End If

                End If
            ElseIf InStr(requesturl, ".mpd") Then
                Main.mpdList.Add(requesturl)
            ElseIf InStr(requesturl, ".txt") Then
                Main.txtList.Add(requesturl)
            ElseIf InStr(requesturl, ".vtt") Then
                Main.txtList.Add(requesturl)
            ElseIf InStr(requesturl, ".srt") Then
                Main.txtList.Add(requesturl)
            ElseIf InStr(requesturl, ".ass") Then
                Main.txtList.Add(requesturl)
            ElseIf InStr(requesturl, ".ssa") Then
                Main.txtList.Add(requesturl)
            ElseIf InStr(requesturl, ".dfxp") Then
                Main.txtList.Add(requesturl)
            End If
        End If

        If InStr(url.Host, "anime-on-demand.de") Then
            Debug.WriteLine(e.Channel.GetRequestHeader("Cookie"))
            If InStr(e.Channel.GetRequestHeader("Cookie"), "remember_user_token") Then
                Anime_Add.AoD_Cookie = "Cookie: " + e.Channel.GetRequestHeader("Cookie")

            End If

        End If

        If Main.UserBowser = False Then

            If CBool(InStr(requesturl, ".jpg")) = True Or CBool(InStr(requesturl, ".bmp")) = True Or CBool(InStr(requesturl, ".gif")) = True Or CBool(InStr(requesturl, ".png")) = True Or CBool(InStr(requesturl, ".webp")) = True Then
                e.Cancel = True

            End If

        End If

    End Sub

    Public Sub NetworkScanEnd()
        For i As Integer = 20 To 0 Step -1
            Pause(1)
            Button2.Text = "network scan is in progess " + Math.Abs(i).ToString
            Try
                Anime_Add.StatusLabel.Text = "network scan is in progess " + Math.Abs(i).ToString
            Catch ex As Exception

            End Try
        Next
        ScanTrue = False
        Main.LogBrowserData = False
        Try
            Main.WebbrowserURL = WebBrowser1.Url.ToString
            Main.WebbrowserText = WebBrowser1.Document.Body.OuterHtml
            Main.WebbrowserTitle = WebBrowser1.DocumentTitle
            Main.WebbrowserCookie = WebBrowser1.Document.Cookie
        Catch ex As Exception
        End Try
        Button2.Text = "use network scan dialog"
        network_scan.ShowDialog()
    End Sub

    Private Sub WebBrowser1_NSSError(sender As Object, e As GeckoNSSErrorEventArgs) Handles WebBrowser1.NSSError
        Debug.WriteLine(e.Message)
        If e.Message.Contains("certificate") And CBool(InStr(e.Uri.Host, "funimation.com")) = True Then
            CertOverrideService.GetService().RememberValidityOverride(e.Uri, e.Certificate, CertOverride.Mismatch, False)
        End If
    End Sub

    Private Sub WebBrowser1_ConsoleMessage(sender As Object, e As ConsoleMessageEventArgs) Handles WebBrowser1.ConsoleMessage
        ' Debug.WriteLine(e.Message)
        ' MsgBox(e.Message)
    End Sub
End Class