Mirrors/Crunchyroll-Downloader-v3.0
2
0
Fork 0
mirror of https://github.com/hama3254/Crunchyroll-Downloader-v3.0.git synced 2024-12-28 00:51:48 +01:00
Code Issues Packages Projects Releases Wiki Activity

fix locale url parameter

Browse Source 
fix locale url parameter #944
This commit is contained in:
hama3254 2024-04-30 22:44:38 +02:00
parent a8aeceb617
commit 3d0467ed8a
3 changed files with 24 additions and 79 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.

4
Crunchyroll Downloader/CRD_List_Item.vb
View File

@ -60,7 +60,7 @@ Public Class CRD_List_Item
Dim FailedSegments As New List(Of FailedSegemtsWithURL) Dim FailedSegments As New List(Of FailedSegemtsWithURL)
Dim LogText As New List(Of String) Dim LogText As New List(Of String)
Dim GlobalLogfile As String 'Dim GlobalLogfile As String
Private Event UpdateUI(ByVal Percent As Integer, ByVal di As DirectoryInfo, ByVal Idle As Integer) Private Event UpdateUI(ByVal Percent As Integer, ByVal di As DirectoryInfo, ByVal Idle As Integer)
@ -485,7 +485,7 @@ Public Class CRD_List_Item
HistoryDL_Pfad = DL_Pfad HistoryDL_Pfad = DL_Pfad
HistoryFilename = Filename HistoryFilename = Filename
GlobalLogfile = DL_Pfad.Replace(".mkv", ".txt").Replace(Chr(34), "") 'GlobalLogfile = DL_Pfad.Replace(".mkv", ".txt").Replace(Chr(34), "")
'Debug.WriteLine(GlobalLogfile) 'Debug.WriteLine(GlobalLogfile)

101
Crunchyroll Downloader/Main.vb
View File

@ -2908,91 +2908,36 @@ Public Class Main
#Region "Get Cookies" #Region "Get local"
'CR_Cookies = "Cookie: "
''MsgBox("Cookies")
'If File.Exists("cookies.txt") = True Then
' CR_Cookies = GetCookiesFromFile("crunchyroll.com")
' NoBrowser = True
' CrBetaBasic = "Basic bm9haWhkZXZtXzZpeWcwYThsMHE6"
' 'MsgBox(True.ToString)
'Else
' Browser.GetCookies(Url)
' Debug.WriteLine(CookieList.Count.ToString) If CBool(InStr(Url, "/series")) Then
' If CookieList.Count = 0 Then Dim locale1() As String = Url.Split(New String() {"crunchyroll.com/"}, System.StringSplitOptions.RemoveEmptyEntries)
' Browser.WebView2.CoreWebView2.Navigate(Url) Dim locale2() As String = locale1(1).Split(New String() {"/series"}, System.StringSplitOptions.RemoveEmptyEntries)
' SetStatusLabel("Status: loading in browser...") locale = Convert_locale(locale2(0))
' Me.Text = "Status: loading in browser..." If locale = "en-US" Then
' Exit Sub Url_locale = ""
Else
Url_locale = locale2(0)
End If
ElseIf CBool(InStr(Url, "/watch")) Then
Dim locale1() As String = Url.Split(New String() {"crunchyroll.com/"}, System.StringSplitOptions.RemoveEmptyEntries)
Dim locale2() As String = locale1(1).Split(New String() {"/watch"}, System.StringSplitOptions.RemoveEmptyEntries)
'MsgBox(locale2(0))
locale = Convert_locale(locale2(0))
'End If 'End If
If locale = "en-US" Then
Url_locale = ""
Else
Url_locale = locale2(0)
End If
End If
' For i As Integer = 0 To CookieList.Count - 1
' If CBool(InStr(CookieList.Item(i).Domain, ".crunchyroll.com")) And CBool(InStr(CookieList.Item(i).Name, "_evidon_suppress")) = False Then
' CR_Cookies = CR_Cookies + CookieList.Item(i).Name + "=" + CookieList.Item(i).Value + ";"
' End If
' Next
'End If
''MsgBox(Main.CR_Cookies)
'Dim DeviceRegion As String = Nothing
'If CBool(InStr(Url, "/series")) Then
' Dim locale1() As String = Url.Split(New String() {"crunchyroll.com/"}, System.StringSplitOptions.RemoveEmptyEntries)
' Dim locale2() As String = locale1(1).Split(New String() {"/series"}, System.StringSplitOptions.RemoveEmptyEntries)
' locale = Convert_locale(locale2(0))
' If locale = "en-US" Then
' Url_locale = ""
' Else
' Url_locale = locale2(0)
' End If
'ElseIf CBool(InStr(Url, "/watch")) Then
' Dim locale1() As String = Url.Split(New String() {"crunchyroll.com/"}, System.StringSplitOptions.RemoveEmptyEntries)
' Dim locale2() As String = locale1(1).Split(New String() {"/watch"}, System.StringSplitOptions.RemoveEmptyEntries)
' 'MsgBox(locale2(0))
' locale = Convert_locale(locale2(0))
' 'End If
' If locale = "en-US" Then
' Url_locale = ""
' Else
' Url_locale = locale2(0)
' End If
' 'If CBool(InStr(Url, "musicvideo/")) Then
' ' SetStatusLabel("Status: musicvideo detected - partial support only")
' ' Browser.WebView2.CoreWebView2.Navigate(Url)
' ' Exit Sub
' 'Else
' 'If CBool(InStr(Url, "/concert/")) Then
' ' SetStatusLabel("Status: concert detected - partial support only")
' ' Browser.WebView2.CoreWebView2.Navigate(Url)
' ' Exit Sub
' ' End If
'End If
''Debug.WriteLine("###" + CR_Cookies + "###")
'Dim Loc_CR_Cookies = " -H " + Chr(34) + CR_Cookies + Chr(34)
''CR_v1Token = "Get"
''Browser.WebView2.Source = New Uri(Url)
''Exit Sub
#End Region #End Region