Mirrors/Crunchyroll-Downloader-v3.0
2
0
Fork 0
mirror of https://github.com/hama3254/Crunchyroll-Downloader-v3.0.git synced 2024-11-13 03:35:05 +01:00
Code Issues Packages Projects Releases Wiki Activity
679ad417f6
Crunchyroll-Downloader-v3.0/Crunchyroll Downloader/GeckoFX.vb

258 lines
14 KiB
VB.net
Raw Normal View History

added current files
2019-11-10 00:16:12 +01:00
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
add navigation bar -added navigation bar into the browser -remove debug copy of the HTML document while closing the browser
2020-01-03 23:14:07 +01:00
Try
TextBox1.Text = WebBrowser1.Url.ToString
Catch ex As Exception
End Try
added current files
2019-11-10 00:16:12 +01:00
'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
US Unlock changed to JavaScript US Unlock changed to JavaScript
2019-12-22 22:46:59 +01:00
Main.LoginOnly = "US_UnBlocck_Wait2nd"
'Main.LoginOnly = "US_UnBlock_Wait"
added default page for the browser, some changes on the us unlock added default page for the browser wich can be set in the options, some minor changes for the us unlocker (i hope it works now like it shoudl)
2019-12-22 16:15:17 +01:00
'My.Computer.Clipboard.SetText(WebBrowser1.Url.ToString + vbNewLine + "before" + vbNewLine + vbNewLine + WebBrowser1.Document.Cookie)
'einstellungen.RichTextBox1.Text = WebBrowser1.Url.ToString + vbNewLine + "before" + vbNewLine + vbNewLine + WebBrowser1.Document.Cookie
US Unlock changed to JavaScript US Unlock changed to JavaScript
2019-12-22 22:46:59 +01:00
'WebBrowser1.Document.Cookie = ""
'WebBrowser1.Navigate("javascript:document.cookie = 'session_id=; expires=Thu, 01 Jan 1970 00:00:00 UTC; path=/;';")
'WebBrowser1.Navigate("javascript:$$")
'WebBrowser1.ExecuteCommand("alert(document.cookie);")
'WebBrowser1.Document.Body.InnerHtml = WebBrowser1.Document.Body.InnerHtml + "<script>alert(document.cookie);</script>"
added default page for the browser, some changes on the us unlock added default page for the browser wich can be set in the options, some minor changes for the us unlocker (i hope it works now like it shoudl)
2019-12-22 16:15:17 +01:00
'einstellungen.RichTextBox1.Text = einstellungen.RichTextBox1.Text + vbNewLine + WebBrowser1.Url.ToString + vbNewLine + "after" + vbNewLine + vbNewLine + WebBrowser1.Document.Cookie
'My.Computer.Clipboard.SetText(before + vbNewLine + WebBrowser1.Url.ToString + vbNewLine + "after" + vbNewLine + vbNewLine + WebBrowser1.Document.Cookie)
added current files
2019-11-10 00:16:12 +01:00
Try
US Unlock changed to JavaScript US Unlock changed to JavaScript
2019-12-22 22:46:59 +01:00
'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)
WebBrowser1.Navigate("javascript:document.cookie =" + Chr(34) + "session_id=" + keks + "; expires=Thu, 05 Jan 2021 00:00:00 UTC; path=/;" + Chr(34) + ";")
add navigation bar -added navigation bar into the browser -remove debug copy of the HTML document while closing the browser
2020-01-03 23:14:07 +01:00
Main.Pause(1)
US Unlock changed to JavaScript US Unlock changed to JavaScript
2019-12-22 22:46:59 +01:00
WebBrowser1.Navigate("javascript:document.cookie = " + Chr(34) + "sess_id=" + keks + "; expires=Thu, 05 Jan 2021 00:00:00 UTC; path=/;" + Chr(34) + ";")
add navigation bar -added navigation bar into the browser -remove debug copy of the HTML document while closing the browser
2020-01-03 23:14:07 +01:00
Main.Pause(1)
US Unlock changed to JavaScript US Unlock changed to JavaScript
2019-12-22 22:46:59 +01:00
WebBrowser1.Navigate("javascript:document.cookie = " + Chr(34) + "c_locale=enUS; expires=Thu, 05 Jan 2021 00:00:00 UTC; path=/;" + Chr(34) + ";")
add navigation bar -added navigation bar into the browser -remove debug copy of the HTML document while closing the browser
2020-01-03 23:14:07 +01:00
Main.Pause(1)
US Unlock changed to JavaScript US Unlock changed to JavaScript
2019-12-22 22:46:59 +01:00
'WebBrowser1.Navigate("javascript:alert(document.cookie);")
'Main.Pause(2)
WebBrowser1.Navigate("https://www.crunchyroll.com/")
Main.LoginOnly = "US_UnBlock_Check"
'WebBrowser1.Navigate("https://www.crunchyroll.com/")
added current files
2019-11-10 00:16:12 +01:00
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
US Unlock changed to JavaScript US Unlock changed to JavaScript
2019-12-22 22:46:59 +01:00
'MsgBox(keks + vbNewLine + WebBrowser1.Document.Cookie)
added current files
2019-11-10 00:16:12 +01:00
MsgBox("unlock successful", MsgBoxStyle.Information)
added default page for the browser, some changes on the us unlock added default page for the browser wich can be set in the options, some minor changes for the us unlocker (i hope it works now like it shoudl)
2019-12-22 16:15:17 +01:00
Me.Close()
added current files
2019-11-10 00:16:12 +01:00
'MsgBox(WebBrowser1.Document.Cookie)
Else
added default page for the browser, some changes on the us unlock added default page for the browser wich can be set in the options, some minor changes for the us unlocker (i hope it works now like it shoudl)
2019-12-22 16:15:17 +01:00
'MsgBox(WebBrowser1.Document.Cookie)
US Unlock changed to JavaScript US Unlock changed to JavaScript
2019-12-22 22:46:59 +01:00
'MsgBox(keks + vbNewLine + WebBrowser1.Document.Cookie)
added current files
2019-11-10 00:16:12 +01:00
MsgBox("unlock failes", MsgBoxStyle.Exclamation)
added default page for the browser, some changes on the us unlock added default page for the browser wich can be set in the options, some minor changes for the us unlocker (i hope it works now like it shoudl)
2019-12-22 16:15:17 +01:00
Me.Close()
added current files
2019-11-10 00:16:12 +01:00
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
added default page for the browser, some changes on the us unlock added default page for the browser wich can be set in the options, some minor changes for the us unlocker (i hope it works now like it shoudl)
2019-12-22 16:15:17 +01:00
'MsgBox(Main.CR_Premium_Failed, MsgBoxStyle.Information)
added current files
2019-11-10 00:16:12 +01:00
' 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
fix mass Download single season
2019-11-17 21:15:06 +01:00
'Main.MassGrapp()
added current files
2019-11-10 00:16:12 +01:00
'Else
added default page for the browser, some changes on the us unlock added default page for the browser wich can be set in the options, some minor changes for the us unlocker (i hope it works now like it shoudl)
2019-12-22 16:15:17 +01:00
' 'MsgBox(Main.CR_Premium_Failed, MsgBoxStyle.Information)
added current files
2019-11-10 00:16:12 +01:00
' 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
fix subtitle download fix subtitle only download
2019-11-22 19:12:42 +01:00
Main.WebbrowserURL = WebBrowser1.Url.ToString
Main.WebbrowserText = WebBrowser1.Document.Body.OuterHtml
Main.WebbrowserTitle = WebBrowser1.DocumentTitle
added current files
2019-11-10 00:16:12 +01:00
SoftSub.DownloadSubs()
fix subtitle download fix subtitle only download
2019-11-22 19:12:42 +01:00
Me.Close()
added current files
2019-11-10 00:16:12 +01:00
End If
End If
basic m3u8 grabber(non CR), Filezise display basic m3u8 grabber for videos other then Crunchyroll. approximate Filezise calculation and display from bitrate and time (percent is still time based only)
2019-12-21 14:40:47 +01:00
If Main.UserBowser = False Then
Main.WebbrowserURL = WebBrowser1.Url.ToString
Main.WebbrowserText = WebBrowser1.Document.Body.OuterHtml
Main.WebbrowserTitle = WebBrowser1.DocumentTitle
Me.Close()
End If
Else
If Main.UserBowser = False Then
'My.Computer.Clipboard.SetText(WebBrowser1.Document.Body.OuterHtml)
'If InStr(WebBrowser1.DocumentTitle, " - Watch on VRV") Then
Main.WebbrowserURL = WebBrowser1.Url.ToString
Main.WebbrowserTitle = WebBrowser1.DocumentTitle
WebBrowser1.Navigate("view-source:" + Main.WebbrowserURL)
Main.Pause(3)
If CBool(InStr(WebBrowser1.Document.Body.OuterHtml, ".m3u8")) Then
'MsgBox("test3")
Main.WebbrowserText = WebBrowser1.Document.Body.OuterHtml
Main.b = True
t = New Thread(AddressOf Main.Grapp_non_CR)
t.Priority = ThreadPriority.Normal
t.IsBackground = True
t.Start()
End If
'End If
End If
added current files
2019-11-10 00:16:12 +01:00
End If
added default page for the browser, some changes on the us unlock added default page for the browser wich can be set in the options, some minor changes for the us unlocker (i hope it works now like it shoudl)
2019-12-22 16:15:17 +01:00
If Main.UserBowser = False Then
Me.Close()
End If
fix resolution + browser fix for the resoltion not found dialog and the webbrowser should now close allways after the backgroud task is compleed
2019-12-04 21:00:26 +01:00
End If
added current files
2019-11-10 00:16:12 +01:00
End Sub
Private Sub GeckoFX_Load(sender As Object, e As EventArgs) Handles MyBase.Load
If WebBrowser1.Url.ToString = "about:blank" Then
added default page for the browser, some changes on the us unlock added default page for the browser wich can be set in the options, some minor changes for the us unlocker (i hope it works now like it shoudl)
2019-12-22 16:15:17 +01:00
If Main.LoginOnly = "US_UnBlock" Then
WebBrowser1.Navigate("https://www.crunchyroll.com/login")
Else
'WebBrowser1.Navigate("https://duckduckgo.com/") '")
WebBrowser1.Navigate(Main.Startseite)
End If
added current files
2019-11-10 00:16:12 +01:00
'WebBrowser1.Navigate("about:preferences")
'WebBrowser1.Navigate("about:addons")
added default page for the browser, some changes on the us unlock added default page for the browser wich can be set in the options, some minor changes for the us unlocker (i hope it works now like it shoudl)
2019-12-22 16:15:17 +01:00
added current files
2019-11-10 00:16:12 +01:00
'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)
added default page for the browser, some changes on the us unlock added default page for the browser wich can be set in the options, some minor changes for the us unlocker (i hope it works now like it shoudl)
2019-12-22 16:15:17 +01:00
Main.UserBowser = True
added current files
2019-11-10 00:16:12 +01:00
End Sub
Private Sub GeckoFX_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
add navigation bar -added navigation bar into the browser -remove debug copy of the HTML document while closing the browser
2020-01-03 23:14:07 +01:00
'My.Computer.Clipboard.SetText(WebBrowser1.Document.Body.InnerHtml)
added current files
2019-11-10 00:16:12 +01:00
Main.UserBowser = False
End Sub
basic m3u8 grabber(non CR), Filezise display basic m3u8 grabber for videos other then Crunchyroll. approximate Filezise calculation and display from bitrate and time (percent is still time based only)
2019-12-21 14:40:47 +01:00
add navigation bar -added navigation bar into the browser -remove debug copy of the HTML document while closing the browser
2020-01-03 23:14:07 +01:00
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
Catch ex As Exception
End Try
End Sub
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
End Sub
Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
Try
If Asc(e.KeyChar) = 13 Then
WebBrowser1.Navigate(TextBox1.Text)
End If
Catch ex As Exception
basic m3u8 grabber(non CR), Filezise display basic m3u8 grabber for videos other then Crunchyroll. approximate Filezise calculation and display from bitrate and time (percent is still time based only)
2019-12-21 14:40:47 +01:00
add navigation bar -added navigation bar into the browser -remove debug copy of the HTML document while closing the browser
2020-01-03 23:14:07 +01:00
End Try
End Sub
added current files
2019-11-10 00:16:12 +01:00
End Class
Reference in New Issue Copy Permalink