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 CEFRequestHandler() 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 If WebBrowser1.Address = "about:blank" Or WebBrowser1.Address = Nothing Then 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, -1000) End If End Sub Private Sub GeckoFX_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing Main.UserBowser = False Main.ProcessUrls() 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() {"
"}, System.StringSplitOptions.RemoveEmptyEntries) Dim NameDL2 As String() = NameDL(1).Split(New String() {"
"}, 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), "")) Then Dim NameDL4 As String() = NameDL3(i).Split(New String() {""}, 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() {""}, 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, "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, "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.GetFunimationJS_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 End Class