Imports Gecko.Events Imports Gecko Imports System.IO Imports Gecko.Cache Imports System.ComponentModel Imports System.Threading Public Class GeckoFX Public keks As String = Nothing Public c As Boolean = True Dim t As Thread Private Sub GeckoWebBrowser1_DocumentCompleted(sender As Object, e As EventArgs) Handles WebBrowser1.DocumentCompleted 'My.Computer.Clipboard.SetText(WebBrowser1.Document.Body.InnerHtml) 'Try ' Dim ads_add As String = My.Resources.ads_preroll ' For Each c As String In WebBrowser1.Document.Body.InnerHtml ' If c = My.Resources.ads_midroll Then ' ads_add = ads_add + My.Resources.ads_preroll ' End If ' Next ' WebBrowser1.Document.Body.InnerHtml = WebBrowser1.Document.Body.InnerHtml.Replace(My.Resources.ads_preroll, ads_add) 'Catch ex As Exception 'End Try 'My.Computer.Clipboard.SetText(WebBrowser1.Document.Body.InnerHtml) If Main.LoginOnly = "US_UnBlock" Then Main.LoginOnly = "US_UnBlock_Wait" 'MsgBox(WebBrowser1.Document.Cookie) Try Dim cookieName As String = "session_id" Dim cookieValue As String = keks WebBrowser1.Document.Cookie = String.Format("{0}={1}; {2}", cookieName, cookieValue, WebBrowser1.Document.Cookie) Dim cookieName2 As String = "sess_id" WebBrowser1.Document.Cookie = String.Format("{0}={1}; {2}", cookieName2, cookieValue, WebBrowser1.Document.Cookie) Dim cookieFillName As String = "c_locale" Dim cookieFillValue As String = "enUS" WebBrowser1.Document.Cookie = String.Format("{0}={1}; {2}", cookieFillName, cookieFillValue, WebBrowser1.Document.Cookie) Catch ex As Exception End Try ElseIf Main.LoginOnly = "US_UnBlock_Wait" Then Main.LoginOnly = "US_UnBlocck_Wait2nd" Main.Pause(2) Main.LoginOnly = "US_UnBlock_Check" WebBrowser1.Navigate("https://www.crunchyroll.com/") ElseIf Main.LoginOnly = "US_UnBlock_Check" Then Main.LoginOnly = "false" If CBool(InStr(WebBrowser1.Document.Body.OuterHtml, "Your detected location is United States of America.")) Then MsgBox("unlock successful", MsgBoxStyle.Information) 'MsgBox(WebBrowser1.Document.Cookie) Else 'MsgBox(WebBrowser1.Document.Cookie) MsgBox("unlock failes", MsgBoxStyle.Exclamation) 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 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 'MsgBox("1") If CBool(InStr(WebBrowser1.Document.Body.OuterHtml, Chr(34) + "premium_status" + Chr(34) + ":" + Chr(34) + "premium" + Chr(34))) Then Main.WebbrowserURL = WebBrowser1.Url.ToString Main.WebbrowserText = WebBrowser1.Document.Body.OuterHtml Main.WebbrowserTitle = WebBrowser1.DocumentTitle Main.SeasonDropdownGrapp() Else 'If CBool(InStr(WebBrowser1.Document.Body.OuterHtml, Chr(34) + "premium_status" + Chr(34) + ":" + Chr(34) + "free_trial" + Chr(34))) Then Main.WebbrowserURL = WebBrowser1.Url.ToString Main.WebbrowserText = WebBrowser1.Document.Body.OuterHtml Main.WebbrowserTitle = WebBrowser1.DocumentTitle Main.SeasonDropdownGrapp() ' ElseIf CBool(InStr(WebBrowser1.Document.Body.OuterHtml, Chr(34) + "premium_status" + Chr(34) + ":" + Chr(34) + "free_trial" + Chr(34))) Then 'Main.SeasonDropdownGrapp() 'Else ' MsgBox(Main.CR_Premium_Failed, MsgBoxStyle.Information) ' Anime_Add.groupBox1.Visible = True ' Anime_Add.groupBox2.Visible = False ' Anime_Add.GroupBox3.Visible = False ' Anime_Add.pictureBox4.Image = My.Resources.main_button_download_default End If ElseIf CBool(InStr(WebBrowser1.Document.Body.OuterHtml, "wrapper container-shadow hover-classes")) Then Main.b = True 'MsgBox("1") If CBool(InStr(WebBrowser1.Document.Body.OuterHtml, Chr(34) + "premium_status" + Chr(34) + ":" + Chr(34) + "premium" + Chr(34))) Then Main.WebbrowserURL = WebBrowser1.Url.ToString Main.WebbrowserText = WebBrowser1.Document.Body.OuterHtml Main.WebbrowserTitle = WebBrowser1.DocumentTitle Main.MassGrapp() Else 'If CBool(InStr(WebBrowser1.Document.Body.OuterHtml, Chr(34) + "premium_status" + Chr(34) + ":" + Chr(34) + "free_trial" + Chr(34))) Then Main.WebbrowserURL = WebBrowser1.Url.ToString Main.WebbrowserText = WebBrowser1.Document.Body.OuterHtml Main.WebbrowserTitle = WebBrowser1.DocumentTitle Main.MassGrapp() 'ElseIf CBool(InStr(WebBrowser1.Document.Body.OuterHtml, Chr(34) + "premium_status" + Chr(34) + ":" + Chr(34) + "free_trial" + Chr(34))) Then Main.MassGrapp() 'Else ' MsgBox(Main.CR_Premium_Failed, MsgBoxStyle.Information) ' Anime_Add.groupBox1.Visible = True ' Anime_Add.groupBox2.Visible = False ' Anime_Add.GroupBox3.Visible = False ' Anime_Add.pictureBox4.Image = My.Resources.main_button_download_default End If Else MsgBox(Main.No_Stream, MsgBoxStyle.OkOnly) End If Catch ex As Exception Main.LabelUpdate = "Status: idle" End Try ElseIf c = False Then If CBool(InStr(WebBrowser1.Document.Body.OuterHtml, "hardsub_lang")) Then c = True SoftSub.DownloadSubs() End If Else If Main.UserBowser = False Then Main.WebbrowserURL = WebBrowser1.Url.ToString Main.WebbrowserText = WebBrowser1.Document.Body.OuterHtml Main.WebbrowserTitle = WebBrowser1.DocumentTitle Me.Close() End If End If End If End If End Sub Private Sub GeckoFX_Load(sender As Object, e As EventArgs) Handles MyBase.Load If WebBrowser1.Url.ToString = "about:blank" Then 'WebBrowser1.Navigate("about:preferences") 'WebBrowser1.Navigate("about:addons") WebBrowser1.Navigate("https://www.crunchyroll.com/login") '") 'WebBrowser1.Navigate("https://www.crunchyroll.com/de/rwby/episode-45-world-of-remnant-1-dust-658499") 'WebBrowser1.Navigate("https://www.crunchyroll.com/de/rwby") End If Me.Icon = My.Resources.icon 'MsgBox(WebBrowser1.Url.ToString) End Sub Private Sub GeckoFX_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing Main.UserBowser = False End Sub End Class