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

Option Strict On

Imports System.IO
Imports CefSharp
Imports System.ComponentModel
Imports System.Threading
Imports System.Net
Imports System.Net.WebUtility
Imports System.IO.Compression
Imports System.Text
Imports AdapterRequestHandler

Public Class CefSharp_Browser



    Public keks As String = Nothing
    'Public c As Boolean = True
    Dim t As Thread
    Public ScanTrue As Boolean = False
    Public ScanTime As Integer = 0


    Dim DocumentTitle As String = ""
    Dim Document As String = ""
    Dim Cookie As String = ""



    Private Sub WebBrowser1_FrameLoadEnd(sender As Object, e As FrameLoadEndEventArgs) Handles WebBrowser1.FrameLoadEnd
        If e.Frame.IsMain Then



            Me.Invoke(New Action(Function() As Object

                                     Main.WebbrowserURL = WebBrowser1.Address
                                     TextBox1.Text = Main.WebbrowserURL

                                     Try
                                         If Btn_Scan.Enabled = False And Btn_Scan.Text = "Start network scan" Then
                                             Btn_Scan.Enabled = True

                                         End If
                                     Catch ex As Exception
                                     End Try


                                     Return Nothing
                                 End Function))

            GetHTML()

        End If
    End Sub


    'Private Sub WebBrowser1_LoadingStateChanged(sender As Object, ByVal Status As LoadingStateChangedEventArgs) Handles WebBrowser1.LoadingStateChanged
    '    'Debug.WriteLine("b:" + Main.b.ToString)
    '    Debug.WriteLine(InvokeRequired.ToString)

    '    If Status.IsLoading = True Then
    '        Exit Sub
    '    End If

    'End Sub

    Async Sub GetHTML()
        Try

            Dim HTML As String = Await WebBrowser1.GetSourceAsync
            Document = HTML
            Debug.WriteLine("get html")

            Me.Invoke(New Action(Function() As Object
                                     Main.WebbrowserText = HTML
                                     Main.WebbrowserURL = WebBrowser1.Address
                                     Main.WebbrowserTitle = DocumentTitle
                                     Main.ProcessHTML(HTML, WebBrowser1.Address, DocumentTitle)

                                     'If Main.UserBowser = False Then
                                     '    Me.Close()
                                     'End If
                                     Return Nothing
                                 End Function))

        Catch ex As Exception

        End Try
    End Sub




    Private Sub GeckoFX_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        AddHandler RequestResource.GetUrl, AddressOf ObserveHttp
        WebBrowser1.RequestHandler = New RequestEventHandler()
        Main.waveOutSetVolume(0, 0)
        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
        'MsgBox(WebBrowser1.Address)
        If WebBrowser1.Address = "about:blank" Or WebBrowser1.Address = Nothing Then
            TextBox1.Text = Main.Startseite
            WebBrowser1.Load(Main.Startseite)

        End If
        Try
            Me.Icon = My.Resources.icon
        Catch ex As Exception

        End Try

        If Main.UserBowser = False Then
            Me.Location = New Point(-10000, -10000)

        End If
    End Sub

    Private Sub CefSharp_Browser_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        Main.UserBowser = False
        Me.Location = New Point(-10000, -10000)

        e.Cancel = True
    End Sub


    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Try
            My.Computer.Clipboard.SetText(WebBrowser1.Address)
            MsgBox("copied: " + Chr(34) + WebBrowser1.Address + Chr(34))
        Catch ex As Exception
        End Try

        'My.Computer.Clipboard.SetText(WebBrowser1.Document.Body.InnerHtml)

    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
                Debug.WriteLine("Start loading: " + Date.Now.ToString)
                WebBrowser1.Load(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 TitleChangedEventArgs) Handles WebBrowser1.TitleChanged
        DocumentTitle = e.Title
        Try
            TextBox1.Text = WebBrowser1.Address
        Catch ex As Exception
        End Try
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Btn_Scan.Click

        If CBool(InStr(WebBrowser1.Address, "https://proxer.me/read/")) Then
            Main.WebbrowserURL = WebBrowser1.Address
            Dim NameDLFinal As String = Nothing
            Dim NameDL As String() = Document.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 CBool(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() = Document.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 CBool(InStr(ImageNumbers(i), ".jpg")) Then
                    ImageList.Add(ImageNumbers(i).Replace(vbNewLine, ""))
                    ImageListString = ImageListString + vbNewLine + ImageNumbers(i).Replace(vbNewLine, "")
                ElseIf CBool(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 CBool(InStr(WebBrowser1.Address, "cr-cookie-ui.php")) Then
            'MsgBox(WebBrowser1.Document.Body.InnerHtml)
        Else
            Main.m3u8List.Clear()
            Main.mpdList.Clear()
            Main.txtList.Clear()
            Btn_Scan.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 ObserveHttp(e As RequestResourceEventArgs) 'Handles RequestResource.GetUrl
        'Debug.WriteLine(e.RequestUrl)

        If (Me.InvokeRequired) Then
            If Main.b = True And Main.FunimationJsonBrowser = Nothing Then
                Exit Sub
            End If
        Else
            If Main.b = True And Main.FunimationJsonBrowser = Nothing Then
                Exit Sub
            End If
        End If
        '
        If CBool(InStr(e.RequestUrl, "?deviceType=web")) Then
            'Debug.WriteLine(e.RequestUrl)
            Dim parms As String() = e.RequestUrl.Split(New String() {"?deviceType="}, System.StringSplitOptions.RemoveEmptyEntries)
            Main.FunimationDeviceRegion = "?deviceType=" + parms(1)

        End If
        If CBool(InStr(e.RequestUrl, "https://title-api.prd.funimationsvc.com")) Then
            If (Me.InvokeRequired) Then
                Me.Invoke(Sub() Main.LoadedUrls.Add(e.RequestUrl))
                Exit Sub
            Else
                Main.LoadedUrls.Add(e.RequestUrl)
                Exit Sub
            End If
            Debug.WriteLine(e.RequestUrl)
        ElseIf CBool(InStr(e.RequestUrl, "/data/v2/shows/")) Then
            If (Me.InvokeRequired) Then
                Me.Invoke(Sub() Main.LoadedUrls.Add(e.RequestUrl))
                Exit Sub
            Else
                Main.LoadedUrls.Add(e.RequestUrl)
                Exit Sub
            End If
            Debug.WriteLine(e.RequestUrl)
        ElseIf CBool(InStr(e.RequestUrl, "/data/v1/episodes/")) Then
            If (Me.InvokeRequired) Then
                Me.Invoke(Sub() Main.LoadedUrls.Add(e.RequestUrl))
                Exit Sub
            Else
                Main.LoadedUrls.Add(e.RequestUrl)
                Exit Sub
            End If
            Debug.WriteLine(e.RequestUrl)

        ElseIf CBool(InStr(e.RequestUrl, "https://beta-api.crunchyroll.com/")) And CBool(InStr(e.RequestUrl, "streams?")) Then
            If (Me.InvokeRequired) Then
                Me.Invoke(Sub() Main.LoadedUrls.Add(e.RequestUrl))
                Exit Sub
            Else
                Main.LoadedUrls.Add(e.RequestUrl)
                Exit Sub
            End If
            Debug.WriteLine(e.RequestUrl)
        ElseIf CBool(InStr(e.RequestUrl, "https://beta-api.crunchyroll.com/")) And CBool(InStr(e.RequestUrl, "seasons?series_id=")) Then
            If (Me.InvokeRequired) Then
                Me.Invoke(Sub() Main.LoadedUrls.Add(e.RequestUrl))
                Exit Sub
            Else
                Main.LoadedUrls.Add(e.RequestUrl)
                Exit Sub
            End If
            Debug.WriteLine(e.RequestUrl)
        ElseIf CBool(InStr(e.RequestUrl, "https://api.vrv.co")) And CBool(InStr(e.RequestUrl, "streams?")) Then
            If (Me.InvokeRequired) Then
                Me.Invoke(Sub() Main.LoadedUrls.Add(e.RequestUrl))
                Exit Sub
            Else
                Main.LoadedUrls.Add(e.RequestUrl)
                Exit Sub
            End If
            Debug.WriteLine(e.RequestUrl)
        ElseIf CBool(InStr(e.RequestUrl, "https://api.vrv.co")) And CBool(InStr(e.RequestUrl, "seasons?series_id=")) Then
            If (Me.InvokeRequired) Then
                Me.Invoke(Sub() Main.LoadedUrls.Add(e.RequestUrl))
                Exit Sub
            Else
                Main.LoadedUrls.Add(e.RequestUrl)
                Exit Sub
            End If
            Debug.WriteLine(e.RequestUrl)

        End If

        Exit Sub


        Dim requesturl As String = Nothing
        Try
            requesturl = e.RequestUrl
        Catch ex As Exception
            Exit Sub
        End Try




        If CBool(InStr(requesturl, "https://api.vrv.co")) And CBool(InStr(requesturl, "streams?")) Then
            Debug.WriteLine("vrv-1 " + requesturl)
            If Main.b = False Then
                Main.Get_VRV_VideoProxy(requesturl, Main.WebbrowserURL)
                Main.b = True
            End If

        ElseIf CBool(InStr(requesturl, "https://api.vrv.co")) And CBool(InStr(requesturl, "seasons?series_id=")) Then
            Debug.WriteLine("vrv-2 " + requesturl)
            Exit Sub
            If Main.b = False Then
                Main.GetBetaSeasons(requesturl)
                Main.b = True
            End If

        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
            End If

        ElseIf CBool(InStr(requesturl, "https://beta-api.crunchyroll.com/")) And CBool(InStr(requesturl, "seasons?series_id=")) Then

            If Main.b = False Then
                Main.GetBetaSeasons(requesturl)
                Main.b = True
            End If

        End If


        If CBool(InStr(requesturl, "https://title-api.prd.funimationsvc.com")) And CBool(InStr(requesturl, "?region=")) Then
            Try
                Main.WebbrowserCookie = Cookie
            Catch ex As Exception
            End Try

            If Main.FunimationAPIRegion = Nothing Then

                Me.Invoke(New Action(Function() As Object
                                         Dim parms As String() = requesturl.Split(New String() {"?region="}, System.StringSplitOptions.RemoveEmptyEntries)
                                         Main.FunimationAPIRegion = "?region=" + parms(1)
                                         Return Nothing
                                     End Function))

            End If

            If Main.b = False Then
                If CBool(InStr(requesturl, "https://title-api.prd.funimationsvc.com/v1/show")) And CBool(InStr(requesturl, "/episodes/")) Then
                    Main.GetFunimationNewJS_VideoProxy(requesturl)
                    Main.b = True
                    Exit Sub
                Else
                    Debug.WriteLine("processing js")
                    Me.Invoke(New Action(Function() As Object
                                             Anime_Add.ProcessFunimationJS(WebBrowser1.Address)
                                             Return Nothing
                                         End Function))
                    Main.b = True

                    Exit Sub
                End If


            End If
        End If

        If ScanTrue = True Then

            If CBool(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 CBool(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 CBool(InStr(str1, "#EXTM3U")) Then
                        Main.m3u8List.Add(NewUrl)
                    End If

                End If
            ElseIf CBool(InStr(requesturl, ".mpd")) Then
                Main.mpdList.Add(requesturl)
            ElseIf CBool(InStr(requesturl, "googlevideo.com")) And CBool(InStr(requesturl, "&range=")) = True Then

                Dim DecodedUrl As String = UrlDecode(requesturl)
                'MsgBox(DecodedUrl)
                Dim VideoUrl() As String = DecodedUrl.Split(New String() {"&range="}, System.StringSplitOptions.RemoveEmptyEntries)
                Dim VideoUrl2() As String = VideoUrl(1).Split(New String() {"&"}, System.StringSplitOptions.RemoveEmptyEntries)
                Dim NewUrl As String = VideoUrl(0) + "&" + VideoUrl2(1)
                'Debug.WriteLine(NewUrl)

                If Not Main.mpdList.Contains(NewUrl) Then
                    Main.mpdList.Add(NewUrl)
                End If


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



    End Sub

    Public Sub NetworkScanEnd()
        For i As Integer = 20 To 0 Step -1
            Pause(1)
            Btn_Scan.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.Address
            Main.WebbrowserText = Document
            Main.WebbrowserTitle = DocumentTitle
            Main.WebbrowserCookie = Cookie
        Catch ex As Exception
        End Try
        Btn_Scan.Text = "use network scan dialog"
        network_scan.Show()
    End Sub





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

End Class