mirror of
https://github.com/hama3254/Crunchyroll-Downloader-v3.0.git
synced 2024-11-11 02:35:07 +01:00
181 lines
10 KiB
VB.net
181 lines
10 KiB
VB.net
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
|
|
Main.WebbrowserURL = WebBrowser1.Url.ToString
|
|
Main.WebbrowserText = WebBrowser1.Document.Body.OuterHtml
|
|
Main.WebbrowserTitle = WebBrowser1.DocumentTitle
|
|
SoftSub.DownloadSubs()
|
|
Me.Close()
|
|
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 |