aded new beta subdomain

aded new beta subdomain #481
This commit is contained in:
hama3254 2022-05-16 21:48:16 +02:00
parent 5d8c382ef2
commit 257fd2278c
3 changed files with 48 additions and 1 deletions

Binary file not shown.

View File

@ -255,6 +255,8 @@ Public Class CefSharp_Browser
End If
End If
'
'Debug.WriteLine(e.RequestUrl)
If CBool(InStr(e.RequestUrl, "?deviceType=web")) Then
'Debug.WriteLine(e.RequestUrl)
Dim parms As String() = e.RequestUrl.Split(New String() {"?deviceType="}, System.StringSplitOptions.RemoveEmptyEntries)
@ -298,6 +300,15 @@ Public Class CefSharp_Browser
Exit Sub
End If
Debug.WriteLine(e.RequestUrl)
ElseIf CBool(InStr(e.RequestUrl, "https://beta.crunchyroll.com/")) And CBool(InStr(e.RequestUrl, "streams?")) Then
If (Me.InvokeRequired) Then
Me.Invoke(Sub() Main.LoadedUrls.Add(e.RequestUrl))
Exit Sub
Else
Main.LoadedUrls.Add(e.RequestUrl)
Exit Sub
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))
@ -307,6 +318,15 @@ Public Class CefSharp_Browser
Exit Sub
End If
Debug.WriteLine(e.RequestUrl)
ElseIf CBool(InStr(e.RequestUrl, "https://beta.crunchyroll.com/")) And CBool(InStr(e.RequestUrl, "seasons?series_id=")) Then
If (Me.InvokeRequired) Then
Me.Invoke(Sub() Main.LoadedUrls.Add(e.RequestUrl))
Exit Sub
Else
Main.LoadedUrls.Add(e.RequestUrl)
Exit Sub
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))
@ -366,13 +386,26 @@ Public Class CefSharp_Browser
Main.b = True
End If
ElseIf CBool(InStr(requesturl, "https://beta-api.crunchyroll.com/")) And CBool(InStr(requesturl, "seasons?series_id=")) Then
ElseIf CBool(InStr(requesturl, "https://beta.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.crunchyroll.com/")) And CBool(InStr(requesturl, "seasons?series_id=")) Then
If Main.b = False Then
Main.GetBetaSeasons(requesturl)
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

View File

@ -4480,6 +4480,13 @@ Public Class Main
LoadedUrls.Clear()
Exit Sub
End If
ElseIf CBool(InStr(requesturl, "https://beta.crunchyroll.com/")) And CBool(InStr(requesturl, "streams?")) Then
If b = False Then
GetBetaVideoProxy(requesturl, WebbrowserURL)
b = True
LoadedUrls.Clear()
Exit Sub
End If
ElseIf CBool(InStr(requesturl, "https://beta-api.crunchyroll.com/")) And CBool(InStr(requesturl, "seasons?series_id=")) Then
If b = False Then
GetBetaSeasons(requesturl)
@ -4487,6 +4494,13 @@ Public Class Main
LoadedUrls.Clear()
Exit Sub
End If
ElseIf CBool(InStr(requesturl, "https://beta.crunchyroll.com/")) And CBool(InStr(requesturl, "seasons?series_id=")) Then
If b = False Then
GetBetaSeasons(requesturl)
b = True
LoadedUrls.Clear()
Exit Sub
End If
End If
If CBool(InStr(requesturl, "https://api.vrv.co")) And CBool(InStr(requesturl, "streams?")) Then
Debug.WriteLine("vrv-1 " + requesturl)