Mirrors/Crunchyroll-Downloader-v3.0
2
0
Fork 0
mirror of https://github.com/hama3254/Crunchyroll-Downloader-v3.0.git synced 2025-01-11 15:59:16 +01:00
Code Issues Packages Projects Releases Wiki Activity

cached urls clear changed

Browse Source 
cached urls clear changed
This commit is contained in:
hama3254 2022-10-29 23:46:50 +02:00
parent 3014a1d628
commit ba3883c16c
5 changed files with 24 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
.vs/Crunchyroll Downloader/v17/.suo
View File

Binary file not shown.

1
Crunchyroll Downloader/Anime_Add.vb
View File

@ -26,6 +26,7 @@ Public Class Anime_Add
Public Sub LoadBrowser(ByVal Url As String) Public Sub LoadBrowser(ByVal Url As String)
'Main.LoadedUrl = Url 'Main.LoadedUrl = Url
Main.LoadedUrls.Clear()
If CBool(InStr(Url, "crunchyroll.com")) = True And CBool(InStr(Url, "series")) = True Then If CBool(InStr(Url, "crunchyroll.com")) = True And CBool(InStr(Url, "series")) = True Then

38
Crunchyroll Downloader/CefSharp_Browser.vb
View File

@ -34,12 +34,11 @@ Public Class CefSharp_Browser
Me.Invoke(New Action(Function() As Object Me.Invoke(New Action(Function() As Object
Main.LoadedUrls.Clear() ' Main.LoadedUrls.Clear()
Debug.WriteLine("FrameLoadEnd" + Date.Now.ToString) Debug.WriteLine("FrameLoadEnd" + Date.Now.ToString)
Main.WebbrowserURL = WebBrowser1.Address Main.WebbrowserURL = WebBrowser1.Address
TextBox1.Text = Main.WebbrowserURL TextBox1.Text = Main.WebbrowserURL
Try Try
If Btn_Scan.Enabled = False And Btn_Scan.Text = "Start network scan" Then If Btn_Scan.Enabled = False And Btn_Scan.Text = "Start network scan" Then
Btn_Scan.Enabled = True Btn_Scan.Enabled = True
@ -146,7 +145,6 @@ Public Class CefSharp_Browser
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'MsgBox(Main.CR_etp_rt) 'MsgBox(Main.CR_etp_rt)
'MsgBox(Main.CR_ajs_user_id) 'MsgBox(Main.CR_ajs_user_id)
'MsgBox(Main.CheckCRLogin.ToString) 'MsgBox(Main.CheckCRLogin.ToString)
@ -265,6 +263,7 @@ Public Class CefSharp_Browser
Private Sub ObserveHttp(e As RequestResourceEventArgs) 'Handles RequestResource.GetUrl Private Sub ObserveHttp(e As RequestResourceEventArgs) 'Handles RequestResource.GetUrl
'Debug.WriteLine(e.Request.Url) 'Debug.WriteLine(e.Request.Url)
'Debug.WriteLine(e.Request.Url)
'If (Me.InvokeRequired) Then 'If (Me.InvokeRequired) Then
' If Main.b = True And Main.FunimationJsonBrowser = Nothing Then ' If Main.b = True And Main.FunimationJsonBrowser = Nothing Then
@ -330,6 +329,7 @@ Public Class CefSharp_Browser
End If End If
If CBool(InStr(e.Request.Url, "https://title-api.prd.funimationsvc.com")) Then If CBool(InStr(e.Request.Url, "https://title-api.prd.funimationsvc.com")) Then
Debug.WriteLine("Funimtaion: " + e.Request.Url)
If (Me.InvokeRequired) Then If (Me.InvokeRequired) Then
Me.Invoke(Sub() Main.LoadedUrls.Add(e.Request.Url)) Me.Invoke(Sub() Main.LoadedUrls.Add(e.Request.Url))
Exit Sub Exit Sub
@ -337,8 +337,8 @@ Public Class CefSharp_Browser
Main.LoadedUrls.Add(e.Request.Url) Main.LoadedUrls.Add(e.Request.Url)
Exit Sub Exit Sub
End If End If
Debug.WriteLine(e.Request.Url)
ElseIf CBool(InStr(e.Request.Url, "/data/v2/shows/")) Then ElseIf CBool(InStr(e.Request.Url, "/data/v2/shows/")) Then
Debug.WriteLine("Funimtaion: " + e.Request.Url)
If (Me.InvokeRequired) Then If (Me.InvokeRequired) Then
Me.Invoke(Sub() Main.LoadedUrls.Add(e.Request.Url)) Me.Invoke(Sub() Main.LoadedUrls.Add(e.Request.Url))
Exit Sub Exit Sub
@ -346,8 +346,8 @@ Public Class CefSharp_Browser
Main.LoadedUrls.Add(e.Request.Url) Main.LoadedUrls.Add(e.Request.Url)
Exit Sub Exit Sub
End If End If
Debug.WriteLine(e.Request.Url)
ElseIf CBool(InStr(e.Request.Url, "/data/v1/episodes/")) Then ElseIf CBool(InStr(e.Request.Url, "/data/v1/episodes/")) Then
Debug.WriteLine("Funimtaion: " + e.Request.Url)
If (Me.InvokeRequired) Then If (Me.InvokeRequired) Then
Me.Invoke(Sub() Main.LoadedUrls.Add(e.Request.Url)) Me.Invoke(Sub() Main.LoadedUrls.Add(e.Request.Url))
Exit Sub Exit Sub
@ -355,8 +355,8 @@ Public Class CefSharp_Browser
Main.LoadedUrls.Add(e.Request.Url) Main.LoadedUrls.Add(e.Request.Url)
Exit Sub Exit Sub
End If End If
Debug.WriteLine(e.Request.Url)
ElseIf CBool(InStr(e.Request.Url, "crunchyroll.com/")) And CBool(InStr(e.Request.Url, "streams?")) Then ElseIf CBool(InStr(e.Request.Url, "crunchyroll.com/")) And CBool(InStr(e.Request.Url, "streams?")) Then
Debug.WriteLine("Crunchyroll-Single: " + e.Request.Url)
If (Me.InvokeRequired) Then If (Me.InvokeRequired) Then
Me.Invoke(Sub() Main.LoadedUrls.Add(e.Request.Url)) Me.Invoke(Sub() Main.LoadedUrls.Add(e.Request.Url))
Exit Sub Exit Sub
@ -364,17 +364,17 @@ Public Class CefSharp_Browser
Main.LoadedUrls.Add(e.Request.Url) Main.LoadedUrls.Add(e.Request.Url)
Exit Sub Exit Sub
End If End If
Debug.WriteLine(e.Request.Url) 'ElseIf CBool(InStr(e.Request.Url, "crunchyroll.com/")) And CBool(InStr(e.Request.Url, "/objects/")) Then
ElseIf CBool(InStr(e.Request.Url, "crunchyroll.com/")) And CBool(InStr(e.Request.Url, "/objects/")) Then ' If (Me.InvokeRequired) Then
If (Me.InvokeRequired) Then ' Me.Invoke(Sub() Main.LoadedUrls.Add(e.Request.Url))
Me.Invoke(Sub() Main.LoadedUrls.Add(e.Request.Url)) ' Exit Sub
Exit Sub ' Else
Else ' Main.LoadedUrls.Add(e.Request.Url)
Main.LoadedUrls.Add(e.Request.Url) ' Exit Sub
Exit Sub ' End If
End If ' Debug.WriteLine(e.Request.Url)
Debug.WriteLine(e.Request.Url)
ElseIf CBool(InStr(e.Request.Url, "crunchyroll.com/")) And CBool(InStr(e.Request.Url, "seasons?series_id=")) Then ElseIf CBool(InStr(e.Request.Url, "crunchyroll.com/")) And CBool(InStr(e.Request.Url, "seasons?series_id=")) Then
Debug.WriteLine("Crunchyroll-Season: " + e.Request.Url)
If (Me.InvokeRequired) Then If (Me.InvokeRequired) Then
Me.Invoke(Sub() Main.LoadedUrls.Add(e.Request.Url)) Me.Invoke(Sub() Main.LoadedUrls.Add(e.Request.Url))
Exit Sub Exit Sub
@ -382,8 +382,6 @@ Public Class CefSharp_Browser
Main.LoadedUrls.Add(e.Request.Url) Main.LoadedUrls.Add(e.Request.Url)
Exit Sub Exit Sub
End If End If
Debug.WriteLine(e.Request.Url)
End If End If
@ -412,6 +410,10 @@ Public Class CefSharp_Browser
network_scan.Show() network_scan.Show()
End Sub End Sub
Private Sub WebBrowser1_FrameLoadStart(sender As Object, e As FrameLoadStartEventArgs) Handles WebBrowser1.FrameLoadStart
Main.LoadedUrls.Clear()
End Sub

1
Crunchyroll Downloader/Main.vb
View File

@ -3658,6 +3658,7 @@ Public Class Main
Me.Text = "Status: nothing found" Me.Text = "Status: nothing found"
ProcessUrls() ProcessUrls()
Debug.WriteLine("3530: nothing found") Debug.WriteLine("3530: nothing found")
Grapp_RDY = True
Exit Sub Exit Sub
End If End If

4
Crunchyroll Downloader/My Project/AssemblyInfo.vb
View File

@ -32,6 +32,6 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("3.9.8")> <Assembly: AssemblyVersion("3.9.9")>
<Assembly: AssemblyFileVersion("3.9.8")> <Assembly: AssemblyFileVersion("3.9.9")>
<Assembly: NeutralResourcesLanguage("en")> <Assembly: NeutralResourcesLanguage("en")>