bugfixes
This commit is contained in:
hama3254 2020-06-01 18:43:38 +02:00
parent 61d63d67a4
commit 34f9c082bf
57 changed files with 179 additions and 2828 deletions

Binary file not shown.

View File

@ -273,9 +273,9 @@ Partial Class Anime_Add
Me.ClientSize = New System.Drawing.Size(630, 275)
Me.Controls.Add(Me.pictureBox3)
Me.Controls.Add(Me.pictureBox4)
Me.Controls.Add(Me.groupBox1)
Me.Controls.Add(Me.GroupBox3)
Me.Controls.Add(Me.groupBox2)
Me.Controls.Add(Me.groupBox1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Name = "Anime_Add"
Me.Text = "Add"

View File

@ -5,6 +5,7 @@ Imports System.IO
Public Class Anime_Add
Public Mass_DL_Cancel As Boolean = False
Public List_DL_Cancel As Boolean = False
Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
Try
If ComboBox2.Text = Main.SubFolder_Nothing Then
@ -24,6 +25,14 @@ Public Class Anime_Add
Private Sub Anime_Add_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.Icon = My.Resources.icon
Try
For i As Integer = 0 To Main.ListBoxList.Count - 1
ListBox1.Items.Add(Main.ListBoxList.Item(i))
Next
Catch ex As Exception
End Try
Try
Main.waveOutSetVolume(0, 0)
Catch ex As Exception
@ -171,12 +180,19 @@ Public Class Anime_Add
End Sub
Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles pictureBox3.Click
If ListBox1.Items.Count > 0 Then
Main.ListBoxList.Clear()
For i As Integer = 0 To ListBox1.Items.Count - 1
Main.ListBoxList.Add(ListBox1.Items.Item(i))
Next
End If
Me.Close()
End Sub
Private Sub PictureBox4_Click(sender As Object, e As EventArgs) Handles pictureBox4.Click
'pictureBox4.Enabled = False
Main.RemoveFinishedTask()
Main.LoginOnly = "Download Mode!"
If groupBox1.Visible = True Then
Try
If CBool(InStr(textBox1.Text, "crunchyroll.com")) Then
@ -271,7 +287,10 @@ Public Class Anime_Add
List_DL_Cancel = False
pictureBox4.Image = My.Resources.main_button_download_default
End If
If InStr(My.Computer.Info.OSFullName, "Server") Then
MsgBox("Windows Server is not supported!", MsgBoxStyle.Critical)
Me.Close()
End If
pictureBox4.Enabled = True
End Sub
@ -371,10 +390,6 @@ Public Class Anime_Add
#Region "Listbox"
Private Sub ListBox1_DoubleClick(sender As Object, e As EventArgs)
ListBox1.Items.Remove(ListBox1.SelectedItem)
End Sub
Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
If GroupBox3.Visible = True Then
If ListBox1.Items.Count = 0 Then
@ -420,6 +435,11 @@ Public Class Anime_Add
End Sub
Private Sub ListBox1_DoubleClick(sender As Object, e As EventArgs) Handles ListBox1.DoubleClick
ListBox1.Items.Remove(ListBox1.SelectedItem)
End Sub
#End Region

View File

@ -48,7 +48,7 @@ Partial Class GeckoFX
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(187, 2)
Me.Button1.Location = New System.Drawing.Point(187, 1)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(96, 26)
Me.Button1.TabIndex = 2
@ -60,7 +60,7 @@ Partial Class GeckoFX
Me.Button2.Enabled = False
Me.Button2.Location = New System.Drawing.Point(3, 2)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(181, 26)
Me.Button2.Size = New System.Drawing.Size(178, 26)
Me.Button2.TabIndex = 3
Me.Button2.Text = "Start network scan"
Me.Button2.UseVisualStyleBackColor = True

View File

@ -7,6 +7,7 @@ Imports System.Threading
Imports System.Net
Imports System.Net.WebUtility
Imports System.IO.Compression
Imports System.Text
Public Class GeckoFX
Public keks As String = Nothing
@ -14,12 +15,36 @@ Public Class GeckoFX
Dim t As Thread
Dim ScanTrue As Boolean = False
Private Sub GeckoWebBrowser1_DocumentCompleted(sender As Object, e As EventArgs) Handles WebBrowser1.DocumentCompleted
If InStr(My.Computer.Info.OSFullName, "Server") Then
MsgBox("Windows Server is not supported!", MsgBoxStyle.Critical)
Me.Close()
End If
If ScanTrue = False Then
Button2.Enabled = True
End If
If Main.LoginOnly = "US_UnBlock" Then
Main.LoginOnly = "US_UnBlocck_Wait2nd"
Try
Main.LoginOnly = "US_UnBlock_Wait"
If CBool(InStr(WebBrowser1.Document.Body.OuterHtml, "waiting for reCAPTCHA . . .")) Then
Main.Pause(4)
Main.LoginOnly = "US_UnBlock"
Else
Dim cookieGrapp As String = WebBrowser1.Document.Body.OuterHtml '.Replace(vbTab, "").Replace(" ", "")
If Main.Debug2 = True Then
MsgBox(cookieGrapp)
End If
Dim cookieGrapp2() As String = cookieGrapp.Split(New String() {"<a class=" + Chr(34) + "cookie" + Chr(34) + ">"}, System.StringSplitOptions.RemoveEmptyEntries)
Dim cookieGrapp3() As String = cookieGrapp2(1).Split(New String() {"</a>"}, System.StringSplitOptions.RemoveEmptyEntries)
keks = cookieGrapp3(0)
If Main.Debug2 = True Then
MsgBox(keks)
End If
WebBrowser1.Navigate("https://www.crunchyroll.com/")
Main.Pause(5)
WebBrowser1.Document.Cookie = Nothing
Main.Pause(1)
WebBrowser1.Navigate("javascript:document.cookie =" + Chr(34) + "session_id=" + keks + "; expires=Thu, 05 Jan 2021 00:00:00 UTC; path=/;" + Chr(34) + ";")
Main.Pause(1)
WebBrowser1.Navigate("javascript:document.cookie = " + Chr(34) + "sess_id=" + keks + "; expires=Thu, 05 Jan 2021 00:00:00 UTC; path=/;" + Chr(34) + ";")
@ -27,23 +52,8 @@ Public Class GeckoFX
WebBrowser1.Navigate("javascript:document.cookie = " + Chr(34) + "c_locale=enUS; expires=Thu, 05 Jan 2021 00:00:00 UTC; path=/;" + Chr(34) + ";")
Main.Pause(1)
WebBrowser1.Navigate("https://www.crunchyroll.com/")
Main.LoginOnly = "US_UnBlock_Check"
Catch ex As Exception
End Try
ElseIf Main.LoginOnly = "US_UnBlock_Wait" Then
Main.LoginOnly = "US_UnBlocck_Wait2nd"
Main.Pause(2)
Main.LoginOnly = "US_UnBlock_Check"
WebBrowser1.Navigate("https://www.crunchyroll.com/")
ElseIf Main.LoginOnly = "US_UnBlock_Check" Then
Main.LoginOnly = "false"
If CBool(InStr(WebBrowser1.Document.Body.OuterHtml, "Your detected location is United States of America.")) Then
MsgBox("unlock successful", MsgBoxStyle.Information)
Me.Close()
Else
MsgBox("unlock failes", MsgBoxStyle.Exclamation)
Me.Close()
End If
Else
@ -127,7 +137,7 @@ Public Class GeckoFX
MsgBox(ex.ToString)
Main.LabelUpdate = "Status: idle"
End Try
ElseIf main.c = False Then
ElseIf Main.c = False Then
If CBool(InStr(WebBrowser1.Document.Body.OuterHtml, "hardsub_lang")) Then
Main.c = True
Main.WebbrowserURL = WebBrowser1.Url.ToString
@ -176,7 +186,7 @@ Public Class GeckoFX
While (line IsNot Nothing)
line = logFileReader.ReadLine
If InStr(line, ".m3u8?") Then
If InStr(line, ".m3u8") Then 'm3u8?
If HTMLString = Nothing Then
HTMLString = line
Else
@ -188,12 +198,13 @@ Public Class GeckoFX
HTMLString = HTMLString + vbNewLine + line
End If
Next
End If
End While
logFileReader.Close()
logFileStream.Close()
'MsgBox(HTMLString)
If InStr(HTMLString, ".m3u8?") Then
If InStr(HTMLString, ".m3u8") Then 'm3u8?
Anime_Add.StatusLabel.Text = "Status: m3u8 found, trying to start the download"
Main.LoggingBrowser = False
GeckoPreferences.Default("logging.config.LOG_FILE") = "log.txt"
@ -201,7 +212,7 @@ Public Class GeckoFX
Dim URL As String = Nothing
Dim HTMLSplit() As String = HTMLString.Split(New String() {vbNewLine}, System.StringSplitOptions.RemoveEmptyEntries)
For i As Integer = 0 To HTMLSplit.Count - 1
If InStr(HTMLSplit(i), ".m3u8?") Then
If InStr(HTMLSplit(i), ".m3u8") Then 'm3u8?
Dim URLPart2() As String = HTMLSplit(i).Split(New String() {" GET "}, System.StringSplitOptions.RemoveEmptyEntries)
Dim URLPart2Split2() As String = URLPart2(1).Split(New String() {" HTTP/"}, System.StringSplitOptions.RemoveEmptyEntries)
Dim URLPart1() As String = HTMLSplit(i + 1).Split(New String() {" Host: "}, System.StringSplitOptions.RemoveEmptyEntries)
@ -224,7 +235,7 @@ Public Class GeckoFX
If CBool(InStr(WebBrowser1.Document.Body.OuterHtml, ".m3u8")) Then
#Region "m3u8 suche"
Main.WebbrowserText = UrlDecode(WebBrowser1.Document.Body.OuterHtml)
If InStr(Main.WebbrowserText, ".m3u8?") Then
If InStr(Main.WebbrowserText, ".m3u8") Then 'm3u8?
Else
Anime_Add.StatusLabel.Text = "Status: no m3u8 found"
Main.UserBowser = False
@ -233,12 +244,12 @@ Public Class GeckoFX
End If
Dim ii As Integer = 0
Dim Video_URI_Master As String = Nothing
Dim Video_URI_Master_Split1 As String() = Main.WebbrowserText.Split(New String() {".m3u8?"}, System.StringSplitOptions.RemoveEmptyEntries)
Dim Video_URI_Master_Split1 As String() = Main.WebbrowserText.Split(New String() {".m3u8"}, System.StringSplitOptions.RemoveEmptyEntries) 'm3u8?
Dim m3u8Link As String = Nothing
For i As Integer = 0 To Video_URI_Master_Split1.Count - 2
Dim Video_URI_Master_Split_Top As String() = Video_URI_Master_Split1(i).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
Dim Video_URI_Master_Split_Bottom As String() = Video_URI_Master_Split1(i + 1).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
m3u8Link = Video_URI_Master_Split_Top(Video_URI_Master_Split_Top.Count - 1) + ".m3u8?" + Video_URI_Master_Split_Bottom(0)
m3u8Link = Video_URI_Master_Split_Top(Video_URI_Master_Split_Top.Count - 1) + ".m3u8" + Video_URI_Master_Split_Bottom(0) 'm3u8?
Exit For
Next
m3u8Link = m3u8Link.Replace("&amp;", "&").Replace("/u0026", "&").Replace("\u002F", "/")
@ -359,6 +370,7 @@ Public Class GeckoFX
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
My.Computer.Clipboard.SetText(WebBrowser1.Url.ToString)
MsgBox("copied: " + Chr(34) + WebBrowser1.Url.ToString + Chr(34))
@ -431,6 +443,9 @@ Public Class GeckoFX
MsgBox(BaseURL3)
End If
AsyncWorkerX.RunAsync(AddressOf Main.DownloadMangaPages, BaseURL3, ImageList, Main.RemoveExtraSpaces(NameDLFinal))
ElseIf InStr(WebBrowser1.Url.ToString, "cr-cookie-ui.php") Then
MsgBox(WebBrowser1.Document.Body.InnerHtml)
Else
Try
@ -439,6 +454,7 @@ Public Class GeckoFX
Main.txtList.Clear()
Button2.Enabled = False
ScanTrue = True
GeckoPreferences.Default("logging.config.LOG_FILE") = "log.txt"
GeckoPreferences.Default("logging.nsHttp") = 3
Main.LoggingBrowser = True
@ -478,7 +494,7 @@ Public Class GeckoFX
While (line IsNot Nothing)
line = logFileReader.ReadLine
If InStr(line, ".m3u8?") Then
If InStr(line, ".m3u8") Then 'm3u8?
Dim Temp_String As String = Nothing
Temp_String = line
If HTMLString = Nothing Then
@ -502,6 +518,15 @@ Public Class GeckoFX
Main.txtList.Add(Temp_String + vbNewLine + line)
End If
Next
ElseIf InStr(line, ".vtt") Then
Dim Temp_String As String = Nothing
Temp_String = line
For i As Integer = 0 To 10
line = logFileReader.ReadLine
If InStr(line, " Host: ") Then
Main.txtList.Add(Temp_String + vbNewLine + line)
End If
Next
ElseIf InStr(line, ".mpd") Then
Dim Temp_String As String = Nothing
Temp_String = line
@ -516,7 +541,7 @@ Public Class GeckoFX
logFileReader.Close()
logFileStream.Close()
'MsgBox(HTMLString)
If InStr(HTMLString, ".m3u8?") Then
If InStr(HTMLString, ".m3u8") Then 'm3u8?
Button2.Text = "found m3u8"
Main.LoggingBrowser = False
GeckoPreferences.Default("logging.config.LOG_FILE") = "log.txt"
@ -524,7 +549,7 @@ Public Class GeckoFX
Dim URL As String = Nothing
Dim HTMLSplit() As String = HTMLString.Split(New String() {vbNewLine}, System.StringSplitOptions.RemoveEmptyEntries)
For i As Integer = 0 To HTMLSplit.Count - 1
If InStr(HTMLSplit(i), ".m3u8?") Then
If InStr(HTMLSplit(i), ".m3u8") Then 'm3u8?
Dim URLPart2() As String = HTMLSplit(i).Split(New String() {" GET "}, System.StringSplitOptions.RemoveEmptyEntries)
Dim URLPart2Split2() As String = URLPart2(1).Split(New String() {" HTTP/"}, System.StringSplitOptions.RemoveEmptyEntries)
Dim URLPart1() As String = HTMLSplit(i + 1).Split(New String() {" Host: "}, System.StringSplitOptions.RemoveEmptyEntries)
@ -566,6 +591,34 @@ Public Class GeckoFX
End If
Next
End If
If Main.txtList.Count > 0 Then 'InStr(HTMLString, ".mpd?") Then
HTMLString = Main.mpdList.Item(0)
'Button2.Text = "found mpd!"
Main.LoggingBrowser = False
GeckoPreferences.Default("logging.config.LOG_FILE") = "log.txt"
GeckoPreferences.Default("logging.nsHttp") = 0
Dim URL As String = Nothing
Dim HTMLSplit() As String = HTMLString.Split(New String() {vbNewLine}, System.StringSplitOptions.RemoveEmptyEntries)
For i As Integer = 0 To HTMLSplit.Count - 1
If InStr(HTMLSplit(i), ".mpd?") Then
Dim URLPart2() As String = HTMLSplit(i).Split(New String() {" GET "}, System.StringSplitOptions.RemoveEmptyEntries)
Dim URLPart2Split2() As String = URLPart2(1).Split(New String() {" HTTP/"}, System.StringSplitOptions.RemoveEmptyEntries)
Dim URLPart1() As String = HTMLSplit(i + 1).Split(New String() {" Host: "}, System.StringSplitOptions.RemoveEmptyEntries)
Main.NonCR_URL = "https://" + URLPart1(1) + URLPart2Split2(0)
'MsgBox(Main.NonCR_URL)
'RichTextBox1.Text = RichTextBox1.Text + vbNewLine + URL_Final
Main.FFMPEG_Reso(Main.NonCR_URL)
t = New Thread(AddressOf Main.Grapp_non_CR)
t.Priority = ThreadPriority.Normal
t.IsBackground = True
t.Start()
Button2.Text = "Start network scan"
Exit For
End If
Next
End If
ScanTrue = False
Button2.Enabled = True
@ -590,4 +643,6 @@ Public Class GeckoFX
Private Sub WebBrowser1_LostFocus(sender As Object, e As EventArgs) Handles WebBrowser1.LostFocus
'Debug_Mode.TopMost = False
End Sub
End Class

View File

@ -4,6 +4,7 @@ Imports System.IO
Imports Microsoft.Win32
Imports System.ComponentModel
Public Class Main
Public ListBoxList As New List(Of String)
Public UseQueue As Boolean = False
Public m3u8List As New List(Of String)
Public txtList As New List(Of String)
@ -147,6 +148,11 @@ Public Class Main
Public Declare Function waveOutSetVolume Lib "winmm.dll" (ByVal uDeviceID As Integer, ByVal dwVolume As Integer) As Integer
Private Sub Form8_Load(sender As Object, e As EventArgs) Handles MyBase.Load
If InStr(My.Computer.Info.OSFullName, "Server") Then
MsgBox("Windows Server is not supported!", MsgBoxStyle.Critical)
Me.Close()
End If
waveOutSetVolume(0, 0)
Try
Dim FileLocation As DirectoryInfo = New DirectoryInfo(Application.StartupPath)
@ -504,7 +510,8 @@ Public Class Main
For i As Integer = Anime_Add.comboBox3.SelectedIndex To Anime_Add.comboBox4.SelectedIndex
For e As Integer = 0 To Integer.MaxValue
'FontLabel.Visible = True
'FontLabel.Text = PR_List.Count.ToString
If Grapp_RDY = True Then
RemoveFinishedTask()
Pause(1)
@ -1053,6 +1060,7 @@ Public Class Main
#End Region
Public Sub GrappURL()
Try
'Throw New System.Exception("Test")
Grapp_RDY = False
@ -1550,6 +1558,23 @@ Public Class Main
Dim pr As Process = sender
Dim FileNameSplit As String() = pr.StartInfo.Arguments.ToString().Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
Dim FileName As String = Chr(34) + FileNameSplit(FileNameSplit.Count - 1) + Chr(34)
'If CBool(InStr(e.Data, "[Parsed_cropdetect_0")) And CBool(InStr(e.Data, "crop=")) = True Then
' If Debug2 = True Then
' MsgBox(True.ToString)
' End If
' Dim CropSearch() As String = e.Data.Split(New String() {"crop="}, System.StringSplitOptions.RemoveEmptyEntries)
' Dim CropSearch2 As String = "crop=" + CropSearch(1)
' Dim newProcess As String = pr.StartInfo.Arguments.ToString().Replace("cropdetect=24:16:0", CropSearch2)
' pr.Kill()
' If Debug2 = True Then
' MsgBox(newProcess)
' End If
'End If
If MergeSubstoMP4 = False Then
If CBool(InStr(e.Data, "Stream #")) And CBool(InStr(e.Data, "Video")) = True Then
'MsgBox(True.ToString + vbNewLine + e.Data)
@ -1983,7 +2008,7 @@ Public Class Main
End Sub
Private Sub pictureBox2_DoubleClick(sender As Object, e As EventArgs) Handles pictureBox2.DoubleClick
Private Sub PictureBox2_DoubleClick(sender As Object, e As EventArgs) Handles pictureBox2.DoubleClick
If Debug1 = True Then
If Debug2 = True Then
einstellungen.Close()
@ -2046,6 +2071,7 @@ Public Class Main
'End If
For i As Integer = 0 To SiteList.Count - 1
Dim iWert As Integer = i
Using client As New WebClient()
client.DownloadFile(BaseURL + SiteList(i), Pfad_DL + "\" + SiteList(i))
Pause(1)
@ -2053,18 +2079,18 @@ Public Class Main
Me.Invoke(New Action(Function()
Dim stringFormat As New StringFormat()
stringFormat.Alignment = StringAlignment.Far
stringFormat.LineAlignment = StringAlignment.Center
Dim p As PictureBox = PB_list(CurrentIndex)
p.Image = p.BackgroundImage
Dim g As Graphics = Graphics.FromImage(p.Image)
Dim ProgressbarPoint As Point = New Point(195, 70)
Dim WeißeBox As Point = New Point(525, 93)
Dim ProzentText As Point = New Point(795, 113)
Dim Weiß As Brush = New SolidBrush(Color.FromArgb(242, 242, 242))
g.FillRectangle(Weiß, WeißeBox.X + 1, WeißeBox.Y + 1, 275, 30)
g.DrawString((i + 1).ToString + "/" + SiteList.Count.ToString + " " + Math.Round(i / (SiteList.Count - 1) * 100, 2, MidpointRounding.AwayFromZero).ToString + "%", FontLabel2.Font, Brushes.Black, ProzentText, stringFormat)
stringFormat.LineAlignment = StringAlignment.Center
Dim p As PictureBox = PB_list(CurrentIndex)
p.Image = p.BackgroundImage
Dim g As Graphics = Graphics.FromImage(p.Image)
Dim ProgressbarPoint As Point = New Point(195, 70)
Dim WeißeBox As Point = New Point(525, 93)
Dim ProzentText As Point = New Point(795, 113)
Dim Weiß As Brush = New SolidBrush(Color.FromArgb(242, 242, 242))
g.FillRectangle(Weiß, WeißeBox.X + 1, WeißeBox.Y + 1, 275, 30)
g.DrawString((iWert + 1).ToString + "/" + SiteList.Count.ToString + " " + Math.Round(iWert / (SiteList.Count - 1) * 100, 2, MidpointRounding.AwayFromZero).ToString + "%", FontLabel2.Font, Brushes.Black, ProzentText, stringFormat)
Dim brGradient As Brush = New SolidBrush(Color.FromArgb(247, 140, 37))
g.FillRectangle(brGradient, ProgressbarPoint.X + 1, ProgressbarPoint.Y + 1, CInt((i / (SiteList.Count - 1)) * 600), 19)
g.FillRectangle(brGradient, ProgressbarPoint.X + 1, ProgressbarPoint.Y + 1, CInt((iWert / (SiteList.Count - 1)) * 600), 19)
g.Dispose()
Return Nothing
End Function))

View File

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

View File

@ -31,7 +31,7 @@
<!--<supportedOS Id="{e2011457-1546-43c5-a5fe-008deee3d3f0}" />-->
<!-- Windows 7 -->
<!--<supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}" />-->
<!-- <supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}" />-->
<!-- Windows 8 -->
<!--<supportedOS Id="{4a2f28e3-53b9-4441-ba9c-d69d4a4a6e38}" />-->
@ -40,9 +40,9 @@
<!--<supportedOS Id="{1f676c76-80e1-4239-95bb-83d0f6d0da78}" />-->
<!-- Windows 10 -->
<!--<supportedOS Id="{8e0f7a12-bfb3-4fe8-b9a5-48fd50a15a9a}" />-->
<!-- <supportedOS Id="{8e0f7a12-bfb3-4fe8-b9a5-48fd50a15a9a}" />-->
</application>
</application>
</compatibility>
<!-- Gibt an, dass die Anwendung mit DPI-Werten kompatibel ist und von Windows nicht automatisch auf höhere

View File

@ -1,6 +0,0 @@
{
"ExpandedNodes": [
""
],
"PreviewInSolutionExplorer": false
}

View File

@ -0,0 +1,17 @@
Operating System: Microsoft Windows 10 Pro
Crunchyroll URL: https://www.crunchyroll.com/de/rwby/episode-45-world-of-remnant-1-dust-658499
subtitle language: enUS
video resolution: 1080
error message: System.Exception: Test
bei Crunchyroll_Downloader.Main.GrappURL() in D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0\Crunchyroll Downloader\Main.vb:Zeile 1064.
bei Crunchyroll_Downloader.Main.GrappURL() in D:\Projecte\Crunchyroll Downloader - v3.0-final\Crunchyroll-Downloader-v3.0\Crunchyroll Downloader\Main.vb:Zeile 1064.
softsubs enabled?: System.Collections.Generic.List`1[System.String]
Crunchyroll Downloader Version: 3.2.4
detected location from Crunchyroll: de

View File

@ -1,6 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<configuration>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5.2"/>
</startup>
</configuration>

View File

@ -1,349 +0,0 @@
<?xml version="1.0"?>
<doc>
<assembly>
<name>
Crunchyroll Downloader
</name>
</assembly>
<members>
<member name="T:Crunchyroll_Downloader.My.Resources.Resources">
<summary>
Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.ResourceManager">
<summary>
Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.Culture">
<summary>
Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.add_background">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.add_mass_cancel">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.add_mass_cancel_hover">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.add_mass_running_cancel">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.add_mass_running_cancel_hover">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.ads_midroll">
<summary>
Sucht eine lokalisierte Zeichenfolge, die &quot;type&quot;:&quot;midroll&quot; ähnelt.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.ads_preroll">
<summary>
Sucht eine lokalisierte Zeichenfolge, die {&quot;type&quot;:&quot;preroll&quot;,&quot;offset&quot;:0}, ähnelt.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.backgroud">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.balken">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.CC_String">
<summary>
Sucht eine lokalisierte Zeichenfolge, die &lt;img id=&quot;footer_country_flag&quot; src=&quot;https://www.crunchyroll.com/i/country_flags/ ähnelt.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.crdSettings_Background">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.crdSettings_Button_SafeExit">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.crdSettings_Button_SafeExit_hover">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.crdsettings_setowncookie_button">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.crdsettings_setowncookie_button_hover">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.crdsettings_setUScookie_button">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.crdsettings_setUScookie_button_hover">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.credits_background">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.DialogNotFound_Background">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.DialogNotFound_Submit">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.DialogNotFound_Submit_hover">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.download_subs">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.download_subs_hover">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.Help_Background">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.hls_endString">
<summary>
Sucht eine lokalisierte Zeichenfolge, die &quot;,&quot;resolution&quot;:&quot;adaptive&quot; ähnelt.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.hls_Value">
<summary>
Sucht eine lokalisierte Zeichenfolge, die &quot;format&quot;:&quot;adaptive_hls&quot;, ähnelt.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.htmlEnd">
<summary>
Sucht eine lokalisierte Zeichenfolge, die &lt;/body&gt;
&lt;/html&gt; ähnelt.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.htmlnachHardSubs">
<summary>
Sucht eine lokalisierte Zeichenfolge, die &lt;/a&gt;
&lt;/div&gt;
&lt;/div&gt;
&lt;/div&gt;
&lt;img alt=&quot;image error&quot; src=&quot;balken1.png&quot; class=&quot;class-balken&quot;&gt; ähnelt.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.htmlnachTumbnail">
<summary>
Sucht eine lokalisierte Zeichenfolge, die &quot; class=&quot;imagestyle&quot;&gt;
&lt;div&gt;
&lt;span class=&quot;titel&quot; dir=&quot;auto&quot;&gt; ähnelt.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.htmlTop">
<summary>
Sucht eine lokalisierte Zeichenfolge, die &lt;!DOCTYPE html&gt;
&lt;head&gt;
&lt;meta http-equiv=&quot;Content-Type&quot; content=&quot;text/html; charset=utf-8&quot;/&gt;
&lt;/head&gt;
&lt;html&gt;
&lt;title&gt;CRD&lt;/title&gt;
&lt;style&gt;
.main-bg {margin:0 0 0 0;background-color:#F2F2F2;}
.div-spacer{width:16px;height:110px;display:block;margin-bottom:14px;position:relative}
.div-episode{width:804px;height:110px;display:block;margin-bottom:14px;position:relative}
.class-balken{width:820px;height:8px;display:block;margin-bottom:4px;margin-top:6px}
.class-cc{width:36px; [Rest der Zeichenfolge wurde abgeschnitten]&quot;; ähnelt.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.htmlvorAufloesung">
<summary>
Sucht eine lokalisierte Zeichenfolge, die &lt;/span&gt;
&lt;div class=&quot;progressbar&quot;&gt;
&lt;div class=&quot;progressbar-value&quot; style=&quot;width: 0%&quot;&gt;&lt;/div&gt;
&lt;/div&gt;
&lt;span dir=&quot;auto&quot; class=&apos;percenttext&apos;&gt;0%&lt;/span&gt;
&lt;div&gt;
&lt;span dir=&quot;auto&quot; class=&quot;resotext&quot;&gt; ähnelt.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.htmlvorHardSubs">
<summary>
Sucht eine lokalisierte Zeichenfolge, die &quot;&gt; &lt;img alt=&quot;image error&quot; src=&quot;cc1.png&quot; class=&quot;class-cc&quot;&gt; ähnelt.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.htmlvorSoftSubs">
<summary>
Sucht eine lokalisierte Zeichenfolge, die &lt;/span&gt;
&lt;a href=&quot;#&quot; class=&quot;cc-wert&quot; title=&quot;Softsubs: ähnelt.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.htmlvorThumbnail">
<summary>
Sucht eine lokalisierte Zeichenfolge, die
&lt;div class=&quot;div-episode&quot;&gt;
&lt;img alt=&quot;image error&quot; src=&quot; ähnelt.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.icon">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Icon ähnlich wie (Symbol).
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_add">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_background">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_browser">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_button_download_deactivate">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_button_download_default">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_button_download_hovert">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_close">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_credits_default">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_credits_hover">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_del">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_del_hover">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.main_settings">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.settings_add_softsubs">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.settings_add_softsubs_hover">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.SoftSubs_Baclground">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.softsubs_download">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.softsubs_download_gray">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.softsubs_download_hover">
<summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.Startuphtml">
<summary>
Sucht eine lokalisierte Zeichenfolge, die &lt;!DOCTYPE html&gt;
&lt;html&gt;
&lt;title&gt;CRD&lt;/title&gt;
&lt;style&gt;
.main-bg {margin:0 0 0 -36px;background-color:#757575;}
.imagestyle{width:156px;height:88px;display:block;margin-bottom:4px} .ulStyle{margin:0 0 0 -10px;display:block;position:relative;margin-top:8px}
.ulStyle li{margin-left:12px;float:left;display:block;position:relative}
.listyle{width:156px;display:block;background:#fff;padding:16px;margin-bottom:14px;position:relative;background-color:#b5b3b3}
.progressbar{height:14px;backgro [Rest der Zeichenfolge wurde abgeschnitten]&quot;; ähnelt.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.thumbnailString">
<summary>
Sucht eine lokalisierte Zeichenfolge, die &quot;thumbnail&quot;:{&quot;url&quot;:&quot; ähnelt.
</summary>
</member>
</members>
</doc>

View File

@ -1,58 +0,0 @@
<?xml version="1.0"?>
<doc>
<assembly>
<name>
Helpers
</name>
</assembly>
<members>
<member name="T:My.Resources.Resources">
<summary>
Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
</summary>
</member>
<member name="P:My.Resources.Resources.ResourceManager">
<summary>
Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
</summary>
</member>
<member name="P:My.Resources.Resources.Culture">
<summary>
Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
</summary>
</member>
<member name="T:System.Windows.Forms.AsyncWorker">
<summary>
you can pass Delegates together with suitable arguments to the methods RunAsync(),
NotifyGui() or ReportProgress(), and the Delegate will be executed either in a
side-thread or in the Gui-thread
</summary>
</member>
<member name="M:System.Windows.Forms.AsyncWorker.ReportProgress(System.Action)">
<summary>
executes the Delegate in the Gui-thread, if the last progress-report is more
than <see cref="F:System.Windows.Forms.AsyncWorker.ReportInterval" />ago, and the process isn't canceled
</summary>
</member>
<member name="M:System.Windows.Forms.AsyncWorker.NotifyGui(System.Action)">
<summary>
executes the Delegate in the Gui-thread, if the process isn't canceled
</summary>
</member>
<member name="M:System.Windows.Forms.AsyncWorker.RunAsync(System.Action)">
<summary>executes the Delegate in a thread of the threadpool</summary>
</member>
<member name="M:System.Windows.Forms.AsyncWorkerX.RunAsync``3(System.Action{``0,``1,``2},``0,``1,``2)">
<summary>executes the Delegate in a thread of the threadpool</summary>
</member>
<member name="M:System.Windows.Forms.AsyncWorkerX.NotifyGui``3(System.Action{``0,``1,``2},``0,``1,``2)">
<summary>executes the Delegate in the Gui-thread</summary>
</member>
<member name="T:System.BugException">
<summary>
this Exception is not meant to be handled. Only for logging and debugging-purposes
</summary>
</member>
</members>
</doc>

File diff suppressed because it is too large Load Diff

View File

@ -317,13 +317,10 @@ Public Class einstellungen
End Function
Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click
Main.LoginOnly = "US_UnBlock"
Dim wb As New WebClient
Dim Session As String = wb.DownloadString("https://api.criater-stiftung.org/cr-cookie-hama3254.php")
'MsgBox(Session)
GeckoFX.keks = Session
GeckoFX.Show()
GeckoFX.WebBrowser1.Navigate("https://www.crunchyroll.com/")
Main.LoginOnly = "US_UnBlock"
GeckoFX.WebBrowser1.Navigate("https://api.criater-stiftung.org/cr-cookie-ui.php")
End Sub
Private Function GeräteID() As String