Mirrors
/
Crunchyroll-Downloader-v3.0
mirror of https://github.com/hama3254/Crunchyroll-Downloader-v3.0.git
2
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

CR concert adjustments 

CR concert adjustments #704
This commit is contained in:
hama3254 2023-03-05 14:24:20 +01:00
parent 50a2656dff
commit 0d5fabd784
3 changed files with 44 additions and 12 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.

52
Crunchyroll Downloader/Main.vb
View File

@ -1244,16 +1244,6 @@ Public Class Main
If CBool(InStr(WebsiteURL, "musicvideo")) = True Then
'TextBox2_Text to bypasss name for now
'https://www.crunchyroll.com/content/v2/cms/objects/G69PX0W3Y?locale=de-DE
'https://www.crunchyroll.com/content/v2/cms/videos/G25FVQD3Q/streams?locale=de-DE
'https://www.crunchyroll.com/content/v2/music/MV2FD1FECE/streams?locale=de-DE
'https://www.crunchyroll.com/content/v2/music/MV2FD1FECE?locale=de-DE
'https://www.crunchyroll.com/content/v2/music/music_videos/MV2FD1FECE?locale=de-DE
Dim ObjectsURL As String = Streams.Replace("music/", "music/music_videos/").Replace("/streams", "")
@ -1281,7 +1271,31 @@ Public Class Main
TextBox2_Text = Arti2(0) + " - " + Title2(0)
ElseIf CBool(InStr(WebsiteURL, "/concert/")) = True Then
'TextBox2_Text to bypasss name for now
'https://www.crunchyroll.com/content/v2/music/MCB3E02384/streams?locale=de-DE
'https://www.crunchyroll.com/content/v2/music/concerts/MCB3E02384?locale=de-DE
Dim ObjectsURL As String = Streams.Replace("music/", "music/concerts/").Replace("/streams", "")
ObjectJson = CurlAuth(ObjectsURL, Loc_CR_Cookies, Loc_AuthToken)
Dim Title() As String = ObjectJson.Split(New String() {Chr(34) + "title" + Chr(34) + ":" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
Dim Title2() As String = Title(1).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
Dim Arti() As String = ObjectJson.Split(New String() {Chr(34) + "name" + Chr(34) + ":" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
Dim Arti2() As String = Arti(1).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
'MsgBox(Arti2(0))
'MsgBox(Title2(0))
TextBox2_Text = Arti2(0) + " - " + Title2(0)
Else
@ -2037,6 +2051,7 @@ Public Class Main
Dim thumbnail3 As String = ""
Try
Dim thumbnail As String() = ObjectJson.Split(New String() {"https://"}, System.StringSplitOptions.RemoveEmptyEntries)
For i As Integer = 0 To thumbnail.Count - 1
If CBool(InStr(thumbnail(i), ".jpg" + Chr(34))) Then
@ -2051,6 +2066,18 @@ Public Class Main
Dim thumbnail2 As String() = thumbnail(i).Split(New String() {".jpe" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries) '(New [Char]() {"-"})
thumbnail3 = "https://" + thumbnail2(0).Replace("\/", "/") + ".jpe"
Exit For
ElseIf CBool(InStr(thumbnail(i), ".JPEG" + Chr(34))) Then
Dim thumbnail2 As String() = thumbnail(i).Split(New String() {".JPEG" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries) '(New [Char]() {"-"})
thumbnail3 = "https://" + thumbnail2(0).Replace("\/", "/") + ".JPEG"
Exit For
ElseIf CBool(InStr(thumbnail(i), ".JPG" + Chr(34))) Then
Dim thumbnail2 As String() = thumbnail(i).Split(New String() {".JPG" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries) '(New [Char]() {"-"})
thumbnail3 = "https://" + thumbnail2(0).Replace("\/", "/") + ".JPG"
Exit For
ElseIf CBool(InStr(thumbnail(i), ".JPE" + Chr(34))) Then
Dim thumbnail2 As String() = thumbnail(i).Split(New String() {".JPE" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries) '(New [Char]() {"-"})
thumbnail3 = "https://" + thumbnail2(0).Replace("\/", "/") + ".JPE"
Exit For
End If
Next
@ -4596,6 +4623,11 @@ Public Class Main
Browser.WebView2.CoreWebView2.Navigate(Url)
Exit Sub
ElseIf CBool(InStr(Url, "/concert/")) Then
SetStatusLabel("Status: concert detected - partial support only")
Browser.WebView2.CoreWebView2.Navigate(Url)
Exit Sub
End If

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

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