mirror of
https://github.com/hama3254/Crunchyroll-Downloader-v3.0.git
synced 2024-11-11 02:35:07 +01:00
962 lines
47 KiB
VB.net
962 lines
47 KiB
VB.net
Imports Microsoft.Win32
|
|
Imports System.Net
|
|
Imports Gecko
|
|
Imports System.IO
|
|
Imports System.Threading
|
|
|
|
Public Class Anime_Add
|
|
Public Mass_DL_Cancel As Boolean = False
|
|
Public List_DL_Cancel As Boolean = False
|
|
Dim AoD_OmUList As New List(Of String)
|
|
Dim AoD_DubList As New List(Of String)
|
|
Dim AoD_Mode As Boolean = False
|
|
Dim AoD_DL_running As Boolean = False
|
|
Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
|
|
Try
|
|
If ComboBox2.Text = Main.SubFolder_Nothing Then
|
|
Dim rk As RegistryKey = Registry.CurrentUser.CreateSubKey("Software\CRDownloader")
|
|
rk.SetValue("SubFolder_Value", Main.SubFolder_Nothing, RegistryValueKind.String)
|
|
ElseIf ComboBox2.Text = Main.SubFolder_automatic Then
|
|
Dim rk As RegistryKey = Registry.CurrentUser.CreateSubKey("Software\CRDownloader")
|
|
rk.SetValue("SubFolder_Value", Main.SubFolder_automatic, RegistryValueKind.String)
|
|
Else
|
|
Dim rk As RegistryKey = Registry.CurrentUser.CreateSubKey("Software\CRDownloader")
|
|
rk.SetValue("SubFolder_Value", ComboBox2.Text, RegistryValueKind.String)
|
|
End If
|
|
Catch ex As Exception
|
|
ComboBox2.Text = Main.SubFolder_Nothing
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Anime_Add_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
|
|
Me.Icon = My.Resources.icon
|
|
Try
|
|
Dim ListBox1List As New List(Of String)
|
|
'Jeder Eintrag in der Combobox durchgehen
|
|
For Each item As String In Main.ListBoxList
|
|
'Wenn der Combobox-Eintrag noch nicht in der Result-List vorhanden ist, Eintrag der Result-List hinzufügen
|
|
If ListBox1List.Contains(item) = False Then
|
|
ListBox1List.Add(item)
|
|
End If
|
|
Next
|
|
ListBox1.Items.Clear()
|
|
'Die Result-List der Combobox hinzufügen
|
|
ListBox1.Items.AddRange(ListBox1List.ToArray)
|
|
|
|
|
|
'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
|
|
|
|
End Try
|
|
Me.Location = New Point(Main.Location.X + Main.Width / 2 - Me.Width / 2, Main.Location.Y + Main.Height / 2 - Me.Height / 2)
|
|
TextBox4.Text = Main.Pfad
|
|
|
|
Dim SubFolder_Value As String
|
|
Try
|
|
Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader")
|
|
SubFolder_Value = rkg.GetValue("SubFolder_Value").ToString
|
|
If SubFolder_Value = Main.SubFolder_Nothing Then
|
|
ComboBox2.Items.Add(Main.SubFolder_automatic)
|
|
ComboBox2.Items.Add(Main.SubFolder_Nothing)
|
|
ElseIf SubFolder_Value = Main.SubFolder_automatic Then
|
|
ComboBox2.Items.Add(Main.SubFolder_automatic)
|
|
ComboBox2.Items.Add(Main.SubFolder_Nothing)
|
|
Else
|
|
|
|
ComboBox2.Items.Add(Main.SubFolder_automatic)
|
|
ComboBox2.Items.Add(Main.SubFolder_Nothing)
|
|
ComboBox2.Items.Add(SubFolder_Value)
|
|
End If
|
|
Catch ex As Exception
|
|
ComboBox2.Items.Add(Main.SubFolder_automatic)
|
|
ComboBox2.Items.Add(Main.SubFolder_Nothing)
|
|
ComboBox2.SelectedItem = Main.SubFolder_Nothing
|
|
SubFolder_Value = Main.SubFolder_Nothing
|
|
End Try
|
|
|
|
Try
|
|
Dim di As New System.IO.DirectoryInfo(Main.Pfad)
|
|
For Each fi As System.IO.DirectoryInfo In di.EnumerateDirectories("*.*", System.IO.SearchOption.TopDirectoryOnly)
|
|
If fi.Attributes.HasFlag(System.IO.FileAttributes.Hidden) Then
|
|
Else
|
|
ComboBox2.Items.Add(fi.Name)
|
|
End If
|
|
Next
|
|
Dim Result As New List(Of String)
|
|
'Jeder Eintrag in der Combobox durchgehen
|
|
For Each item As String In ComboBox2.Items
|
|
'Wenn der Combobox-Eintrag noch nicht in der Result-List vorhanden ist, Eintrag der Result-List hinzufügen
|
|
If Result.Contains(item) = False Then
|
|
Result.Add(item)
|
|
End If
|
|
Next
|
|
'In der Result-List sind jetzt alle Einträge einmal vorhanden
|
|
'Combobox leeren
|
|
ComboBox2.Items.Clear()
|
|
'Die Result-List der Combobox hinzufügen
|
|
ComboBox2.Items.AddRange(Result.ToArray)
|
|
ComboBox2.SelectedItem = SubFolder_Value
|
|
Catch ex As Exception
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub TextBox4_DoubleClick(sender As Object, e As EventArgs) Handles TextBox4.DoubleClick
|
|
'MsgBox(DL_Path_String, MsgBoxStyle.OkOnly)
|
|
Dim FolderBrowserDialog1 As New FolderBrowserDialog()
|
|
|
|
If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
|
|
ComboBox2.Items.Clear()
|
|
Main.Pfad = FolderBrowserDialog1.SelectedPath
|
|
Dim rk0 As RegistryKey = Registry.CurrentUser.CreateSubKey("Software\CRDownloader")
|
|
rk0.SetValue("Ordner", Main.Pfad, RegistryValueKind.String)
|
|
|
|
ComboBox2.Items.Add(Main.SubFolder_automatic)
|
|
ComboBox2.Items.Add(Main.SubFolder_Nothing)
|
|
ComboBox2.SelectedItem = Main.SubFolder_Nothing
|
|
TextBox4.Text = Main.Pfad
|
|
Try
|
|
Dim di As New System.IO.DirectoryInfo(Main.Pfad)
|
|
For Each fi As System.IO.DirectoryInfo In di.EnumerateDirectories("*.*", System.IO.SearchOption.TopDirectoryOnly)
|
|
If fi.Attributes.HasFlag(System.IO.FileAttributes.Hidden) Then
|
|
Else
|
|
ComboBox2.Items.Add(fi.Name)
|
|
End If
|
|
Next
|
|
Dim Result As New List(Of String)
|
|
'Jeder Eintrag in der Combobox durchgehen
|
|
For Each item As String In ComboBox2.Items
|
|
'Wenn der Combobox-Eintrag noch nicht in der Result-List vorhanden ist, Eintrag der Result-List hinzufügen
|
|
If Result.Contains(item) = False Then
|
|
Result.Add(item)
|
|
End If
|
|
Next
|
|
'In der Result-List sind jetzt alle Einträge einmal vorhanden
|
|
'Combobox leeren
|
|
'ComboBox2.Items.Clear()
|
|
'Die Result-List der Combobox hinzufügen
|
|
'ComboBox2.Items.AddRange(Result.ToArray)
|
|
Catch ex As Exception
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
#Region " Move Form "
|
|
|
|
' [ Move Form ]
|
|
'
|
|
' // By Elektro
|
|
|
|
Public MoveForm As Boolean
|
|
Public MoveForm_MousePosition As Point
|
|
|
|
Public Sub MoveForm_MouseDown(sender As Object, e As MouseEventArgs) Handles _
|
|
MyBase.MouseDown ' Add more handles here (Example: PictureBox1.MouseDown)
|
|
|
|
If e.Button = MouseButtons.Left Then
|
|
MoveForm = True
|
|
Me.Cursor = Cursors.NoMove2D
|
|
MoveForm_MousePosition = e.Location
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Public Sub MoveForm_MouseMove(sender As Object, e As MouseEventArgs) Handles _
|
|
MyBase.MouseMove ' Add more handles here (Example: PictureBox1.MouseMove)
|
|
|
|
If MoveForm Then
|
|
Me.Location = Me.Location + (e.Location - MoveForm_MousePosition)
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Public Sub MoveForm_MouseUp(sender As Object, e As MouseEventArgs) Handles _
|
|
MyBase.MouseUp ' Add more handles here (Example: PictureBox1.MouseUp)
|
|
|
|
If e.Button = MouseButtons.Left Then
|
|
MoveForm = False
|
|
Me.Cursor = Cursors.Default
|
|
End If
|
|
|
|
End Sub
|
|
|
|
|
|
#End Region
|
|
Private Sub PictureBox3_MouseEnter(sender As Object, e As EventArgs) Handles pictureBox3.MouseEnter
|
|
pictureBox3.BackColor = SystemColors.Control
|
|
End Sub
|
|
|
|
Private Sub PictureBox3_MouseLeave(sender As Object, e As EventArgs) Handles pictureBox3.MouseLeave
|
|
pictureBox3.BackColor = Color.Transparent
|
|
End Sub
|
|
|
|
Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles pictureBox3.Click
|
|
Main.ListBoxList.Clear()
|
|
If ListBox1.Items.Count > 0 Then
|
|
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.LoginOnly = "Download Mode!"
|
|
If groupBox1.Visible = True Then
|
|
Try
|
|
If CBool(InStr(textBox1.Text, "crunchyroll.com")) Or CBool(InStr(textBox1.Text, "funimation.com")) Then 'Or CBool(InStr(textBox1.Text, "anime-on-demand.de")) Then
|
|
If StatusLabel.Text = "Status: waiting for episode selection" Then
|
|
If MessageBox.Show("Are you sure you want cancel the advanced download?", "confirm?", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
|
|
StatusLabel.Text = "Status: idle"
|
|
Else
|
|
Exit Sub
|
|
pictureBox4.Enabled = True
|
|
End If
|
|
'ElseIf LabelUpdate = "Status: looking for video file" Then
|
|
' Exit Sub
|
|
' pictureBox4.Enabled = True
|
|
Else
|
|
If Main.RunningDownloads >= Main.MaxDL Then
|
|
ListBox1.Items.Add(textBox1.Text)
|
|
textBox1.ForeColor = Color.FromArgb(9248044)
|
|
Main.Pause(1)
|
|
textBox1.ForeColor = Color.Black
|
|
textBox1.Text = "URL"
|
|
Else
|
|
If Main.Grapp_RDY = True Then
|
|
GeckoFX.WebBrowser1.Navigate(textBox1.Text)
|
|
StatusLabel.Text = "Status: loading ..."
|
|
Main.b = False
|
|
End If
|
|
End If
|
|
End If
|
|
ElseIf CBool(InStr(textBox1.Text, "anime-on-demand.de")) Then
|
|
Main.b = False
|
|
AoD_DubList.Clear()
|
|
AoD_OmUList.Clear()
|
|
Dim FileLocation As DirectoryInfo = New DirectoryInfo(Application.StartupPath)
|
|
Dim CurrentFile As String = Nothing
|
|
For Each File In FileLocation.GetFiles()
|
|
If InStr(File.FullName, "gecko-network.txt") Then
|
|
CurrentFile = File.FullName
|
|
Exit For
|
|
End If
|
|
Next
|
|
If CurrentFile = Nothing Then
|
|
Else
|
|
Dim logFileStream As FileStream = New FileStream(CurrentFile, FileMode.Open, FileAccess.ReadWrite, FileShare.ReadWrite)
|
|
Dim logFileReader As StreamReader = New StreamReader(logFileStream)
|
|
logFileStream.SetLength(0)
|
|
logFileReader.Close()
|
|
logFileStream.Close()
|
|
End If
|
|
Main.LogBrowserData = True
|
|
GeckoPreferences.Default("logging.config.LOG_FILE") = "gecko-network.txt"
|
|
GeckoPreferences.Default("logging.nsHttp") = 3
|
|
GeckoFX.WebBrowser1.Navigate(textBox1.Text)
|
|
|
|
Do Until Main.b = True
|
|
Main.StatusMainForm.Text = "Status: loading ..."
|
|
StatusLabel.Text = "Status: loading ..."
|
|
Pause(1)
|
|
Loop
|
|
|
|
Main.LogBrowserData = False
|
|
GeckoPreferences.Default("logging.config.LOG_FILE") = "gecko-network.txt"
|
|
GeckoPreferences.Default("logging.nsHttp") = 0
|
|
|
|
Dim AoD_Cookie As String = Nothing
|
|
Dim AoDhttpLog As DirectoryInfo = New DirectoryInfo(Application.StartupPath)
|
|
Dim AoDhttpLogFile As String = Nothing
|
|
For Each File In AoDhttpLog.GetFiles()
|
|
If InStr(File.FullName, "gecko-network.txt") Then
|
|
AoDhttpLogFile = File.FullName
|
|
Exit For
|
|
End If
|
|
Next
|
|
Dim AoDlogFileStream As FileStream = New FileStream(AoDhttpLogFile, FileMode.Open, FileAccess.ReadWrite, FileShare.ReadWrite)
|
|
Dim AoDlogFileReader As StreamReader = New StreamReader(AoDlogFileStream)
|
|
Dim line As String = Nothing
|
|
Dim HTMLString As String = Nothing
|
|
line = AoDlogFileReader.ReadLine
|
|
|
|
While (line IsNot Nothing)
|
|
line = AoDlogFileReader.ReadLine
|
|
If CBool(InStr(line, "Cookie: ")) And CBool(InStr(line, "remember_user_token=")) Then
|
|
AoD_Cookie = "Cookie: " + line.Split(New String() {"Cookie: "}, System.StringSplitOptions.RemoveEmptyEntries)(1)
|
|
Exit While
|
|
End If
|
|
End While
|
|
AoDlogFileReader.Close()
|
|
AoDlogFileStream.Close()
|
|
If AoD_Cookie = Nothing Then
|
|
MsgBox(Main.LoginReminder)
|
|
Main.StatusMainForm.Text = "Crunchyroll Downloader"
|
|
StatusLabel.Text = "Status: idle"
|
|
Exit Sub
|
|
End If
|
|
'MsgBox(AoD_Cookie)
|
|
'Main.WebbrowserCookie = AoD_Cookie
|
|
If CBool(InStr(Main.WebbrowserText, "/OmU/1080/hlsfirst/")) Then
|
|
Dim OmUStreamSplit() As String = Main.WebbrowserText.Split(New String() {"/OmU/1080/hlsfirst/"}, System.StringSplitOptions.RemoveEmptyEntries)
|
|
Dim OmUStreamSplitToken() As String = OmUStreamSplit(1).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
|
|
Dim OmUStreamSplitEpisodeIndex() As String = OmUStreamSplit(0).Split(New String() {"/videomaterialurl/"}, System.StringSplitOptions.RemoveEmptyEntries)
|
|
Dim OmUStreamSplitEpisodeIndex2() As String = OmUStreamSplitEpisodeIndex(1).Split(New String() {"/"}, System.StringSplitOptions.RemoveEmptyEntries)
|
|
Dim m3u8Strings As String = Nothing
|
|
'I/nsHttp Cookie:
|
|
Try
|
|
Using client As New WebClient()
|
|
client.Headers.Add("User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:82.0) Gecko/20100101 Firefox/82.0")
|
|
client.Headers.Add("ACCEPT: application/json, text/javascript, */*; q=0.01")
|
|
client.Headers.Add("Accept-Encoding: gzip, deflate, br")
|
|
client.Headers.Add("X-Requested-With: XMLHttpRequest")
|
|
client.Headers.Add(AoD_Cookie) '+ WebBrowser1.Document.Cookie)
|
|
'MsgBox(OmUStreamSplitEpisodeIndex(1))
|
|
m3u8Strings = client.DownloadString("https://www.anime-on-demand.de/videomaterialurl/" + OmUStreamSplitEpisodeIndex2(0) + "/OmU/1080/hlsfirst/" + OmUStreamSplitToken(0))
|
|
|
|
End Using
|
|
Catch ex As Exception
|
|
MsgBox(ex.ToString + vbNewLine + "https://www.anime-on-demand.de/videomaterialurl/" + OmUStreamSplitEpisodeIndex2(0) + "/OmU/1080/hlsfirst/" + OmUStreamSplitToken(0))
|
|
End Try
|
|
If m3u8Strings = Nothing Then
|
|
Else
|
|
|
|
Dim OmUStreams() As String = m3u8Strings.Split(New String() {My.Resources.AoD_files}, System.StringSplitOptions.RemoveEmptyEntries)
|
|
For i As Integer = 1 To OmUStreams.Count - 1
|
|
AoD_OmuList.Add(OmUStreams(i))
|
|
Next
|
|
End If
|
|
|
|
End If
|
|
|
|
If CBool(InStr(Main.WebbrowserText, "/Dub/1080/hlsfirst/")) Then
|
|
Dim DubStreamSplit() As String = Main.WebbrowserText.Split(New String() {"/Dub/1080/hlsfirst/"}, System.StringSplitOptions.RemoveEmptyEntries)
|
|
Dim DubStreamSplitToken() As String = DubStreamSplit(1).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
|
|
Dim DubStreamSplitEpisodeIndex() As String = DubStreamSplit(0).Split(New String() {"/videomaterialurl/"}, System.StringSplitOptions.RemoveEmptyEntries)
|
|
Dim DubStreamSplitEpisodeIndex2() As String = DubStreamSplitEpisodeIndex(1).Split(New String() {"/"}, System.StringSplitOptions.RemoveEmptyEntries)
|
|
Dim m3u8Strings As String = Nothing
|
|
'I/nsHttp Cookie:
|
|
Try
|
|
Using client As New WebClient()
|
|
client.Headers.Add("User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:82.0) Gecko/20100101 Firefox/82.0")
|
|
client.Headers.Add("ACCEPT: application/json, text/javascript, */*; q=0.01")
|
|
client.Headers.Add("Accept-Encoding: gzip, deflate, br")
|
|
client.Headers.Add("X-Requested-With: XMLHttpRequest")
|
|
client.Headers.Add(AoD_Cookie) '+ WebBrowser1.Document.Cookie)
|
|
'MsgBox(DubStreamSplitEpisodeIndex(1))
|
|
m3u8Strings = client.DownloadString("https://www.anime-on-demand.de/videomaterialurl/" + DubStreamSplitEpisodeIndex2(0) + "/Dub/1080/hlsfirst/" + DubStreamSplitToken(0))
|
|
|
|
End Using
|
|
Catch ex As Exception
|
|
MsgBox(ex.ToString + vbNewLine + "https://www.anime-on-demand.de/videomaterialurl/" + DubStreamSplitEpisodeIndex2(0) + "/Dub/1080/hlsfirst/" + DubStreamSplitToken(0))
|
|
End Try
|
|
If m3u8Strings = Nothing Then
|
|
Else
|
|
|
|
Dim DubStreams() As String = m3u8Strings.Split(New String() {My.Resources.AoD_files}, System.StringSplitOptions.RemoveEmptyEntries)
|
|
For i As Integer = 1 To DubStreams.Count - 1
|
|
AoD_DubList.Add(DubStreams(i))
|
|
Next
|
|
End If
|
|
|
|
|
|
End If
|
|
AoD_Mode = True
|
|
If AoD_DubList.Count And AoD_OmuList.Count > 1 Then
|
|
|
|
GroupBox3.Visible = False
|
|
groupBox2.Visible = True
|
|
groupBox1.Visible = False
|
|
ComboBox1.Enabled = True
|
|
comboBox3.Enabled = True
|
|
comboBox4.Enabled = True
|
|
ComboBox1.Items.Add("Dub")
|
|
ComboBox1.Items.Add("OmU")
|
|
FillAoDDropDown()
|
|
ElseIf AoD_DubList.Count Or AoD_OmuList.Count > 1 Then
|
|
|
|
GroupBox3.Visible = False
|
|
groupBox2.Visible = True
|
|
groupBox1.Visible = False
|
|
ComboBox1.Enabled = False
|
|
comboBox3.Enabled = True
|
|
comboBox4.Enabled = True
|
|
FillAoDDropDown()
|
|
End If
|
|
|
|
ElseIf CBool(InStr(textBox1.Text, "Test=true")) Then
|
|
GeckoFX.WebBrowser1.Navigate(textBox1.Text)
|
|
Else 'If CBool(InStr(textBox1.Text, "vrv.co")) Then
|
|
If MessageBox.Show("This in NOT a Crunchyroll URL, try anyway?", "confirm?", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
|
|
Dim FileLocation As DirectoryInfo = New DirectoryInfo(Application.StartupPath)
|
|
Dim CurrentFile As String = Nothing
|
|
For Each File In FileLocation.GetFiles()
|
|
If InStr(File.FullName, "gecko-network.txt") Then
|
|
CurrentFile = File.FullName
|
|
Exit For
|
|
End If
|
|
Next
|
|
If CurrentFile = Nothing Then
|
|
Else
|
|
Dim logFileStream As FileStream = New FileStream(CurrentFile, FileMode.Open, FileAccess.ReadWrite, FileShare.ReadWrite)
|
|
Dim logFileReader As StreamReader = New StreamReader(logFileStream)
|
|
logFileStream.SetLength(0)
|
|
logFileReader.Close()
|
|
logFileStream.Close()
|
|
End If
|
|
Main.LogBrowserData = True
|
|
GeckoPreferences.Default("logging.config.LOG_FILE") = "gecko-network.txt"
|
|
GeckoPreferences.Default("logging.nsHttp") = 3
|
|
GeckoFX.WebBrowser1.Navigate(textBox1.Text)
|
|
StatusLabel.Text = "Status: looking for non CR video file"
|
|
Main.b = False
|
|
Else
|
|
Exit Sub
|
|
pictureBox4.Enabled = True
|
|
End If
|
|
|
|
'Else
|
|
'MsgBox(Main.URL_Invaild, MsgBoxStyle.OkOnly)
|
|
End If
|
|
Catch ex As Exception
|
|
'MsgBox(ex.ToString)
|
|
Main.b = True
|
|
MsgBox(Main.URL_Invaild, MsgBoxStyle.OkOnly)
|
|
End Try
|
|
ElseIf groupBox2.Visible = True Then
|
|
If Mass_DL_Cancel = True Then
|
|
Mass_DL_Cancel = False
|
|
GroupBox3.Visible = False
|
|
groupBox2.Visible = False
|
|
Main.Grapp_Abord = True
|
|
Main.b = True
|
|
groupBox1.Visible = True
|
|
pictureBox4.Image = My.Resources.main_button_download_default
|
|
ElseIf AoD_Mode = True Then
|
|
If AoD_DL_running = False Then
|
|
If comboBox3.SelectedIndex < 0 And comboBox4.SelectedIndex < 0 Then
|
|
MsgBox("Error nothing selected!", MsgBoxStyle.Exclamation)
|
|
Exit Sub
|
|
ElseIf comboBox3.SelectedIndex < 0 Or comboBox4.SelectedIndex < 0 Then
|
|
MsgBox("deteced!", MsgBoxStyle.Exclamation)
|
|
If comboBox3.SelectedIndex < 0 Then
|
|
'MsgBox("deteced! 3", MsgBoxStyle.Exclamation)
|
|
Dim CB4 As Integer = comboBox4.SelectedIndex
|
|
comboBox3.SelectedIndex = CB4
|
|
comboBox3.SelectedIndex = CB4
|
|
ElseIf comboBox4.SelectedIndex < 0 Then
|
|
'MsgBox("deteced! 4", MsgBoxStyle.Exclamation)
|
|
Dim CB3 As Integer = comboBox3.SelectedIndex
|
|
comboBox4.SelectedIndex = CB3
|
|
comboBox4.SelectedIndex = CB3
|
|
Else
|
|
MsgBox("Error nothing selected!", MsgBoxStyle.Exclamation)
|
|
Exit Sub
|
|
End If
|
|
Else
|
|
'MsgBox("not deteced!", MsgBoxStyle.Exclamation)
|
|
End If
|
|
AoD_DL_running = True
|
|
ComboBox1.Enabled = False
|
|
comboBox3.Enabled = False
|
|
comboBox4.Enabled = False
|
|
Dim Evaluator = New Thread(Sub() Me.Add_AoD())
|
|
Evaluator.Start()
|
|
PictureBox1.Enabled = False
|
|
PictureBox1.Visible = False
|
|
End If
|
|
'Add_AoD()
|
|
Else
|
|
|
|
StatusLabel.Text = "Status: idle"
|
|
pictureBox4.Image = My.Resources.add_mass_running_cancel
|
|
Mass_DL_Cancel = True
|
|
PictureBox1.Enabled = False
|
|
PictureBox1.Visible = False
|
|
Main.MassDL()
|
|
comboBox4.Enabled = False
|
|
comboBox3.Enabled = False
|
|
ComboBox1.Enabled = False
|
|
End If
|
|
ElseIf GroupBox3.Visible = True Then
|
|
GroupBox3.Visible = False
|
|
groupBox2.Visible = False
|
|
groupBox1.Visible = True
|
|
List_DL_Cancel = False
|
|
pictureBox4.Image = My.Resources.main_button_download_default
|
|
End If
|
|
|
|
pictureBox4.Enabled = True
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub ComboBox1_DrawItem(sender As Object, e As DrawItemEventArgs) Handles ComboBox1.DrawItem, ComboBox2.DrawItem, comboBox3.DrawItem, comboBox4.DrawItem
|
|
sender.BackColor = Color.White
|
|
If e.Index >= 0 Then
|
|
Using st As New StringFormat With {.Alignment = StringAlignment.Center}
|
|
' e.DrawBackground()
|
|
' e.DrawFocusRectangle()
|
|
e.Graphics.FillRectangle(SystemBrushes.ControlLightLight, e.Bounds)
|
|
e.Graphics.DrawString(sender.Items(e.Index).ToString, e.Font, Brushes.Black, e.Bounds, st)
|
|
|
|
End Using
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub PictureBox4_MouseEnter(sender As Object, e As EventArgs) Handles pictureBox4.MouseEnter
|
|
If Mass_DL_Cancel = True Then
|
|
pictureBox4.Image = My.Resources.add_mass_running_cancel_hover
|
|
ElseIf List_DL_Cancel = True Then
|
|
pictureBox4.Image = My.Resources.add_mass_running_cancel_hover
|
|
|
|
Else
|
|
pictureBox4.Image = My.Resources.main_button_download_hovert
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub PictureBox4_MouseLeave(sender As Object, e As EventArgs) Handles pictureBox4.MouseLeave
|
|
If Mass_DL_Cancel = True Then
|
|
pictureBox4.Image = My.Resources.add_mass_running_cancel
|
|
ElseIf List_DL_Cancel = True Then
|
|
pictureBox4.Image = My.Resources.add_mass_running_cancel
|
|
Else
|
|
pictureBox4.Image = My.Resources.main_button_download_default
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub TextBox1_Click(sender As Object, e As EventArgs) Handles textBox1.Click
|
|
If textBox1.Text = "URL" Then
|
|
textBox1.Text = Nothing
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
|
|
groupBox1.Visible = True
|
|
groupBox2.Visible = False
|
|
End Sub
|
|
|
|
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
|
|
If AoD_Mode = False Then
|
|
|
|
'MsgBox("Test")
|
|
comboBox3.Items.Clear()
|
|
comboBox4.Items.Clear()
|
|
'comboBox3.Items.Add("[First Episode]")
|
|
'comboBox4.Items.Add("[Last Episode]")
|
|
Dim SeasonDropdownAnzahl As String() = Main.WebbrowserText.Split(New String() {"season-dropdown content-menu block"}, System.StringSplitOptions.RemoveEmptyEntries)
|
|
Array.Reverse(SeasonDropdownAnzahl)
|
|
Dim SDV As Integer = 0
|
|
For i As Integer = 0 To SeasonDropdownAnzahl.Count - 1
|
|
If InStr(SeasonDropdownAnzahl(i), Chr(34) + ">" + ComboBox1.SelectedItem.ToString + "</a>") Then
|
|
SDV = i
|
|
End If
|
|
Next
|
|
'MsgBox(SDV)
|
|
Dim Anzahl As String() = SeasonDropdownAnzahl(SDV).Split(New String() {"wrapper container-shadow hover-classes"}, System.StringSplitOptions.RemoveEmptyEntries)
|
|
'MsgBox(Anzahl(0))
|
|
Dim c As Integer = Anzahl.Count - 1
|
|
Array.Reverse(Anzahl)
|
|
For i As Integer = 0 To Anzahl.Count - 2
|
|
Dim URLGrapp As String() = Anzahl(i).Split(New String() {"title=" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
|
|
|
|
Dim URLGrapp2 As String() = URLGrapp(1).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
|
|
|
|
comboBox3.Items.Add(URLGrapp2(0))
|
|
comboBox4.Items.Add(URLGrapp2(0))
|
|
Next
|
|
'comboBox3.SelectedIndex = 0
|
|
'comboBox4.SelectedIndex = 0
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub PictureBox1_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox1.MouseEnter
|
|
PictureBox1.Image = My.Resources.add_mass_cancel_hover
|
|
End Sub
|
|
|
|
Private Sub PictureBox1_MouseLeave(sender As Object, e As EventArgs) Handles PictureBox1.MouseLeave
|
|
PictureBox1.Image = My.Resources.add_mass_cancel
|
|
End Sub
|
|
|
|
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
|
|
If ListBox1.Items.Count > 0 Then
|
|
If StatusLabel.Text = "Status: idle" Then
|
|
StatusLabel.Text = "Status: items in queue, click to work off."
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
|
|
#Region "Listbox"
|
|
|
|
Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
|
|
If GroupBox3.Visible = True Then
|
|
If ListBox1.Items.Count = 0 Then
|
|
GroupBox3.Visible = False
|
|
groupBox2.Visible = False
|
|
groupBox1.Visible = True
|
|
List_DL_Cancel = False
|
|
pictureBox4.Image = My.Resources.main_button_download_default
|
|
End If
|
|
End If
|
|
If Main.RunningDownloads < Main.MaxDL Then
|
|
If ListBox1.Items.Count > 0 Then
|
|
If GroupBox3.Visible = True Then
|
|
If InStr(ListBox1.GetItemText(ListBox1.Items(0)), "funimation.com") Then
|
|
If Main.Funimation_Grapp_RDY = True Then
|
|
GeckoFX.WebBrowser1.Navigate(ListBox1.GetItemText(ListBox1.Items(0)))
|
|
ListBox1.Items.Remove(ListBox1.Items(0))
|
|
Main.Funimation_Grapp_RDY = False
|
|
Main.b = False
|
|
StatusLabel.Text = "Status: loading ..."
|
|
Main.StatusMainForm.Text = "Status: loading ..."
|
|
End If
|
|
|
|
Else
|
|
If Main.Grapp_RDY = True Then
|
|
GeckoFX.WebBrowser1.Navigate(ListBox1.GetItemText(ListBox1.Items(0)))
|
|
ListBox1.Items.Remove(ListBox1.Items(0))
|
|
Main.Grapp_RDY = False
|
|
Main.b = False
|
|
StatusLabel.Text = "Status: loading ..."
|
|
Main.StatusMainForm.Text = "Status: loading ..."
|
|
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
|
|
End If
|
|
End If
|
|
|
|
End Sub
|
|
Private Sub StatusLabel_Click(sender As Object, e As EventArgs) Handles StatusLabel.Click
|
|
If StatusLabel.Text = "Status: items in queue, click to work off." Then
|
|
groupBox1.Visible = False
|
|
groupBox2.Visible = False
|
|
GroupBox3.Visible = True
|
|
pictureBox4.Image = My.Resources.add_mass_running_cancel
|
|
List_DL_Cancel = True
|
|
End If
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub TextBox2_Click(sender As Object, e As EventArgs) Handles textBox2.Click
|
|
If textBox2.Text = "Name of the Anime" Then
|
|
textBox2.Text = Nothing
|
|
End If
|
|
End Sub
|
|
|
|
|
|
Private Sub ListBox1_DoubleClick(sender As Object, e As EventArgs) Handles ListBox1.DoubleClick
|
|
ListBox1.Items.Remove(ListBox1.SelectedItem)
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
#End Region
|
|
|
|
Private Sub FillAoDDropDown()
|
|
For i As Integer = 0 To AoD_OmuList.Count - 1
|
|
Dim DropDownTitle As String() = AoD_OmuList(i).Split(New String() {My.Resources.AoD_Titel}, System.StringSplitOptions.RemoveEmptyEntries)
|
|
Dim DropDownTitle2 As String() = DropDownTitle(1).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
|
|
comboBox3.Items.Add(DropDownTitle2(0))
|
|
comboBox4.Items.Add(DropDownTitle2(0))
|
|
Next
|
|
End Sub
|
|
|
|
Public Sub Add_AoD()
|
|
Dim ProcessList As New List(Of String)
|
|
Dim Dub As Boolean = False
|
|
Dim RDY As Boolean = True
|
|
Dim Running As Integer = Main.RunningDownloads
|
|
Dim DlMax As Integer = Main.MaxDL
|
|
Dim Pfad2 As String = Main.Pfad
|
|
Dim c As Integer = 0
|
|
Dim SubExit As Boolean = False
|
|
Dim CB3 As Integer = 0
|
|
Dim CB4 As Integer = 0
|
|
Dim TargetReso As String = Main.Resu
|
|
Me.Invoke(New Action(Function()
|
|
'Main.StatusMainForm.Text = "Crunchyroll Downloader"
|
|
Pfad2 = Main.Pfad
|
|
TargetReso = Main.Resu
|
|
If ComboBox1.Enabled = False Then
|
|
|
|
If AoD_DubList.Count > 1 Then
|
|
For i As Integer = 0 To AoD_DubList.Count - 1
|
|
ProcessList.Add(AoD_DubList(i))
|
|
Next
|
|
Dub = True
|
|
ElseIf AoD_OmuList.Count > 1 Then
|
|
For i As Integer = 0 To AoD_OmuList.Count - 1
|
|
ProcessList.Add(AoD_OmuList(i))
|
|
Next
|
|
Else
|
|
MsgBox("error")
|
|
SubExit = True
|
|
End If
|
|
|
|
ElseIf ComboBox1.Text = "Dub" Then
|
|
For i As Integer = 0 To AoD_DubList.Count - 1
|
|
ProcessList.Add(AoD_DubList(i))
|
|
Next
|
|
|
|
ElseIf ComboBox1.Text = "OmU" Then
|
|
For i As Integer = 0 To AoD_OmuList.Count - 1
|
|
ProcessList.Add(AoD_OmuList(i))
|
|
Next
|
|
Else
|
|
MsgBox("error")
|
|
SubExit = True
|
|
|
|
|
|
End If
|
|
|
|
|
|
If comboBox4.SelectedIndex > comboBox3.SelectedIndex Or comboBox4.SelectedIndex = comboBox3.SelectedIndex Then
|
|
c = comboBox4.SelectedIndex - comboBox3.SelectedIndex + 1
|
|
Else
|
|
Dim TempCB3 As Integer = comboBox3.SelectedIndex
|
|
Dim TempCB4 As Integer = comboBox4.SelectedIndex
|
|
comboBox3.SelectedIndex = TempCB4
|
|
comboBox4.SelectedIndex = TempCB3
|
|
c = comboBox4.SelectedIndex - comboBox3.SelectedIndex + 1
|
|
End If
|
|
|
|
'MsgBox("00")
|
|
|
|
CB3 = comboBox3.SelectedIndex
|
|
CB4 = comboBox4.SelectedIndex
|
|
Return Nothing
|
|
End Function))
|
|
If SubExit = True Then
|
|
Exit Sub
|
|
End If
|
|
|
|
For i As Integer = CB3 To CB4
|
|
Dim ii As Integer = i
|
|
|
|
If Mass_DL_Cancel = True Then
|
|
Exit For
|
|
End If
|
|
For e As Integer = 0 To Integer.MaxValue
|
|
Thread.Sleep(2000)
|
|
|
|
If RDY = True Then
|
|
Try
|
|
Me.Invoke(New Action(Function()
|
|
Running = Main.RunningDownloads
|
|
DlMax = Main.MaxDL
|
|
Return Nothing
|
|
End Function))
|
|
Catch ex As Exception
|
|
Exit Sub
|
|
End Try
|
|
If DlMax > Running Then
|
|
RDY = False
|
|
|
|
Exit For
|
|
|
|
End If
|
|
End If
|
|
|
|
Next
|
|
|
|
Me.Invoke(New Action(Function()
|
|
Running = Main.RunningDownloads
|
|
DlMax = Main.MaxDL
|
|
Dim d As Integer = ii - CB3 + 1
|
|
Add_Display.Text = d.ToString + " / " + c.ToString
|
|
Main.StatusMainForm.Text = "Status: " + d.ToString + " / " + c.ToString ' looking for video file"
|
|
Return Nothing
|
|
End Function))
|
|
|
|
|
|
|
|
Dim AoDTitle1() As String = ProcessList.Item(i).Split(New String() {My.Resources.AoD_Titel}, System.StringSplitOptions.RemoveEmptyEntries)
|
|
Dim AoDTitle2() As String = AoDTitle1(1).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
|
|
Dim AoDTitle As String = AoDTitle2(0)
|
|
AoDTitle = System.Text.RegularExpressions.Regex.Replace(AoDTitle, "[^\w\\-]", " ").Trim(" ")
|
|
AoDTitle = Main.RemoveExtraSpaces(AoDTitle)
|
|
Dim DownloadPfad As String = Chr(34) + Pfad2 + "\" + AoDTitle + ".mp4" + Chr(34)
|
|
#Region "lösche doppel download"
|
|
|
|
Dim Pfad5 As String = DownloadPfad.Replace(Chr(34), "")
|
|
If My.Computer.FileSystem.FileExists(Pfad5) Then 'Pfad = Kompeltter Pfad mit Dateinamen + ENdung
|
|
Me.Invoke(New Action(Function()
|
|
Main.StatusMainForm.Text = "Status: File already exists."
|
|
Return Nothing
|
|
End Function))
|
|
|
|
If MessageBox.Show("The file " + Pfad5 + " already exists." + vbNewLine + "You want to override it?", "File exists!", MessageBoxButtons.OKCancel) = DialogResult.OK Then
|
|
Try
|
|
My.Computer.FileSystem.DeleteFile(Pfad5)
|
|
Me.Invoke(New Action(Function()
|
|
Main.StatusMainForm.Text = "Status: Old file overwritten."
|
|
Return Nothing
|
|
End Function))
|
|
|
|
Catch ex As Exception
|
|
End Try
|
|
Else
|
|
Me.Invoke(New Action(Function()
|
|
Main.StatusMainForm.Text = "Crunchyroll Downloader"
|
|
Return Nothing
|
|
End Function))
|
|
|
|
Continue For
|
|
Exit Sub
|
|
End If
|
|
|
|
End If
|
|
#End Region
|
|
Dim AoDThumbnail1() As String = ProcessList.Item(i).Split(New String() {My.Resources.AoD_Image}, System.StringSplitOptions.RemoveEmptyEntries)
|
|
Dim AoDThumbnail2() As String = AoDThumbnail1(1).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
|
|
Dim AoDThumbnail As String = AoDThumbnail2(0)
|
|
Dim AoDTm3u8() As String = ProcessList.Item(i).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
|
|
Dim m3u8_Master_url As String = AoDTm3u8(0).Replace("&", "&").Replace("/u0026", "&").Replace("\u002F", "/").Replace("\u0026", "&")
|
|
Dim m3u8_url As String = Nothing
|
|
Dim m3u8_url_Temp As String = Nothing
|
|
|
|
Dim client As New WebClient
|
|
client.Encoding = System.Text.Encoding.UTF8
|
|
Dim text As String = client.DownloadString(m3u8_Master_url)
|
|
If InStr(text, "RESOLUTION=") Then 'master m3u8 no fragments
|
|
Dim new_m3u8() As String = text.Split(New String() {vbLf}, System.StringSplitOptions.RemoveEmptyEntries)
|
|
If TargetReso = 42 Then
|
|
m3u8_url = m3u8_Master_url
|
|
End If
|
|
|
|
For i2 As Integer = 0 To new_m3u8.Count - 1
|
|
'MsgBox("x" + Main.Resu.ToString)
|
|
If CBool(InStr(new_m3u8(i2), "x" + TargetReso.ToString)) = True Then
|
|
m3u8_url_Temp = new_m3u8(i2 + 1)
|
|
Exit For
|
|
End If
|
|
Next
|
|
If InStr(m3u8_url_Temp, "https://") Then
|
|
m3u8_url = m3u8_url_Temp
|
|
Else
|
|
Dim d() As String = New Uri(m3u8_Master_url).Segments
|
|
Dim path As String = "https://" + New Uri(m3u8_Master_url).Host
|
|
For i3 As Integer = 0 To d.Count - 2
|
|
path = path + d(i3)
|
|
Next
|
|
m3u8_url = path + m3u8_url_Temp
|
|
'MsgBox(m3u8_url_1)
|
|
|
|
End If
|
|
|
|
End If
|
|
|
|
|
|
Dim AoDm3u8Final As String = "-i " + Chr(34) + m3u8_url + Chr(34) + " " + Main.ffmpeg_command
|
|
|
|
|
|
Dim L1Name As String = "anime-on-demand.de" 'L1Name_Split(1).Replace("www.", "") + " | Dub : " + FunimationDub
|
|
Me.Invoke(New Action(Function()
|
|
Main.ListItemAdd(Pfad2, L1Name, AoDTitle, "[Auto]", "Unknown", "None", AoDThumbnail, AoDm3u8Final, DownloadPfad)
|
|
Return Nothing
|
|
End Function))
|
|
Main.liList.Add(My.Resources.htmlvorThumbnail + AoDThumbnail + My.Resources.htmlnachTumbnail + "<br>" + AoDTitle + My.Resources.htmlvorAufloesung + "[Auto]" + My.Resources.htmlvorSoftSubs + vbNewLine + "None" + My.Resources.htmlvorHardSubs + "null" + My.Resources.htmlnachHardSubs + "<!-- " + AoDTitle + "-->")
|
|
|
|
|
|
|
|
|
|
RDY = True
|
|
|
|
Next
|
|
|
|
'#Region "SubsToMP4"
|
|
' If UsedSub = Nothing Then
|
|
' If FunimationDub = "japanese" Then
|
|
' Dim DubMetatata As String = " -metadata:s:a:0 language=jpn"
|
|
' Funimation_m3u8_final = "-i " + Chr(34) + Funimation_m3u8_final + Chr(34) + DubMetatata + " " + ffmpeg_command
|
|
' Else
|
|
' Dim DubMetatata As String = " -metadata:s:a:0 language=eng"
|
|
' Funimation_m3u8_final = "-i " + Chr(34) + Funimation_m3u8_final + Chr(34) + DubMetatata + " " + ffmpeg_command
|
|
' End If
|
|
' ElseIf HardSubFunimation = True Then
|
|
' Dim ffmpeg_hardsub As String = Nothing
|
|
' If InStr(ffmpeg_command, "-c copy") Then
|
|
' ffmpeg_hardsub = "-bsf:a aac_adtstoasc"
|
|
' Else
|
|
' ffmpeg_hardsub = ffmpeg_command
|
|
' End If
|
|
' If UsedSub = Nothing Then
|
|
' Else
|
|
' If FunimationDub = "japanese" Then
|
|
' Dim DubMetatata As String = " -metadata:s:a:0 language=jpn"
|
|
' Funimation_m3u8_final = "-i " + Chr(34) + Funimation_m3u8_final + Chr(34) + " -vf subtitles=" + Chr(34) + UsedSub + Chr(34) + " " + ffmpeg_hardsub
|
|
' Else
|
|
' Dim DubMetatata As String = " -metadata:s:a:0 language=eng"
|
|
' Funimation_m3u8_final = "-i " + Chr(34) + Funimation_m3u8_final + Chr(34) + " -vf subtitles=" + Chr(34) + UsedSub + Chr(34) + " " + ffmpeg_hardsub
|
|
' End If
|
|
' End If
|
|
' 'MsgBox(Funimation_m3u8_final)
|
|
' ElseIf MergeSubstoMP4 = True Then
|
|
' If UsedSub = Nothing Then
|
|
' Else
|
|
' Dim DubMetatata As String = " -metadata:s:a:0 language=jpn"
|
|
' If FunimationDub = "japanese" Then
|
|
' DubMetatata = " -metadata:s:a:0 language=jpn"
|
|
' 'Funimation_m3u8_final = "-i " + Chr(34) + Funimation_m3u8_final + Chr(34) + DubMetatata + " " + ffmpeg_command
|
|
' Else
|
|
' DubMetatata = " -metadata:s:a:0 language=eng"
|
|
' 'Funimation_m3u8_final = "-i " + Chr(34) + Funimation_m3u8_final + Chr(34) + DubMetatata + " " + ffmpeg_command
|
|
' End If
|
|
|
|
' Dim SoftSubMergeURLs As String = " -headers " + My.Resources.ffmpeg_user_agend + " -i " + Chr(34) + UsedSub + Chr(34)
|
|
' Dim SoftSubMergeMaps As String = " -map 0:v -map 0:a -map 1"
|
|
' Dim SoftSubMergeMetatata As String = " -metadata:s:s:0 language=eng"
|
|
' Funimation_m3u8_final = "-i " + Chr(34) + Funimation_m3u8_final + Chr(34) + SoftSubMergeURLs + SoftSubMergeMaps + " " + ffmpeg_command + " -c:s mov_text" + SoftSubMergeMetatata + DubMetatata
|
|
' End If
|
|
' Else
|
|
' If FunimationDub = "japanese" Then
|
|
' Dim DubMetatata As String = " -metadata:s:a:0 language=jpn"
|
|
' Funimation_m3u8_final = "-i " + Chr(34) + Funimation_m3u8_final + Chr(34) + DubMetatata + " " + ffmpeg_command
|
|
' Else
|
|
' Dim DubMetatata As String = " -metadata:s:a:0 language=eng"
|
|
' Funimation_m3u8_final = "-i " + Chr(34) + Funimation_m3u8_final + Chr(34) + DubMetatata + " " + ffmpeg_command
|
|
' End If
|
|
|
|
' End If
|
|
|
|
'#End Region
|
|
' 'MsgBox(Funimation_m3u8_final)
|
|
' 'DownloadPfad = DownloadPfad.Replace(" \", "\")
|
|
' DownloadPfad = RemoveExtraSpaces(DownloadPfad)
|
|
' Dim L1Name_Split As String() = WebbrowserURL.Split(New String() {"/"}, System.StringSplitOptions.RemoveEmptyEntries)
|
|
' Dim L1Name As String = L1Name_Split(1).Replace("www.", "") + " | Dub : " + FunimationDub
|
|
' Me.Invoke(New Action(Function()
|
|
' ListItemAdd(Pfad_DL, L1Name, DefaultName, ResoHTMLDisplay, "Unknown", SubValuesToDisplay(), thumbnail3, Funimation_m3u8_final, Chr(34) + DownloadPfad + Chr(34))
|
|
' Return Nothing
|
|
' End Function))
|
|
' liList.Add(My.Resources.htmlvorThumbnail + thumbnail3 + My.Resources.htmlnachTumbnail + FunimationTitle + " <br> " + FunimationSeason + " " + FunimationEpisode + My.Resources.htmlvorAufloesung + ResoHTMLDisplay + My.Resources.htmlvorSoftSubs + vbNewLine + SubValuesToDisplay() + My.Resources.htmlvorHardSubs + "null" + My.Resources.htmlnachHardSubs + "<!-- " + DefaultName + "-->")
|
|
|
|
'#End Region
|
|
|
|
' Catch ex As Exception
|
|
' Me.Invoke(New Action(Function()
|
|
' StatusMainForm.Text = "Crunchyroll Downloader!"
|
|
' Return Nothing
|
|
' End Function))
|
|
|
|
' MsgBox(ex.ToString)
|
|
' End Try
|
|
' Funimation_Grapp_RDY = True
|
|
End Sub
|
|
End Class |