mirror of
https://github.com/hama3254/Crunchyroll-Downloader-v3.0.git
synced 2024-11-14 04:05:07 +01:00
475 lines
18 KiB
VB.net
475 lines
18 KiB
VB.net
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()
|
|
|
|
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
|
|
If Main.LoginOnly = "US_UnBlock" Then
|
|
WebBrowser1.Load("https://www.crunchyroll.com/login")
|
|
Else
|
|
WebBrowser1.Load(Main.Startseite)
|
|
End If
|
|
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() {"<div id=" + Chr(34) + "breadcrumb" + Chr(34) + ">"}, System.StringSplitOptions.RemoveEmptyEntries)
|
|
Dim NameDL2 As String() = NameDL(1).Split(New String() {"<div>"}, 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), "</a>")) Then
|
|
Dim NameDL4 As String() = NameDL3(i).Split(New String() {"</a>"}, 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() {"</script>"}, 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
|
|
|
|
<<<<<<< Updated upstream
|
|
=======
|
|
Private Sub WebBrowser1_GotFocus(sender As Object, e As EventArgs) Handles WebBrowser1.GotFocus
|
|
'Debug_Mode.ActiveForm = True
|
|
End Sub
|
|
|
|
Private Sub WebBrowser1_LostFocus(sender As Object, e As EventArgs) Handles WebBrowser1.LostFocus
|
|
'Debug_Mode.TopMost = False
|
|
End Sub
|
|
|
|
|
|
>>>>>>> Stashed changes
|
|
|
|
Private Sub ObserveHttp(e As RequestResourceEventArgs) 'Handles RequestResource.GetUrl
|
|
'Debug.WriteLine(e.RequestUrl)
|
|
|
|
If 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))
|
|
Else
|
|
Main.LoadedUrls.Add(e.RequestUrl)
|
|
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))
|
|
Else
|
|
Main.LoadedUrls.Add(e.RequestUrl)
|
|
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))
|
|
Else
|
|
Main.LoadedUrls.Add(e.RequestUrl)
|
|
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))
|
|
Else
|
|
Main.LoadedUrls.Add(e.RequestUrl)
|
|
End If
|
|
Debug.WriteLine(e.RequestUrl)
|
|
ElseIf CBool(InStr(e.RequestUrl, "https://title-api.prd.funimationsvc.com")) Then
|
|
If (Me.InvokeRequired) Then
|
|
Me.Invoke(Sub() Main.LoadedUrls.Add(e.RequestUrl))
|
|
Else
|
|
Main.LoadedUrls.Add(e.RequestUrl)
|
|
End If
|
|
Debug.WriteLine(e.RequestUrl)
|
|
<<<<<<< Updated upstream
|
|
ElseIf CBool(InStr(e.RequestUrl, "/data/v1/shows/")) Then
|
|
If (Me.InvokeRequired) Then
|
|
Me.Invoke(Sub() Main.LoadedUrls.Add(e.RequestUrl))
|
|
Else
|
|
Main.LoadedUrls.Add(e.RequestUrl)
|
|
End If
|
|
Debug.WriteLine(e.RequestUrl)
|
|
=======
|
|
>>>>>>> Stashed changes
|
|
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
|
|
|
|
|
|
<<<<<<< Updated upstream
|
|
=======
|
|
|
|
>>>>>>> Stashed changes
|
|
End Class
|
|
|