Option Strict On Imports System.IO Imports System.ComponentModel Imports System.Threading Imports System.Net Imports System.Net.WebUtility Imports System.IO.Compression Imports System.Text Imports System.Security.Policy Imports Microsoft.Web.WebView2.Core Imports MetroFramework.Drawing Imports Newtonsoft.Json.Linq Public Class Browser Private Sub WebView2_CoreWebView2InitializationCompleted(sender As Object, e As CoreWebView2InitializationCompletedEventArgs) Handles WebView2.CoreWebView2InitializationCompleted WebView2.CoreWebView2.AddWebResourceRequestedFilter("https://www.crunchyroll.com/*", CoreWebView2WebResourceContext.All) WebView2.CoreWebView2.AddWebResourceRequestedFilter("https://www.funimation.com/*", CoreWebView2WebResourceContext.All) 'WebView2.CoreWebView2.AddWebResourceRequestedFilter("https://www.crunchyroll.com/*", CoreWebView2WebResourceContext.All) 'WebView2.CoreWebView2.AddWebResourceRequestedFilter("*", CoreWebView2WebResourceContext.All) AddHandler WebView2.CoreWebView2.WebResourceResponseReceived, AddressOf ObserveResponse AddHandler WebView2.CoreWebView2.WebResourceRequested, AddressOf ObserveHttp 'WebView2.CoreWebView2.Settings.UserAgent = My.Settings.User_Agend.Replace(Chr(34), "").Replace("User-Agent: ", "") My.Settings.User_Agend = Chr(34) + "User-Agent: " + WebView2.CoreWebView2.Settings.UserAgent + Chr(34) 'MsgBox(My.Settings.User_Agend) If WebView2.CoreWebView2.Source = "about:blank" Or WebView2.CoreWebView2.Source = Nothing Then 'TextBox1.Text = Main.Startseite WebView2.CoreWebView2.Navigate(Main.Startseite) End If End Sub Private Sub WebView2_SourceChanged(sender As Object, e As CoreWebView2SourceChangedEventArgs) Handles WebView2.SourceChanged Try TextBox1.Text = WebView2.CoreWebView2.Source Catch ex As Exception End Try End Sub Private Sub WebView2_NavigationCompleted(sender As Object, e As CoreWebView2NavigationCompletedEventArgs) Handles WebView2.NavigationCompleted ' Dim HTML As String = WebView2.CoreWebView2. 'TextBox1.Text = WebView2.CoreWebView2.Source ' Exit Sub If e.HttpStatusCode = 200 Then Dim DocumentTitle As String = WebView2.CoreWebView2.DocumentTitle Debug.WriteLine("NavigationCompleted: " + Date.Now.ToString) Main.WebbrowserURL = WebView2.CoreWebView2.Source TextBox1.Text = Main.WebbrowserURL Main.WebbrowserTitle = DocumentTitle Main.ProcessHTML("", Main.WebbrowserURL, DocumentTitle) GetCookies(Main.WebbrowserURL) End If End Sub Public Async Sub GetCookies(ByVal Uri As String) Try Main.CookieList = Await WebView2.CoreWebView2.CookieManager.GetCookiesAsync(Uri) Catch ex As Exception End Try End Sub Private Sub Browser_Load(sender As Object, e As EventArgs) Handles Me.Load Main.waveOutSetVolume(0, 0) If Me.Width > My.Computer.Screen.Bounds.Width Then Me.Width = My.Computer.Screen.Bounds.Width Panel1.Width = Me.Size.Width - 15 ', Me.Size.Height - 69) Panel1.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 Panel1.Height = Me.Size.Height - 69 Panel1.Location = New Point(0, 30) 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) Timer1.Enabled = True End If WebView2.Source = New Uri(Main.Startseite) End Sub Private Sub Browser_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing 'Main.UserBowser = False 'Me.Location = New Point(-10000, -10000) 'Main.LoadingUrl = "" 'Debug.WriteLine("Collecting") 'Dim Collector As New TaskCookieVisitor 'Dim CM As ICookieManager = WebBrowser1.GetCookieManager 'CM.VisitAllCookies(Collector) 'Main.CookieList = Collector.Task.Result() 'Debug.WriteLine("Collecting-end") ''e.Cancel = True End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 'MsgBox(Main.CR_etp_rt) 'MsgBox(Main.CR_ajs_user_id) 'MsgBox(Main.CheckCRLogin.ToString) Try My.Computer.Clipboard.SetText(WebView2.CoreWebView2.Source) MsgBox("copied: " + Chr(34) + WebView2.CoreWebView2.Source + 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) WebView2.CoreWebView2.Navigate(TextBox1.Text) End If Catch ex As Exception MsgBox("Error in URL", MsgBoxStyle.Critical) End Try End Sub Private Async Sub ObserveResponse(ByVal sender As Object, ByVal e As CoreWebView2WebResourceResponseReceivedEventArgs) If CBool(InStr(Main.LoadingUrl, "crunchyroll.com")) Then If CBool(InStr(e.Request.Uri, "crunchyroll.com/")) And CBool(InStr(e.Request.Uri, "v1/token")) And Main.CR_v1Token = "Get" Then Debug.WriteLine("Crunchyroll-v1_token: " + e.Request.Uri) Dim Content As Stream = Await e.Response.GetContentAsync Dim ContentString As String = Nothing Dim reader As New StreamReader(Content) ContentString = reader.ReadToEnd Dim Loc_CR_Cookies = " -H " + Chr(34) + Main.CR_Cookies + Chr(34) Dim Token() As String = ContentString.Split(New String() {Chr(34) + "access_token" + Chr(34) + ":" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries) Dim Token2() As String = Token(1).Split(New String() {Chr(34) + "," + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries) Dim Auth As String = "Bearer " + Token2(0) Dim Auth2 As String = " -H " + Chr(34) + "Authorization: " + Auth + Chr(34) Main.ProcessLoading(Main.LoadingUrl, Auth2, Loc_CR_Cookies) Main.CR_v1Token = "" Exit Sub ElseIf CBool(InStr(e.Request.Uri, "crunchyroll.com/")) And CBool(InStr(e.Request.Uri, "seasons?preferred_audio_language=")) And CBool(InStr(Main.LoadingUrl, "/series/")) Then Debug.WriteLine("Crunchyroll-Season: " + e.Request.Uri) Main.LoadedUrls.Add(e.Request) Exit Sub End If ElseIf CBool(InStr(Main.LoadingUrl, "funimation.com")) Then If CBool(InStr(e.Request.Uri, "?deviceType=web")) Then 'Debug.WriteLine(e.Request.Uri) Dim parms As String() = e.Request.Uri.Split(New String() {"?deviceType="}, System.StringSplitOptions.RemoveEmptyEntries) Main.FunimationDeviceRegion = "?deviceType=" + parms(1) End If If CBool(InStr(e.Request.Uri, "https://title-api.prd.funimationsvc.com")) Then Debug.WriteLine("Funimtaion: " + e.Request.Uri) If (Me.InvokeRequired) Then Me.Invoke(Sub() Main.LoadedUrls.Add(e.Request)) Exit Sub Else Main.LoadedUrls.Add(e.Request) Exit Sub End If ElseIf CBool(InStr(e.Request.Uri, "/data/v2/shows/")) Then Debug.WriteLine("Funimtaion: " + e.Request.Uri) If (Me.InvokeRequired) Then Me.Invoke(Sub() Main.LoadedUrls.Add(e.Request)) Exit Sub Else Main.LoadedUrls.Add(e.Request) Exit Sub End If ElseIf CBool(InStr(e.Request.Uri, "/data/v1/episodes/")) Then Debug.WriteLine("Funimtaion: " + e.Request.Uri) If (Me.InvokeRequired) Then Me.Invoke(Sub() Main.LoadedUrls.Add(e.Request)) Exit Sub Else Main.LoadedUrls.Add(e.Request) Exit Sub End If End If End If End Sub Private Sub ObserveHttp(ByVal sender As Object, ByVal e As CoreWebView2WebResourceRequestedEventArgs) 'Handles RequestResource.GetUrl If CBool(InStr(e.Request.Uri, "crunchyroll.com")) = True And Main.CrBetaBasic = Nothing Then Dim Headers As New List(Of KeyValuePair(Of String, String)) Headers.AddRange(e.Request.Headers.ToList) For i As Integer = 0 To Headers.Count If CBool(InStr(Headers.Item(i).Value, "Basic")) Then Main.CrBetaBasic = Headers.Item(i).Value Debug.WriteLine("Auth-Basic: " + Main.CrBetaBasic) ElseIf CBool(InStr(Headers.Item(i).Value, "Bearer")) Then Main.CR_AuthToken = Headers.Item(i).Value Debug.WriteLine("Auth-Bearer: " + Main.CR_AuthToken) End If Next End If If CBool(InStr(e.Request.Uri, "crunchyroll.com/")) And CBool(InStr(e.Request.Uri, "streams?")) Then Dim Headers As New List(Of KeyValuePair(Of String, String)) Headers.AddRange(e.Request.Headers.ToList) For i As Integer = 0 To Headers.Count If CBool(InStr(Headers.Item(i).Value, "Bearer")) Then Main.CR_AuthToken = Headers.Item(i).Value Debug.WriteLine("Auth-Bearer: " + Main.CR_AuthToken) End If Next End If Exit Sub If CBool(InStr(Main.LoadingUrl, "crunchyroll.com")) Then If CBool(InStr(e.Request.Uri, "crunchyroll.com/")) And CBool(InStr(e.Request.Uri, "streams?")) Then Debug.WriteLine("Crunchyroll-Single: " + e.Request.Uri) 'Dim ContentString As String = Nothing 'Dim Content As New MemoryStream 'e.Response.Content.CopyTo(Content) 'Content.Position = 0 'ContentString = Encoding.UTF8.GetString(Content.ToArray()) 'MsgBox(ContentString) Main.LoadedUrls.Add(e.Request) 'Main.CR_VideoJson = New UrlJson(e.Request.Uri, e.Request.Content.ToString) Exit Sub ElseIf CBool(InStr(e.Request.Uri, "crunchyroll.com/")) And CBool(InStr(e.Request.Uri, "/objects/")) And CBool(InStr(e.Request.Uri, "/watch/")) Then Debug.WriteLine(e.Request.Uri) Main.LoadedUrls.Add(e.Request) 'Main.CR_ObjectsJson = New UrlJson(e.Request.Uri, e.Request.Content.ToString) Exit Sub ElseIf CBool(InStr(e.Request.Uri, "crunchyroll.com/")) And CBool(InStr(e.Request.Uri, "seasons?preferred_audio_language=")) Then Debug.WriteLine("Crunchyroll-Season: " + e.Request.Uri) Main.LoadedUrls.Add(e.Request) 'Main.CR_SeasonJson = New UrlJson(e.Request.Uri, e.Request.Content.ToString) Exit Sub End If ElseIf CBool(InStr(Main.LoadingUrl, "funimation.com")) Then If CBool(InStr(e.Request.Uri, "?deviceType=web")) Then 'Debug.WriteLine(e.Request.Uri) Dim parms As String() = e.Request.Uri.Split(New String() {"?deviceType="}, System.StringSplitOptions.RemoveEmptyEntries) Main.FunimationDeviceRegion = "?deviceType=" + parms(1) End If If CBool(InStr(e.Request.Uri, "https://title-api.prd.funimationsvc.com")) Then Debug.WriteLine("Funimtaion: " + e.Request.Uri) If (Me.InvokeRequired) Then Me.Invoke(Sub() Main.LoadedUrls.Add(e.Request)) Exit Sub Else Main.LoadedUrls.Add(e.Request) Exit Sub End If ElseIf CBool(InStr(e.Request.Uri, "/data/v2/shows/")) Then Debug.WriteLine("Funimtaion: " + e.Request.Uri) If (Me.InvokeRequired) Then Me.Invoke(Sub() Main.LoadedUrls.Add(e.Request)) Exit Sub Else Main.LoadedUrls.Add(e.Request) Exit Sub End If ElseIf CBool(InStr(e.Request.Uri, "/data/v1/episodes/")) Then Debug.WriteLine("Funimtaion: " + e.Request.Uri) If (Me.InvokeRequired) Then Me.Invoke(Sub() Main.LoadedUrls.Add(e.Request)) Exit Sub Else Main.LoadedUrls.Add(e.Request) Exit Sub End If End If End If End Sub Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick 'If Main.UserBowser = False Then ' WebView2.Reload() 'Else ' Timer1.Enabled = False 'End If End Sub Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick Me.Close() End Sub End Class