mirror of
https://github.com/hama3254/Crunchyroll-Downloader-v3.0.git
synced 2025-01-25 22:51:23 +01:00
subs only, network scan improvement
improved network scan subs only mode is now an option in the "Add Video" window removed subtitle only download for Crunchyroll from the settings
This commit is contained in:
hama3254
parent
dc444e5c28
commit
6ed4a31d19
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
96
Crunchyroll Downloader/Anime_Add.Designer.vb
generated
96
Crunchyroll Downloader/Anime_Add.Designer.vb
generated
@ -26,6 +26,7 @@ Partial Class Anime_Add
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Anime_Add))
|
||||
Me.groupBox1 = New System.Windows.Forms.GroupBox()
|
||||
Me.SubTitlesOnlyCB = New MetroFramework.Controls.MetroComboBox()
|
||||
Me.StatusLabel = New MetroFramework.Controls.MetroLabel()
|
||||
Me.ComboBox2 = New MetroFramework.Controls.MetroComboBox()
|
||||
Me.TextBox4 = New MetroFramework.Controls.MetroTextBox()
|
||||
@ -56,17 +57,33 @@ Partial Class Anime_Add
|
||||
'groupBox1
|
||||
'
|
||||
Me.groupBox1.BackColor = System.Drawing.Color.Transparent
|
||||
Me.groupBox1.Controls.Add(Me.SubTitlesOnlyCB)
|
||||
Me.groupBox1.Controls.Add(Me.StatusLabel)
|
||||
Me.groupBox1.Controls.Add(Me.ComboBox2)
|
||||
Me.groupBox1.Controls.Add(Me.TextBox4)
|
||||
Me.groupBox1.Controls.Add(Me.textBox1)
|
||||
Me.groupBox1.Controls.Add(Me.textBox2)
|
||||
Me.groupBox1.Location = New System.Drawing.Point(3, 63)
|
||||
Me.groupBox1.Location = New System.Drawing.Point(15, 70)
|
||||
Me.groupBox1.Name = "groupBox1"
|
||||
Me.groupBox1.Size = New System.Drawing.Size(620, 162)
|
||||
Me.groupBox1.Size = New System.Drawing.Size(720, 280)
|
||||
Me.groupBox1.TabIndex = 33
|
||||
Me.groupBox1.TabStop = False
|
||||
'
|
||||
'SubTitlesOnlyCB
|
||||
'
|
||||
Me.SubTitlesOnlyCB.BackColor = System.Drawing.Color.White
|
||||
Me.SubTitlesOnlyCB.Font = New System.Drawing.Font("Arial", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.SubTitlesOnlyCB.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
|
||||
Me.SubTitlesOnlyCB.FormattingEnabled = True
|
||||
Me.SubTitlesOnlyCB.ItemHeight = 23
|
||||
Me.SubTitlesOnlyCB.Items.AddRange(New Object() {"[Default]", "[Subtitles only]"})
|
||||
Me.SubTitlesOnlyCB.Location = New System.Drawing.Point(18, 190)
|
||||
Me.SubTitlesOnlyCB.Name = "SubTitlesOnlyCB"
|
||||
Me.SubTitlesOnlyCB.Size = New System.Drawing.Size(693, 29)
|
||||
Me.SubTitlesOnlyCB.Sorted = True
|
||||
Me.SubTitlesOnlyCB.TabIndex = 39
|
||||
Me.SubTitlesOnlyCB.UseSelectable = True
|
||||
'
|
||||
'StatusLabel
|
||||
'
|
||||
Me.StatusLabel.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
|
||||
@ -76,9 +93,9 @@ Partial Class Anime_Add
|
||||
Me.StatusLabel.FontSize = MetroFramework.MetroLabelSize.Tall
|
||||
Me.StatusLabel.FontWeight = MetroFramework.MetroLabelWeight.Regular
|
||||
Me.StatusLabel.ForeColor = System.Drawing.SystemColors.InactiveCaptionText
|
||||
Me.StatusLabel.Location = New System.Drawing.Point(18, 127)
|
||||
Me.StatusLabel.Location = New System.Drawing.Point(18, 228)
|
||||
Me.StatusLabel.Name = "StatusLabel"
|
||||
Me.StatusLabel.Size = New System.Drawing.Size(593, 29)
|
||||
Me.StatusLabel.Size = New System.Drawing.Size(693, 46)
|
||||
Me.StatusLabel.TabIndex = 38
|
||||
Me.StatusLabel.Text = "Status: idle"
|
||||
Me.StatusLabel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
@ -90,9 +107,9 @@ Partial Class Anime_Add
|
||||
Me.ComboBox2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
|
||||
Me.ComboBox2.FormattingEnabled = True
|
||||
Me.ComboBox2.ItemHeight = 23
|
||||
Me.ComboBox2.Location = New System.Drawing.Point(18, 98)
|
||||
Me.ComboBox2.Location = New System.Drawing.Point(18, 148)
|
||||
Me.ComboBox2.Name = "ComboBox2"
|
||||
Me.ComboBox2.Size = New System.Drawing.Size(584, 29)
|
||||
Me.ComboBox2.Size = New System.Drawing.Size(693, 29)
|
||||
Me.ComboBox2.Sorted = True
|
||||
Me.ComboBox2.TabIndex = 37
|
||||
Me.ComboBox2.UseSelectable = True
|
||||
@ -105,17 +122,18 @@ Partial Class Anime_Add
|
||||
'
|
||||
'
|
||||
Me.TextBox4.CustomButton.Image = Nothing
|
||||
Me.TextBox4.CustomButton.Location = New System.Drawing.Point(565, 2)
|
||||
Me.TextBox4.CustomButton.Location = New System.Drawing.Point(665, 1)
|
||||
Me.TextBox4.CustomButton.Name = ""
|
||||
Me.TextBox4.CustomButton.Size = New System.Drawing.Size(17, 17)
|
||||
Me.TextBox4.CustomButton.Size = New System.Drawing.Size(27, 27)
|
||||
Me.TextBox4.CustomButton.Style = MetroFramework.MetroColorStyle.Blue
|
||||
Me.TextBox4.CustomButton.TabIndex = 1
|
||||
Me.TextBox4.CustomButton.Theme = MetroFramework.MetroThemeStyle.Light
|
||||
Me.TextBox4.CustomButton.UseSelectable = True
|
||||
Me.TextBox4.CustomButton.Visible = False
|
||||
Me.TextBox4.FontSize = MetroFramework.MetroTextBoxSize.Medium
|
||||
Me.TextBox4.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
|
||||
Me.TextBox4.Lines = New String() {"Main Directory"}
|
||||
Me.TextBox4.Location = New System.Drawing.Point(18, 70)
|
||||
Me.TextBox4.Location = New System.Drawing.Point(18, 106)
|
||||
Me.TextBox4.MaxLength = 32767
|
||||
Me.TextBox4.Name = "TextBox4"
|
||||
Me.TextBox4.PasswordChar = Global.Microsoft.VisualBasic.ChrW(0)
|
||||
@ -125,7 +143,7 @@ Partial Class Anime_Add
|
||||
Me.TextBox4.SelectionLength = 0
|
||||
Me.TextBox4.SelectionStart = 0
|
||||
Me.TextBox4.ShortcutsEnabled = True
|
||||
Me.TextBox4.Size = New System.Drawing.Size(585, 22)
|
||||
Me.TextBox4.Size = New System.Drawing.Size(693, 29)
|
||||
Me.TextBox4.TabIndex = 36
|
||||
Me.TextBox4.TabStop = False
|
||||
Me.TextBox4.Text = "Main Directory"
|
||||
@ -142,17 +160,18 @@ Partial Class Anime_Add
|
||||
'
|
||||
'
|
||||
Me.textBox1.CustomButton.Image = Nothing
|
||||
Me.textBox1.CustomButton.Location = New System.Drawing.Point(565, 2)
|
||||
Me.textBox1.CustomButton.Location = New System.Drawing.Point(665, 1)
|
||||
Me.textBox1.CustomButton.Name = ""
|
||||
Me.textBox1.CustomButton.Size = New System.Drawing.Size(17, 17)
|
||||
Me.textBox1.CustomButton.Size = New System.Drawing.Size(27, 27)
|
||||
Me.textBox1.CustomButton.Style = MetroFramework.MetroColorStyle.Blue
|
||||
Me.textBox1.CustomButton.TabIndex = 1
|
||||
Me.textBox1.CustomButton.Theme = MetroFramework.MetroThemeStyle.Light
|
||||
Me.textBox1.CustomButton.UseSelectable = True
|
||||
Me.textBox1.CustomButton.Visible = False
|
||||
Me.textBox1.FontSize = MetroFramework.MetroTextBoxSize.Medium
|
||||
Me.textBox1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
|
||||
Me.textBox1.Lines = New String() {"URL"}
|
||||
Me.textBox1.Location = New System.Drawing.Point(18, 14)
|
||||
Me.textBox1.Location = New System.Drawing.Point(18, 22)
|
||||
Me.textBox1.MaxLength = 32767
|
||||
Me.textBox1.Name = "textBox1"
|
||||
Me.textBox1.PasswordChar = Global.Microsoft.VisualBasic.ChrW(0)
|
||||
@ -161,7 +180,7 @@ Partial Class Anime_Add
|
||||
Me.textBox1.SelectionLength = 0
|
||||
Me.textBox1.SelectionStart = 0
|
||||
Me.textBox1.ShortcutsEnabled = True
|
||||
Me.textBox1.Size = New System.Drawing.Size(585, 22)
|
||||
Me.textBox1.Size = New System.Drawing.Size(693, 29)
|
||||
Me.textBox1.TabIndex = 4
|
||||
Me.textBox1.TabStop = False
|
||||
Me.textBox1.Text = "URL"
|
||||
@ -178,17 +197,18 @@ Partial Class Anime_Add
|
||||
'
|
||||
'
|
||||
Me.textBox2.CustomButton.Image = Nothing
|
||||
Me.textBox2.CustomButton.Location = New System.Drawing.Point(565, 2)
|
||||
Me.textBox2.CustomButton.Location = New System.Drawing.Point(665, 1)
|
||||
Me.textBox2.CustomButton.Name = ""
|
||||
Me.textBox2.CustomButton.Size = New System.Drawing.Size(17, 17)
|
||||
Me.textBox2.CustomButton.Size = New System.Drawing.Size(27, 27)
|
||||
Me.textBox2.CustomButton.Style = MetroFramework.MetroColorStyle.Blue
|
||||
Me.textBox2.CustomButton.TabIndex = 1
|
||||
Me.textBox2.CustomButton.Theme = MetroFramework.MetroThemeStyle.Light
|
||||
Me.textBox2.CustomButton.UseSelectable = True
|
||||
Me.textBox2.CustomButton.Visible = False
|
||||
Me.textBox2.FontSize = MetroFramework.MetroTextBoxSize.Medium
|
||||
Me.textBox2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
|
||||
Me.textBox2.Lines = New String() {"Name of the Anime"}
|
||||
Me.textBox2.Location = New System.Drawing.Point(18, 42)
|
||||
Me.textBox2.Location = New System.Drawing.Point(18, 64)
|
||||
Me.textBox2.MaxLength = 32767
|
||||
Me.textBox2.Name = "textBox2"
|
||||
Me.textBox2.PasswordChar = Global.Microsoft.VisualBasic.ChrW(0)
|
||||
@ -197,7 +217,7 @@ Partial Class Anime_Add
|
||||
Me.textBox2.SelectionLength = 0
|
||||
Me.textBox2.SelectionStart = 0
|
||||
Me.textBox2.ShortcutsEnabled = True
|
||||
Me.textBox2.Size = New System.Drawing.Size(585, 22)
|
||||
Me.textBox2.Size = New System.Drawing.Size(693, 29)
|
||||
Me.textBox2.TabIndex = 5
|
||||
Me.textBox2.TabStop = False
|
||||
Me.textBox2.Text = "Name of the Anime"
|
||||
@ -211,7 +231,7 @@ Partial Class Anime_Add
|
||||
Me.pictureBox4.BackColor = System.Drawing.Color.Transparent
|
||||
Me.pictureBox4.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.pictureBox4.Image = Global.Crunchyroll_Downloader.My.Resources.Resources.main_button_download_default
|
||||
Me.pictureBox4.Location = New System.Drawing.Point(46, 231)
|
||||
Me.pictureBox4.Location = New System.Drawing.Point(106, 377)
|
||||
Me.pictureBox4.Name = "pictureBox4"
|
||||
Me.pictureBox4.Size = New System.Drawing.Size(538, 50)
|
||||
Me.pictureBox4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
|
||||
@ -226,9 +246,9 @@ Partial Class Anime_Add
|
||||
Me.groupBox2.Controls.Add(Me.comboBox3)
|
||||
Me.groupBox2.Controls.Add(Me.PictureBox1)
|
||||
Me.groupBox2.Controls.Add(Me.Add_Display)
|
||||
Me.groupBox2.Location = New System.Drawing.Point(3, 63)
|
||||
Me.groupBox2.Location = New System.Drawing.Point(15, 70)
|
||||
Me.groupBox2.Name = "groupBox2"
|
||||
Me.groupBox2.Size = New System.Drawing.Size(620, 162)
|
||||
Me.groupBox2.Size = New System.Drawing.Size(720, 280)
|
||||
Me.groupBox2.TabIndex = 44
|
||||
Me.groupBox2.TabStop = False
|
||||
Me.groupBox2.Visible = False
|
||||
@ -238,9 +258,9 @@ Partial Class Anime_Add
|
||||
Me.comboBox4.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.comboBox4.FormattingEnabled = True
|
||||
Me.comboBox4.ItemHeight = 23
|
||||
Me.comboBox4.Location = New System.Drawing.Point(24, 83)
|
||||
Me.comboBox4.Location = New System.Drawing.Point(13, 154)
|
||||
Me.comboBox4.Name = "comboBox4"
|
||||
Me.comboBox4.Size = New System.Drawing.Size(585, 29)
|
||||
Me.comboBox4.Size = New System.Drawing.Size(693, 29)
|
||||
Me.comboBox4.TabIndex = 2
|
||||
Me.comboBox4.UseSelectable = True
|
||||
'
|
||||
@ -249,9 +269,9 @@ Partial Class Anime_Add
|
||||
Me.ComboBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.ComboBox1.FormattingEnabled = True
|
||||
Me.ComboBox1.ItemHeight = 23
|
||||
Me.ComboBox1.Location = New System.Drawing.Point(24, 19)
|
||||
Me.ComboBox1.Location = New System.Drawing.Point(13, 50)
|
||||
Me.ComboBox1.Name = "ComboBox1"
|
||||
Me.ComboBox1.Size = New System.Drawing.Size(585, 29)
|
||||
Me.ComboBox1.Size = New System.Drawing.Size(693, 29)
|
||||
Me.ComboBox1.TabIndex = 1
|
||||
Me.ComboBox1.UseSelectable = True
|
||||
'
|
||||
@ -260,9 +280,9 @@ Partial Class Anime_Add
|
||||
Me.comboBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.comboBox3.FormattingEnabled = True
|
||||
Me.comboBox3.ItemHeight = 23
|
||||
Me.comboBox3.Location = New System.Drawing.Point(24, 51)
|
||||
Me.comboBox3.Location = New System.Drawing.Point(13, 102)
|
||||
Me.comboBox3.Name = "comboBox3"
|
||||
Me.comboBox3.Size = New System.Drawing.Size(585, 29)
|
||||
Me.comboBox3.Size = New System.Drawing.Size(693, 29)
|
||||
Me.comboBox3.TabIndex = 1
|
||||
Me.comboBox3.UseSelectable = True
|
||||
'
|
||||
@ -271,7 +291,7 @@ Partial Class Anime_Add
|
||||
Me.PictureBox1.BackColor = System.Drawing.Color.Transparent
|
||||
Me.PictureBox1.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.PictureBox1.Image = Global.Crunchyroll_Downloader.My.Resources.Resources.add_mass_cancel
|
||||
Me.PictureBox1.Location = New System.Drawing.Point(113, 117)
|
||||
Me.PictureBox1.Location = New System.Drawing.Point(159, 231)
|
||||
Me.PictureBox1.Name = "PictureBox1"
|
||||
Me.PictureBox1.Size = New System.Drawing.Size(403, 36)
|
||||
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
|
||||
@ -287,9 +307,9 @@ Partial Class Anime_Add
|
||||
Me.Add_Display.FontSize = MetroFramework.MetroLabelSize.Tall
|
||||
Me.Add_Display.FontWeight = MetroFramework.MetroLabelWeight.Regular
|
||||
Me.Add_Display.ForeColor = System.Drawing.Color.Black
|
||||
Me.Add_Display.Location = New System.Drawing.Point(20, 114)
|
||||
Me.Add_Display.Location = New System.Drawing.Point(20, 228)
|
||||
Me.Add_Display.Name = "Add_Display"
|
||||
Me.Add_Display.Size = New System.Drawing.Size(591, 38)
|
||||
Me.Add_Display.Size = New System.Drawing.Size(691, 42)
|
||||
Me.Add_Display.TabIndex = 36
|
||||
Me.Add_Display.Text = "..."
|
||||
Me.Add_Display.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
@ -298,9 +318,9 @@ Partial Class Anime_Add
|
||||
'
|
||||
Me.GroupBox3.BackColor = System.Drawing.Color.Transparent
|
||||
Me.GroupBox3.Controls.Add(Me.ListBox1)
|
||||
Me.GroupBox3.Location = New System.Drawing.Point(3, 63)
|
||||
Me.GroupBox3.Location = New System.Drawing.Point(15, 70)
|
||||
Me.GroupBox3.Name = "GroupBox3"
|
||||
Me.GroupBox3.Size = New System.Drawing.Size(620, 162)
|
||||
Me.GroupBox3.Size = New System.Drawing.Size(720, 280)
|
||||
Me.GroupBox3.TabIndex = 46
|
||||
Me.GroupBox3.TabStop = False
|
||||
Me.GroupBox3.Visible = False
|
||||
@ -308,11 +328,12 @@ Partial Class Anime_Add
|
||||
'ListBox1
|
||||
'
|
||||
Me.ListBox1.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(243, Byte), Integer), CType(CType(243, Byte), Integer))
|
||||
Me.ListBox1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.ListBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.ListBox1.FormattingEnabled = True
|
||||
Me.ListBox1.Location = New System.Drawing.Point(3, 16)
|
||||
Me.ListBox1.ItemHeight = 15
|
||||
Me.ListBox1.Location = New System.Drawing.Point(13, 18)
|
||||
Me.ListBox1.Name = "ListBox1"
|
||||
Me.ListBox1.Size = New System.Drawing.Size(614, 143)
|
||||
Me.ListBox1.Size = New System.Drawing.Size(693, 244)
|
||||
Me.ListBox1.TabIndex = 0
|
||||
'
|
||||
'Timer1
|
||||
@ -358,13 +379,13 @@ Partial Class Anime_Add
|
||||
Me.ApplyImageInvert = True
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
|
||||
Me.BorderStyle = MetroFramework.Forms.MetroFormBorderStyle.FixedSingle
|
||||
Me.ClientSize = New System.Drawing.Size(630, 300)
|
||||
Me.ClientSize = New System.Drawing.Size(750, 450)
|
||||
Me.Controls.Add(Me.Btn_min)
|
||||
Me.Controls.Add(Me.Btn_Close)
|
||||
Me.Controls.Add(Me.pictureBox4)
|
||||
Me.Controls.Add(Me.groupBox2)
|
||||
Me.Controls.Add(Me.groupBox1)
|
||||
Me.Controls.Add(Me.GroupBox3)
|
||||
Me.Controls.Add(Me.groupBox2)
|
||||
Me.Name = "Anime_Add"
|
||||
Me.Padding = New System.Windows.Forms.Padding(10, 60, 20, 20)
|
||||
Me.Text = "Add Video"
|
||||
@ -399,4 +420,5 @@ Partial Class Anime_Add
|
||||
Public WithEvents comboBox3 As MetroFramework.Controls.MetroComboBox
|
||||
Private WithEvents Btn_min As PictureBox
|
||||
Private WithEvents Btn_Close As PictureBox
|
||||
Public WithEvents SubTitlesOnlyCB As MetroFramework.Controls.MetroComboBox
|
||||
End Class
|
||||
|
||||
@ -43,7 +43,7 @@ Public Class Anime_Add
|
||||
|
||||
|
||||
Private Sub Anime_Add_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
|
||||
SubTitlesOnlyCB.SelectedIndex = 0
|
||||
Manager.Owner = Me
|
||||
Me.StyleManager = Manager
|
||||
Btn_Close.Image = Main.CloseImg
|
||||
@ -148,6 +148,11 @@ Public Class Anime_Add
|
||||
Private Sub PictureBox4_Click(sender As Object, e As EventArgs) Handles pictureBox4.Click
|
||||
'pictureBox4.Enabled = False
|
||||
Main.LoginOnly = "Download Mode!"
|
||||
If SubTitlesOnlyCB.Text = "[Default]" Then
|
||||
Main.SubsOnly = False
|
||||
Else
|
||||
Main.SubsOnly = True
|
||||
End If
|
||||
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
|
||||
@ -223,6 +228,11 @@ Public Class Anime_Add
|
||||
End If
|
||||
End If
|
||||
ElseIf CBool(InStr(textBox1.Text, "anime-on-demand.de")) Then
|
||||
If Main.SubsOnly = True Then
|
||||
MsgBox("Anime on Demand wird nicht im [Subtitles only] modus unterstützt" + vbNewLine + "Normaler Download modus ist aktiv!", MsgBoxStyle.Information)
|
||||
Main.SubsOnly = False
|
||||
SubTitlesOnlyCB.Text = "[Default]"
|
||||
End If
|
||||
Main.b = False
|
||||
AoD_DubList.Clear()
|
||||
AoD_OmUList.Clear()
|
||||
@ -746,6 +756,7 @@ Public Class Anime_Add
|
||||
Main.Text = "Status: Website error"
|
||||
Me.StatusLabel.Text = "Status: no video found"
|
||||
Return Nothing
|
||||
Main.Funimation_Grapp_RDY = True
|
||||
End Function))
|
||||
|
||||
Else
|
||||
@ -753,6 +764,8 @@ Public Class Anime_Add
|
||||
Me.Invoke(New Action(Function()
|
||||
Main.Text = "Status: no video found"
|
||||
Me.StatusLabel.Text = "Status: no video found"
|
||||
My.Computer.FileSystem.WriteAllText(Application.StartupPath + "funimation.log", HTMLString, True)
|
||||
Main.Funimation_Grapp_RDY = True
|
||||
Return Nothing
|
||||
End Function))
|
||||
|
||||
@ -760,6 +773,8 @@ Public Class Anime_Add
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.ToString)
|
||||
|
||||
Main.Funimation_Grapp_RDY = True
|
||||
Exit Sub
|
||||
End Try
|
||||
|
||||
@ -1359,5 +1374,11 @@ Public Class Anime_Add
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub SubTitlesOnlyCB_SelectedIndexChanged(sender As Object, e As EventArgs) Handles SubTitlesOnlyCB.SelectedIndexChanged
|
||||
If SubTitlesOnlyCB.Text = "[Default]" Then
|
||||
Main.SubsOnly = False
|
||||
Else
|
||||
Main.SubsOnly = True
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
@ -423,8 +423,18 @@ Public Class CRD_List_Item
|
||||
HistoryDL_URL = DL_URL
|
||||
HistoryDL_Pfad = DL_Pfad
|
||||
HistoryFilename = Filename
|
||||
If InStr(DL_URL, "-i [Subtitles only]") Then
|
||||
Me.Invoke(New Action(Function()
|
||||
|
||||
If DownloadHybridMode = True Then
|
||||
ProgressBar1.Value = 100
|
||||
Label_percent.Text = "selected subtiles have been dowloaded"
|
||||
Canceld = True
|
||||
PlaybackVideoFileToolStripMenuItem.Enabled = False
|
||||
LogTocClipboard.Enabled = False
|
||||
SaveToFile.Enabled = False
|
||||
Return Nothing
|
||||
End Function))
|
||||
ElseIf DownloadHybridMode = True Then
|
||||
Dim Evaluator = New Thread(Sub() DownloadHybrid(DL_URL, DL_Pfad, Filename))
|
||||
Evaluator.Start()
|
||||
HybridMode = True
|
||||
@ -470,7 +480,7 @@ Public Class CRD_List_Item
|
||||
End If
|
||||
|
||||
|
||||
Debug.WriteLine("Download error #2: " + DL_Pfad + vbNewLine + ex.ToString + vbNewLine + DL_URL)
|
||||
Debug.WriteLine("Download error #2: " + DL_Pfad + vbNewLine + ex2.ToString + vbNewLine + DL_URL)
|
||||
End Try
|
||||
End Try
|
||||
|
||||
|
||||
@ -96,18 +96,11 @@ Public Class GeckoFX
|
||||
Main.WebbrowserTitle = WebBrowser1.DocumentTitle
|
||||
Main.WebbrowserHeadText = WebBrowser1.Document.Head.InnerHtml
|
||||
Main.b = True
|
||||
If Main.d = False Then
|
||||
Main.d = True
|
||||
t = New Thread(AddressOf Main.DownloadSubsOnly)
|
||||
t.Priority = ThreadPriority.Normal
|
||||
t.IsBackground = True
|
||||
t.Start()
|
||||
Else
|
||||
|
||||
t = New Thread(AddressOf Main.GrappURL)
|
||||
t.Priority = ThreadPriority.Normal
|
||||
t.IsBackground = True
|
||||
t.Start()
|
||||
End If
|
||||
|
||||
|
||||
|
||||
@ -118,13 +111,9 @@ Public Class GeckoFX
|
||||
Main.WebbrowserText = WebBrowser1.Document.Body.OuterHtml
|
||||
Main.WebbrowserTitle = WebBrowser1.DocumentTitle
|
||||
Main.WebbrowserHeadText = WebBrowser1.Document.Head.InnerHtml
|
||||
If Main.d = False Then
|
||||
Main.d = True
|
||||
Main.SeasonDropdownGrappSubs()
|
||||
Einstellungen.StatusLabel.Text = "Status: Multi Download detected!"
|
||||
Else
|
||||
|
||||
Main.SeasonDropdownGrapp()
|
||||
End If
|
||||
|
||||
ElseIf CBool(InStr(WebBrowser1.Document.Body.OuterHtml, "wrapper container-shadow hover-classes")) Then
|
||||
Main.b = True
|
||||
Anime_Add.textBox2.Text = "Name of the Anime"
|
||||
@ -132,14 +121,7 @@ Public Class GeckoFX
|
||||
Main.WebbrowserText = WebBrowser1.Document.Body.OuterHtml
|
||||
Main.WebbrowserTitle = WebBrowser1.DocumentTitle
|
||||
Main.WebbrowserHeadText = WebBrowser1.Document.Head.InnerHtml
|
||||
If Main.d = False Then
|
||||
Main.d = True
|
||||
Main.MassGrappSubs()
|
||||
Einstellungen.StatusLabel.Text = "Status: Multi Download detected!"
|
||||
|
||||
Else
|
||||
Main.MassGrapp()
|
||||
End If
|
||||
Else
|
||||
Main.b = True
|
||||
MsgBox(Main.No_Stream, MsgBoxStyle.OkOnly)
|
||||
@ -286,8 +268,9 @@ Public Class GeckoFX
|
||||
|
||||
|
||||
If InStr(RequestURL, ".m3u8") Then
|
||||
|
||||
MsgBox(RequestURL)
|
||||
Dim str0 As String = client0.DownloadString(RequestURL)
|
||||
MsgBox(str0)
|
||||
If InStr(str0, "#EXTM3U") Then
|
||||
Main.m3u8List.Add(RequestURL)
|
||||
|
||||
@ -671,8 +654,21 @@ Public Class GeckoFX
|
||||
If InStr(RequestURL, ".m3u8") Then
|
||||
|
||||
Dim str0 As String = client0.DownloadString(RequestURL)
|
||||
|
||||
If InStr(str0, "#EXTM3U") Then
|
||||
Main.m3u8List.Add(RequestURL)
|
||||
Else
|
||||
Dim DecodedUrl As String = UrlDecode(RequestURL)
|
||||
'MsgBox(DecodedUrl)
|
||||
Dim URLSplit() As String = DecodedUrl.Split(New String() {".m3u8"}, System.StringSplitOptions.RemoveEmptyEntries)
|
||||
Dim URLSplit2() As String = URLSplit(0).Split(New String() {"https://"}, System.StringSplitOptions.RemoveEmptyEntries)
|
||||
Dim NewUrl As String = "https://" + URLSplit2(URLSplit2.Count - 1) + ".m3u8" + URLSplit(1)
|
||||
'MsgBox(NewUrl)
|
||||
Dim str1 As String = client0.DownloadString(NewUrl)
|
||||
'MsgBox(str1)
|
||||
If InStr(str1, "#EXTM3U") Then
|
||||
Main.m3u8List.Add(NewUrl)
|
||||
End If
|
||||
|
||||
End If
|
||||
ElseIf InStr(RequestURL, ".mpd") Then
|
||||
|
||||
@ -27,7 +27,6 @@ Public Class Main
|
||||
Public ErrorTolerance As Integer = 0
|
||||
Public liList As New List(Of String)
|
||||
Public HTMLString As String = My.Resources.Startuphtml
|
||||
'Public RunServer As Boolean = True
|
||||
Public ListBoxList As New List(Of String)
|
||||
Public ItemList As New List(Of CRD_List_Item)
|
||||
Public RunningDownloads As Integer = 0
|
||||
@ -44,6 +43,7 @@ Public Class Main
|
||||
Public LogBrowserData As Boolean = False
|
||||
Public Thumbnail As String = Nothing
|
||||
Public MergeSubs As Boolean = False
|
||||
Public SubsOnly As Boolean = False
|
||||
Public VideoFormat As String = ".mp4"
|
||||
Public MergeSubsFormat As String = "mov_text"
|
||||
|
||||
@ -60,7 +60,6 @@ Public Class Main
|
||||
Public LabelEpisode As String = "..."
|
||||
Public b As Boolean = True
|
||||
Public c As Boolean = True
|
||||
Public d As Boolean = True
|
||||
Public LoginOnly As String = "False"
|
||||
Public Pfad As String = My.Computer.FileSystem.CurrentDirectory
|
||||
Public ffmpeg_command As String = " -c copy -bsf:a aac_adtstoasc" '" -c:v hevc_nvenc -preset fast -b:v 6M -bsf:a aac_adtstoasc "
|
||||
@ -886,322 +885,7 @@ Public Class Main
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
#Region "SubsOnly"
|
||||
|
||||
Public Sub MassGrappSubs()
|
||||
Einstellungen.MultiDLSoftSubs.Enabled = True
|
||||
Einstellungen.PictureBox3.Image = My.Resources.softsubs_download
|
||||
Einstellungen.ComboBox1.Items.Clear()
|
||||
Einstellungen.comboBox3.Items.Clear()
|
||||
Einstellungen.comboBox4.Items.Clear()
|
||||
Einstellungen.ComboBox2.Enabled = False
|
||||
Dim Anzahl As String() = WebbrowserText.Split(New String() {"wrapper container-shadow hover-classes"}, System.StringSplitOptions.RemoveEmptyEntries)
|
||||
Dim Titel As String() = Anzahl(0).Split(New String() {"<meta content=" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
|
||||
Dim Titel2 As String() = Titel(1).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
|
||||
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)
|
||||
|
||||
Einstellungen.comboBox3.Items.Add(URLGrapp2(0))
|
||||
Einstellungen.comboBox4.Items.Add(URLGrapp2(0))
|
||||
Next
|
||||
|
||||
End Sub
|
||||
|
||||
Public Sub SeasonDropdownGrappSubs()
|
||||
Einstellungen.MultiDLSoftSubs.Enabled = True
|
||||
Einstellungen.PictureBox3.Image = My.Resources.softsubs_download
|
||||
Einstellungen.ComboBox1.Items.Clear()
|
||||
Einstellungen.comboBox3.Items.Clear()
|
||||
Einstellungen.comboBox4.Items.Clear()
|
||||
Einstellungen.ComboBox2.Enabled = True
|
||||
Einstellungen.comboBox3.Enabled = True
|
||||
Einstellungen.comboBox4.Enabled = True
|
||||
Dim Anzahl As String() = WebbrowserText.Split(New String() {"season-dropdown content-menu block"}, System.StringSplitOptions.RemoveEmptyEntries)
|
||||
Array.Reverse(Anzahl)
|
||||
For i As Integer = 0 To Anzahl.Count - 2
|
||||
Dim Titel As String() = Anzahl(i).Split(New String() {"</a>"}, System.StringSplitOptions.RemoveEmptyEntries)
|
||||
Dim Titel2 As String() = Titel(0).Split(New String() {">"}, System.StringSplitOptions.RemoveEmptyEntries)
|
||||
'MsgBox(Titel2(0))
|
||||
Einstellungen.ComboBox2.Items.Add(Titel2(1))
|
||||
Next
|
||||
|
||||
End Sub
|
||||
|
||||
Public Sub DownloadSubsOnly()
|
||||
'Try
|
||||
'Throw New System.Exception("Test")
|
||||
DlSoftSubsRDY = False
|
||||
Dim CR_Anime_Titel As String = Nothing
|
||||
Dim CR_Anime_Staffel As String = Nothing
|
||||
Dim CR_Anime_Folge As String = Nothing
|
||||
#Region "Name + Pfad"
|
||||
Dim Pfad2 As String = Nothing
|
||||
Dim CR_FilenName As String = Nothing
|
||||
'Dim SubfolderValue As String = Nothing
|
||||
Dim CR_FilenName_Backup As String = Nothing
|
||||
|
||||
|
||||
#Region "Name von Crunchyroll"
|
||||
|
||||
Dim Bug_Deutsch As String = "-"
|
||||
If CBool(InStr(WebbrowserTitle, "Anschauen auf Crunchyroll")) Then
|
||||
Bug_Deutsch = ":"
|
||||
End If
|
||||
Dim CR_Name_by_Titel_2 As String() = WebbrowserTitle.Split(New String() {Bug_Deutsch}, System.StringSplitOptions.RemoveEmptyEntries)
|
||||
Dim CR_Title As String = Nothing
|
||||
If CR_Name_by_Titel_2.Count > 2 Then
|
||||
For i As Integer = 0 To CR_Name_by_Titel_2.Count - 2
|
||||
If CR_Title = Nothing Then
|
||||
CR_Title = CR_Name_by_Titel_2(i).Trim()
|
||||
Else
|
||||
CR_Title = CR_Title + " " + CR_Name_by_Titel_2(i).Trim()
|
||||
End If
|
||||
|
||||
Next
|
||||
End If
|
||||
CR_FilenName = CR_Title
|
||||
CR_FilenName_Backup = CR_Title
|
||||
'MsgBox(CR_FilenName)
|
||||
WebbrowserText = HtmlDecode(WebbrowserText)
|
||||
|
||||
If CBool(InStr(WebbrowserText, "<h4>")) Then ' false on movie true on series
|
||||
Dim CR_Name_1 As String() = WebbrowserText.Split(New String() {"<h4>"}, System.StringSplitOptions.RemoveEmptyEntries)
|
||||
Dim CR_Name_2 As String() = CR_Name_1(1).Split(New String() {"</h4>"}, System.StringSplitOptions.RemoveEmptyEntries) '(New [Char]() {"-"})
|
||||
Dim CR_Name_Staffel0_Folge1 As String()
|
||||
If CBool(InStr(CR_Name_2(0), ",")) Then
|
||||
CR_Name_Staffel0_Folge1 = CR_Name_2(0).Split(New [Char]() {System.Convert.ToChar(",")}, System.StringSplitOptions.RemoveEmptyEntries)
|
||||
CR_Anime_Staffel = CR_Name_Staffel0_Folge1(0).Trim()
|
||||
CR_Anime_Folge = CR_Name_Staffel0_Folge1(1).Trim()
|
||||
'CR_Anime_Folge = System.Text.RegularExpressions.Regex.Replace(CR_Anime_Folge, "[^\w\\-]", " ")
|
||||
|
||||
CR_Anime_Folge = String.Join(" ", CR_Anime_Folge.Split(invalids, StringSplitOptions.RemoveEmptyEntries)).TrimEnd("."c)
|
||||
'MsgBox(CR_Anime_Folge)
|
||||
Else
|
||||
CR_Anime_Staffel = Nothing
|
||||
CR_Anime_Folge = CR_Name_2(0).Trim()
|
||||
'CR_Anime_Folge = System.Text.RegularExpressions.Regex.Replace(CR_Anime_Folge, "[^\w\\-]", " ")
|
||||
CR_Anime_Folge = String.Join(" ", CR_Anime_Folge.Split(invalids, StringSplitOptions.RemoveEmptyEntries)).TrimEnd("."c)
|
||||
'MsgBox(CR_Anime_Folge)
|
||||
End If
|
||||
|
||||
|
||||
Dim CR_Name_4 As String() = CR_Name_1(0).Split(New String() {"class=" + Chr(34) + "text-link" + Chr(34) + ">"}, System.StringSplitOptions.RemoveEmptyEntries) '(New [Char]() {"-"})
|
||||
Dim CR_Name_Anime0 As String() = CR_Name_4(CR_Name_4.Length - 1).Split(New String() {"</a>"}, System.StringSplitOptions.RemoveEmptyEntries)
|
||||
'CR_Name_Anime0(0) = System.Text.RegularExpressions.Regex.Replace(CR_Name_Anime0(0), "[^\w\\-]", " ")
|
||||
'CR_Name_Anime0(0) = HtmlDecode(CR_Name_Anime0(0))
|
||||
CR_Name_Anime0(0) = String.Join(" ", CR_Name_Anime0(0).Split(invalids, StringSplitOptions.RemoveEmptyEntries)).TrimEnd("."c)
|
||||
|
||||
CR_Anime_Titel = CR_Name_Anime0(0).Trim
|
||||
If CR_Anime_Staffel = Nothing Then
|
||||
CR_FilenName = CR_Anime_Titel + " " + CR_Anime_Folge
|
||||
Else
|
||||
CR_FilenName = CR_Anime_Titel + " " + CR_Anime_Staffel + " " + CR_Anime_Folge
|
||||
End If
|
||||
|
||||
CR_FilenName_Backup = RemoveExtraSpaces(CR_FilenName)
|
||||
Else
|
||||
|
||||
|
||||
|
||||
End If
|
||||
#End Region
|
||||
CR_FilenName = String.Join(" ", CR_FilenName.Split(invalids, StringSplitOptions.RemoveEmptyEntries)).TrimEnd("."c) 'System.Text.RegularExpressions.Regex.Replace(CR_FilenName, "[^\w\\-]", " ")
|
||||
CR_FilenName = RemoveExtraSpaces(CR_FilenName)
|
||||
|
||||
Pfad2 = UseSubfolder(CR_Anime_Titel, CR_Anime_Staffel, Pfad)
|
||||
|
||||
|
||||
If Not Directory.Exists(Path.GetDirectoryName(Pfad2)) Then
|
||||
' Nein! Jetzt erstellen...
|
||||
Try
|
||||
Directory.CreateDirectory(Path.GetDirectoryName(Pfad2))
|
||||
Catch ex As Exception
|
||||
' Ordner wurde nich erstellt
|
||||
Pfad2 = Pfad + "\" + CR_FilenName_Backup + VideoFormat
|
||||
End Try
|
||||
End If
|
||||
|
||||
Pfad2 = Chr(34) + Pfad2 + CR_FilenName + VideoFormat + Chr(34)
|
||||
|
||||
#End Region
|
||||
#Region "Subs"
|
||||
'MsgBox(TempSoftSubs.Count.ToString)
|
||||
Dim SoftSubs2 As New List(Of String)
|
||||
If SoftSubs.Count > 0 Then
|
||||
For i As Integer = 0 To SoftSubs.Count - 1
|
||||
Dim ii As Integer = i
|
||||
If CBool(InStr(WebbrowserText, Chr(34) + "language" + Chr(34) + ":" + Chr(34) + SoftSubs(i) + Chr(34) + ",")) Then
|
||||
SoftSubs2.Add(SoftSubs(i))
|
||||
Else
|
||||
Me.Invoke(New Action(Function()
|
||||
Einstellungen.StatusLabel.Text = "Status: language " + HardSubValuesToDisplay(Chr(34) + SoftSubs(ii) + Chr(34)) + " not found."
|
||||
Pause(10)
|
||||
Return Nothing
|
||||
End Function))
|
||||
|
||||
End If
|
||||
Next
|
||||
ElseIf TempSoftSubs.Count > 0 Then
|
||||
For i As Integer = 0 To TempSoftSubs.Count - 1
|
||||
Dim ii As Integer = i
|
||||
If CBool(InStr(WebbrowserText, Chr(34) + "language" + Chr(34) + ":" + Chr(34) + TempSoftSubs(i) + Chr(34) + ",")) Then
|
||||
SoftSubs2.Add(TempSoftSubs(i))
|
||||
Else
|
||||
Me.Invoke(New Action(Function()
|
||||
Einstellungen.StatusLabel.Text = "Status: language " + HardSubValuesToDisplay(Chr(34) + TempSoftSubs(ii) + Chr(34)) + " not found."
|
||||
Pause(10)
|
||||
Return Nothing
|
||||
End Function))
|
||||
|
||||
'MsgBox("Softsubtitle for " + SoftSubs(i) + " is not avalible.", MsgBoxStyle.Information)
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
If Grapp_Abord = True Then
|
||||
Grapp_RDY = True
|
||||
Grapp_Abord = False
|
||||
'MsgBox("grapp_abourd")
|
||||
Exit Sub
|
||||
|
||||
End If
|
||||
|
||||
|
||||
#Region "Download softsub file"
|
||||
|
||||
If SoftSubs2.Count > 0 Then
|
||||
For i As Integer = 0 To SoftSubs2.Count - 1
|
||||
Dim ii As Integer = i
|
||||
Try
|
||||
Me.Invoke(New Action(Function()
|
||||
Einstellungen.StatusLabel.Text = "Status: downloading - " + HardSubValuesToDisplay(Chr(34) + SoftSubs2(ii) + Chr(34))
|
||||
Pause(1)
|
||||
Return Nothing
|
||||
End Function))
|
||||
|
||||
LabelEpisode = SoftSubs2(i)
|
||||
Dim SoftSub As String() = WebbrowserText.Split(New String() {Chr(34) + "language" + Chr(34) + ":" + Chr(34) + SoftSubs2(i) + Chr(34) + "," + Chr(34) + "url" + Chr(34) + ":" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
|
||||
Dim SoftSub_2 As String() = SoftSub(1).Split(New [Char]() {Chr(34)})
|
||||
Dim SoftSub_3 As String = SoftSub_2(0).Replace("\/", "/")
|
||||
Dim client0 As New WebClient
|
||||
client0.Encoding = Encoding.UTF8
|
||||
Dim str0 As String = client0.DownloadString(SoftSub_3)
|
||||
Dim Pfad3 As String = Pfad2.Replace(Chr(34), "")
|
||||
Dim FN As String = Path.ChangeExtension(Path.Combine(Path.GetFileNameWithoutExtension(Pfad3) + " " + SoftSubs2(i) + Path.GetExtension(Pfad3)), "ass")
|
||||
'MsgBox(FN)
|
||||
If i = 0 Then
|
||||
FN = Path.ChangeExtension(Path.GetFileName(Pfad3), "ass")
|
||||
'MsgBox(FN)
|
||||
End If
|
||||
Dim Pfad4 As String = Path.Combine(Path.GetDirectoryName(Pfad3), FN)
|
||||
'MsgBox(Pfad4)
|
||||
File.WriteAllText(Pfad4, str0, Encoding.UTF8)
|
||||
Pause(1)
|
||||
Catch ex As Exception
|
||||
Me.Invoke(New Action(Function()
|
||||
Einstellungen.StatusLabel.Text = "Status: failed - " + HardSubValuesToDisplay(Chr(34) + SoftSubs2(ii) + Chr(34))
|
||||
Pause(3)
|
||||
Return Nothing
|
||||
End Function))
|
||||
End Try
|
||||
Next
|
||||
Else
|
||||
|
||||
Me.Invoke(New Action(Function()
|
||||
Einstellungen.StatusLabel.Text = "Status: No language selected"
|
||||
Pause(10)
|
||||
Return Nothing
|
||||
End Function))
|
||||
End If
|
||||
#End Region
|
||||
|
||||
DlSoftSubsRDY = True
|
||||
Me.Invoke(New Action(Function()
|
||||
Einstellungen.StatusLabel.Text = "Status: idle"
|
||||
Return Nothing
|
||||
End Function))
|
||||
|
||||
|
||||
'Catch ex As Exception
|
||||
'End Try
|
||||
End Sub
|
||||
|
||||
Public Async Sub MassSubsDL()
|
||||
If Einstellungen.comboBox3.Text = Nothing Then
|
||||
Exit Sub
|
||||
ElseIf Einstellungen.comboBox4.Text = Nothing Then
|
||||
Exit Sub
|
||||
End If
|
||||
Einstellungen.SoftSubsMass.Text = "preparing ..."
|
||||
Dim Website As String = WebbrowserText
|
||||
|
||||
If Einstellungen.ComboBox2.Enabled = True Then
|
||||
Dim SeasonDropdownAnzahl As String() = Website.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) + ">" + Einstellungen.ComboBox2.SelectedItem.ToString + "</a>") Then
|
||||
SDV = i
|
||||
End If
|
||||
Next
|
||||
Website = SeasonDropdownAnzahl(SDV)
|
||||
End If
|
||||
Try
|
||||
Dim Anzahl As String() = Website.Split(New String() {"wrapper container-shadow hover-classes"}, System.StringSplitOptions.RemoveEmptyEntries)
|
||||
Array.Reverse(Anzahl)
|
||||
Dim c As Integer = Einstellungen.comboBox4.SelectedIndex - Einstellungen.comboBox3.SelectedIndex + 1
|
||||
'AnzahlGesamt.Text = c.ToString
|
||||
Gesamt = c.ToString
|
||||
Aktuell = "0"
|
||||
If Einstellungen.comboBox4.SelectedIndex > Einstellungen.comboBox3.SelectedIndex Then
|
||||
|
||||
For i As Integer = Einstellungen.comboBox3.SelectedIndex To Einstellungen.comboBox4.SelectedIndex
|
||||
|
||||
For e As Integer = 0 To Integer.MaxValue
|
||||
|
||||
If DlSoftSubsRDY = True Then
|
||||
Exit For
|
||||
Else
|
||||
Await Task.Delay(2000)
|
||||
End If
|
||||
Next
|
||||
|
||||
Dim dd As Integer = i - Einstellungen.comboBox3.SelectedIndex + 1
|
||||
Dim URLGrapp As String() = Anzahl(i).Split(New String() {"<a href=" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
|
||||
Dim URLGrapp2 As String() = URLGrapp(1).Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
|
||||
'MsgBox("https://www.crunchyroll.com" + URLGrapp2(0))
|
||||
DlSoftSubsRDY = False
|
||||
b = False
|
||||
d = False
|
||||
GeckoFX.WebBrowser1.Navigate("https://www.crunchyroll.com" + URLGrapp2(0))
|
||||
Aktuell = dd.ToString
|
||||
Einstellungen.SoftSubsMass.Text = Aktuell + " / " + Gesamt
|
||||
Next
|
||||
|
||||
|
||||
|
||||
End If
|
||||
Catch ex As Exception
|
||||
Einstellungen.ComboBox2.Items.Clear()
|
||||
Einstellungen.comboBox3.Items.Clear()
|
||||
Einstellungen.comboBox4.Items.Clear()
|
||||
Einstellungen.MultiDLSoftSubs.Enabled = False
|
||||
Aktuell = 0.ToString
|
||||
Gesamt = 0.ToString
|
||||
End Try
|
||||
Einstellungen.ComboBox2.Items.Clear()
|
||||
Einstellungen.comboBox3.Items.Clear()
|
||||
Einstellungen.comboBox4.Items.Clear()
|
||||
Einstellungen.MultiDLSoftSubs.Enabled = False
|
||||
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
#Region "Sub to display"
|
||||
|
||||
@ -1655,9 +1339,11 @@ Public Class Main
|
||||
|
||||
End If
|
||||
#Region "m3u8 suche"
|
||||
Dim CR_URI_Master As String = Nothing
|
||||
If SubsOnly = False Then
|
||||
Dim ii As Integer = 0
|
||||
'MsgBox(Chr(34) + "hardsub_lang" + Chr(34) + ":" + SubSprache2 + "," + Chr(34) + "url" + Chr(34) + ":" + Chr(34))
|
||||
Dim CR_URI_Master As String = Nothing
|
||||
|
||||
Dim CR_URI_Master_Split1 As String() = WebbrowserText.Split(New String() {My.Resources.hls_Value}, System.StringSplitOptions.RemoveEmptyEntries)
|
||||
Dim hls_List As New List(Of String)
|
||||
For i As Integer = 0 To CR_URI_Master_Split1.Count - 1
|
||||
@ -1690,6 +1376,14 @@ Public Class Main
|
||||
Else
|
||||
Throw New System.Exception("Premium Episode")
|
||||
End If
|
||||
Else
|
||||
Me.Invoke(New Action(Function()
|
||||
Anime_Add.StatusLabel.Text = "Status: Substitles only mode - skipped video"
|
||||
Me.Text = "Status: Substitles only mode - skipped video"
|
||||
Me.Invalidate()
|
||||
Return Nothing
|
||||
End Function))
|
||||
End If
|
||||
#End Region
|
||||
|
||||
#Region "Download softsub file or build ffmpeg cmd"
|
||||
@ -1698,7 +1392,7 @@ Public Class Main
|
||||
Dim SoftSubMergeMetatata As String = Nothing
|
||||
|
||||
If SoftSubs2.Count > 0 Then
|
||||
If MergeSubs = True Then
|
||||
If MergeSubs = True And SubsOnly = False Then
|
||||
Dim DispositionIndex As Integer
|
||||
For i As Integer = 0 To SoftSubs2.Count - 1
|
||||
Debug.WriteLine(SoftSubs2(i))
|
||||
@ -1727,8 +1421,12 @@ Public Class Main
|
||||
End If
|
||||
Else
|
||||
For i As Integer = 0 To SoftSubs2.Count - 1
|
||||
LabelUpdate = "Status: downloading subtitle file"
|
||||
LabelEpisode = SoftSubs2(i)
|
||||
Me.Invoke(New Action(Function()
|
||||
Anime_Add.StatusLabel.Text = "Status: downloading subtitle file " + HardSubValuesToDisplay(Chr(34) + SoftSubs2(i) + Chr(34))
|
||||
Me.Text = "Status: downloading subtitle file " + HardSubValuesToDisplay(Chr(34) + SoftSubs2(i) + Chr(34))
|
||||
Me.Invalidate()
|
||||
Return Nothing
|
||||
End Function))
|
||||
Dim SoftSub As String() = WebbrowserText.Split(New String() {Chr(34) + "language" + Chr(34) + ":" + Chr(34) + SoftSubs2(i) + Chr(34) + "," + Chr(34) + "url" + Chr(34) + ":" + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
|
||||
Dim SoftSub_2 As String() = SoftSub(1).Split(New [Char]() {Chr(34)})
|
||||
Dim SoftSub_3 As String = SoftSub_2(0).Replace("\/", "/")
|
||||
@ -1745,7 +1443,7 @@ Public Class Main
|
||||
Dim Pfad4 As String = Path.Combine(Path.GetDirectoryName(Pfad3), FN)
|
||||
'MsgBox(Pfad4)
|
||||
File.WriteAllText(Pfad4, str0, Encoding.UTF8)
|
||||
Pause(1)
|
||||
Pause(3)
|
||||
Next
|
||||
|
||||
End If
|
||||
@ -1776,6 +1474,8 @@ Public Class Main
|
||||
|
||||
End If
|
||||
#End Region
|
||||
If SubsOnly = False Then
|
||||
|
||||
If Reso = 42 And HybridMode = False Then
|
||||
If MergeSubs = True Then
|
||||
URL_DL = "-i " + Chr(34) + CR_URI_Master + Chr(34) + SoftSubMergeURLs + SoftSubMergeMaps + " " + ffmpeg_command + " -c:s " + MergeSubsFormat + SoftSubMergeMetatata + " -metadata:s:a:0 language=" + CCtoMP4CC(CR_Anime_Dub)
|
||||
@ -1832,7 +1532,7 @@ Public Class Main
|
||||
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
#Region "thumbnail"
|
||||
Dim thumbnail As String() = WebbrowserText.Split(New String() {My.Resources.thumbnailString}, System.StringSplitOptions.RemoveEmptyEntries)
|
||||
Dim thumbnail2 As String() = thumbnail(1).Split(New String() {Chr(34) + "}"}, System.StringSplitOptions.RemoveEmptyEntries) '(New [Char]() {"-"})
|
||||
@ -1863,6 +1563,10 @@ Public Class Main
|
||||
Pfad_DL = Pfad2
|
||||
Dim L1Name_Split As String() = WebbrowserURL.Split(New String() {"/"}, System.StringSplitOptions.RemoveEmptyEntries)
|
||||
Dim L1Name As String = L1Name_Split(1).Replace("www.", "") + " | Dub : " + HardSubValuesToDisplay(Chr(34) + CR_Anime_Dub + Chr(34))
|
||||
|
||||
If SubsOnly = True Then
|
||||
URL_DL = "-i [Subtitles only]"
|
||||
End If
|
||||
Me.Invoke(New Action(Function()
|
||||
ListItemAdd(Pfad_DL, L1Name, L2Name, ResoHTMLDisplay, Subsprache3, SubValuesToDisplay(), thumbnail3, URL_DL, Pfad_DL)
|
||||
Return Nothing
|
||||
@ -2397,23 +2101,26 @@ Public Class Main
|
||||
|
||||
#End Region
|
||||
#Region "m3u8 URL"
|
||||
Dim client0 As New WebClient
|
||||
client0.Encoding = Encoding.UTF8
|
||||
Dim Funimation_m3u8_final As String = Nothing
|
||||
Dim Player_ID() As String = WebbrowserText.Split(New String() {My.Resources.Funimation_Player_ID}, System.StringSplitOptions.RemoveEmptyEntries)
|
||||
Dim Player_ID2() As String = Player_ID(1).Split(New String() {"/"}, System.StringSplitOptions.RemoveEmptyEntries)
|
||||
If SubsOnly = False Then
|
||||
|
||||
Me.Invoke(New Action(Function()
|
||||
' Anime_Add.StatusLabel.Text = iFrameURL
|
||||
|
||||
Return Nothing
|
||||
End Function))
|
||||
|
||||
Dim client0 As New WebClient
|
||||
client0.Encoding = Encoding.UTF8
|
||||
|
||||
If WebbrowserCookie = Nothing Then
|
||||
Else
|
||||
client0.Headers.Add(HttpRequestHeader.Cookie, WebbrowserCookie)
|
||||
End If
|
||||
Dim str0 As String = client0.DownloadString("https://www.funimation.com/api/showexperience/" + Player_ID2(0) + "/?pinst_id=fzQc9p9f")
|
||||
Dim Funimation_m3u8() As String = str0.Split(New String() {My.Resources.Funimation_src_string}, System.StringSplitOptions.RemoveEmptyEntries)
|
||||
Dim Funimation_m3u8_final As String = Nothing
|
||||
Dim Funimation_m3u8_Main As String = Nothing
|
||||
For i As Integer = 0 To Funimation_m3u8.Count - 1
|
||||
If InStr(Funimation_m3u8(i), "m3u8?") Then
|
||||
@ -2599,7 +2306,13 @@ Public Class Main
|
||||
End Function))
|
||||
|
||||
End If
|
||||
|
||||
Else
|
||||
Me.Invoke(New Action(Function()
|
||||
Me.Text = "Status: Substitles only mode - skipped video"
|
||||
Me.Invalidate()
|
||||
Return Nothing
|
||||
End Function))
|
||||
End If
|
||||
'MsgBox(FunimationName3)
|
||||
'MsgBox(Funimation_m3u8_final)
|
||||
#Region "thumbnail"
|
||||
@ -2768,7 +2481,7 @@ Public Class Main
|
||||
Dim SoftSubMergeMetatata As String = Nothing
|
||||
|
||||
If UsedSubs.Count > 0 Then
|
||||
If MergeSubs = True Then
|
||||
If MergeSubs = True And SubsOnly = False Then
|
||||
Dim DispositionIndex As Integer = 999
|
||||
Dim LastMerged As String = Nothing
|
||||
For i As Integer = 0 To UsedSubs.Count - 1
|
||||
@ -2869,6 +2582,9 @@ Public Class Main
|
||||
#End Region
|
||||
'MsgBox(Funimation_m3u8_final)
|
||||
'DownloadPfad = DownloadPfad.Replace(" \", "\")
|
||||
If SubsOnly = True Then
|
||||
Funimation_m3u8_final = "-i [Subtitles only]"
|
||||
End If
|
||||
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
|
||||
@ -2879,6 +2595,11 @@ Public Class Main
|
||||
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
|
||||
Me.Invoke(New Action(Function()
|
||||
Me.Text = "Crunchyroll Downloader"
|
||||
Me.Invalidate()
|
||||
Return Nothing
|
||||
End Function))
|
||||
|
||||
Catch ex As Exception
|
||||
Me.Invoke(New Action(Function()
|
||||
|
||||
@ -32,6 +32,6 @@ Imports System.Runtime.InteropServices
|
||||
' übernehmen, indem Sie "*" eingeben:
|
||||
' <Assembly: AssemblyVersion("1.0.*")>
|
||||
|
||||
<Assembly: AssemblyVersion("3.7.6.2")>
|
||||
<Assembly: AssemblyFileVersion("3.7.6.2")>
|
||||
<Assembly: AssemblyVersion("3.7.8")>
|
||||
<Assembly: AssemblyFileVersion("3.7.8")>
|
||||
<Assembly: NeutralResourcesLanguage("en")>
|
||||
|
||||
Binary file not shown.
Binary file not shown.
382
Crunchyroll Downloader/einstellungen.Designer.vb
generated
382
Crunchyroll Downloader/einstellungen.Designer.vb
generated
@ -27,9 +27,6 @@ Partial Class Einstellungen
|
||||
Me.pictureBox1 = New System.Windows.Forms.PictureBox()
|
||||
Me.pictureBox4 = New System.Windows.Forms.PictureBox()
|
||||
Me.ToolTip2 = New System.Windows.Forms.ToolTip(Me.components)
|
||||
Me.TabPage4 = New System.Windows.Forms.TabPage()
|
||||
Me.TabControl2 = New MetroFramework.Controls.MetroTabControl()
|
||||
Me.TabPage5 = New MetroFramework.Controls.MetroTabPage()
|
||||
Me.GroupBox14 = New System.Windows.Forms.GroupBox()
|
||||
Me.CR_SoftSubDefault = New MetroFramework.Controls.MetroComboBox()
|
||||
Me.PictureBox2 = New System.Windows.Forms.PictureBox()
|
||||
@ -45,17 +42,6 @@ Partial Class Einstellungen
|
||||
Me.CBenUS = New MetroFramework.Controls.MetroCheckBox()
|
||||
Me.GB_SubLanguage = New System.Windows.Forms.GroupBox()
|
||||
Me.ComboBox1 = New MetroFramework.Controls.MetroComboBox()
|
||||
Me.TabPage3 = New MetroFramework.Controls.MetroTabPage()
|
||||
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
|
||||
Me.PictureBox5 = New System.Windows.Forms.PictureBox()
|
||||
Me.StatusLabel = New MetroFramework.Controls.MetroLabel()
|
||||
Me.TextBox2 = New MetroFramework.Controls.MetroTextBox()
|
||||
Me.MultiDLSoftSubs = New System.Windows.Forms.GroupBox()
|
||||
Me.SoftSubsMass = New MetroFramework.Controls.MetroLabel()
|
||||
Me.PictureBox3 = New System.Windows.Forms.PictureBox()
|
||||
Me.comboBox4 = New MetroFramework.Controls.MetroComboBox()
|
||||
Me.ComboBox2 = New MetroFramework.Controls.MetroComboBox()
|
||||
Me.comboBox3 = New MetroFramework.Controls.MetroComboBox()
|
||||
Me.TabPage2 = New MetroFramework.Controls.MetroTabPage()
|
||||
Me.GroupBox12 = New System.Windows.Forms.GroupBox()
|
||||
Me.DD_Episode_Prefix = New MetroFramework.Controls.MetroComboBox()
|
||||
@ -140,20 +126,13 @@ Partial Class Einstellungen
|
||||
Me.Label6 = New MetroFramework.Controls.MetroLabel()
|
||||
Me.Label5 = New MetroFramework.Controls.MetroLabel()
|
||||
Me.BackgroundWorker1 = New System.ComponentModel.BackgroundWorker()
|
||||
Me.MetroTabPage1 = New MetroFramework.Controls.MetroTabPage()
|
||||
CType(Me.pictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.pictureBox4, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.TabPage4.SuspendLayout()
|
||||
Me.TabControl2.SuspendLayout()
|
||||
Me.TabPage5.SuspendLayout()
|
||||
Me.GroupBox14.SuspendLayout()
|
||||
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SoftSubs.SuspendLayout()
|
||||
Me.GB_SubLanguage.SuspendLayout()
|
||||
Me.TabPage3.SuspendLayout()
|
||||
Me.GroupBox3.SuspendLayout()
|
||||
CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.MultiDLSoftSubs.SuspendLayout()
|
||||
CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.TabPage2.SuspendLayout()
|
||||
Me.GroupBox12.SuspendLayout()
|
||||
Me.GroupBox4.SuspendLayout()
|
||||
@ -179,6 +158,7 @@ Partial Class Einstellungen
|
||||
Me.GroupBox8.SuspendLayout()
|
||||
Me.TabPage7.SuspendLayout()
|
||||
CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.MetroTabPage1.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'ToolTip1
|
||||
@ -211,63 +191,15 @@ Partial Class Einstellungen
|
||||
Me.pictureBox4.TabIndex = 8
|
||||
Me.pictureBox4.TabStop = False
|
||||
'
|
||||
'TabPage4
|
||||
'
|
||||
Me.TabPage4.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(243, Byte), Integer), CType(CType(243, Byte), Integer))
|
||||
Me.TabPage4.Controls.Add(Me.TabControl2)
|
||||
Me.TabPage4.Location = New System.Drawing.Point(4, 44)
|
||||
Me.TabPage4.Name = "TabPage4"
|
||||
Me.TabPage4.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.TabPage4.Size = New System.Drawing.Size(493, 452)
|
||||
Me.TabPage4.TabIndex = 3
|
||||
Me.TabPage4.Text = "Crunchyroll"
|
||||
'
|
||||
'TabControl2
|
||||
'
|
||||
Me.TabControl2.Controls.Add(Me.TabPage5)
|
||||
Me.TabControl2.Controls.Add(Me.TabPage3)
|
||||
Me.TabControl2.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.TabControl2.FontSize = MetroFramework.MetroTabControlSize.Tall
|
||||
Me.TabControl2.FontWeight = MetroFramework.MetroTabControlWeight.Regular
|
||||
Me.TabControl2.Location = New System.Drawing.Point(3, 3)
|
||||
Me.TabControl2.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.TabControl2.Name = "TabControl2"
|
||||
Me.TabControl2.SelectedIndex = 0
|
||||
Me.TabControl2.Size = New System.Drawing.Size(487, 446)
|
||||
Me.TabControl2.TabIndex = 0
|
||||
Me.TabControl2.UseSelectable = True
|
||||
'
|
||||
'TabPage5
|
||||
'
|
||||
Me.TabPage5.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(243, Byte), Integer), CType(CType(243, Byte), Integer))
|
||||
Me.TabPage5.Controls.Add(Me.GroupBox14)
|
||||
Me.TabPage5.Controls.Add(Me.PictureBox2)
|
||||
Me.TabPage5.Controls.Add(Me.SoftSubs)
|
||||
Me.TabPage5.Controls.Add(Me.GB_SubLanguage)
|
||||
Me.TabPage5.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.TabPage5.HorizontalScrollbarBarColor = True
|
||||
Me.TabPage5.HorizontalScrollbarHighlightOnWheel = False
|
||||
Me.TabPage5.HorizontalScrollbarSize = 10
|
||||
Me.TabPage5.Location = New System.Drawing.Point(4, 44)
|
||||
Me.TabPage5.Name = "TabPage5"
|
||||
Me.TabPage5.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.TabPage5.Size = New System.Drawing.Size(479, 398)
|
||||
Me.TabPage5.TabIndex = 0
|
||||
Me.TabPage5.Text = "Main"
|
||||
Me.TabPage5.VerticalScrollbarBarColor = True
|
||||
Me.TabPage5.VerticalScrollbarHighlightOnWheel = False
|
||||
Me.TabPage5.VerticalScrollbarSize = 10
|
||||
Me.TabPage5.Visible = False
|
||||
'
|
||||
'GroupBox14
|
||||
'
|
||||
Me.GroupBox14.BackColor = System.Drawing.Color.Transparent
|
||||
Me.GroupBox14.Controls.Add(Me.CR_SoftSubDefault)
|
||||
Me.GroupBox14.Font = New System.Drawing.Font("Arial", 9.75!)
|
||||
Me.GroupBox14.ForeColor = System.Drawing.Color.Black
|
||||
Me.GroupBox14.Location = New System.Drawing.Point(6, 242)
|
||||
Me.GroupBox14.Location = New System.Drawing.Point(7, 250)
|
||||
Me.GroupBox14.Name = "GroupBox14"
|
||||
Me.GroupBox14.Size = New System.Drawing.Size(467, 69)
|
||||
Me.GroupBox14.Size = New System.Drawing.Size(480, 69)
|
||||
Me.GroupBox14.TabIndex = 57
|
||||
Me.GroupBox14.TabStop = False
|
||||
Me.GroupBox14.Text = "default subtitle"
|
||||
@ -292,7 +224,7 @@ Partial Class Einstellungen
|
||||
Me.PictureBox2.BackColor = System.Drawing.Color.Transparent
|
||||
Me.PictureBox2.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.PictureBox2.Image = Global.Crunchyroll_Downloader.My.Resources.Resources.crdsettings_setUScookie_button
|
||||
Me.PictureBox2.Location = New System.Drawing.Point(162, 351)
|
||||
Me.PictureBox2.Location = New System.Drawing.Point(169, 359)
|
||||
Me.PictureBox2.Name = "PictureBox2"
|
||||
Me.PictureBox2.Size = New System.Drawing.Size(150, 30)
|
||||
Me.PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
|
||||
@ -312,9 +244,9 @@ Partial Class Einstellungen
|
||||
Me.SoftSubs.Controls.Add(Me.CBdeDE)
|
||||
Me.SoftSubs.Controls.Add(Me.CBenUS)
|
||||
Me.SoftSubs.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.SoftSubs.Location = New System.Drawing.Point(6, 75)
|
||||
Me.SoftSubs.Location = New System.Drawing.Point(7, 83)
|
||||
Me.SoftSubs.Name = "SoftSubs"
|
||||
Me.SoftSubs.Size = New System.Drawing.Size(467, 161)
|
||||
Me.SoftSubs.Size = New System.Drawing.Size(480, 161)
|
||||
Me.SoftSubs.TabIndex = 51
|
||||
Me.SoftSubs.TabStop = False
|
||||
Me.SoftSubs.Text = "SoftSubs"
|
||||
@ -433,9 +365,9 @@ Partial Class Einstellungen
|
||||
Me.GB_SubLanguage.Controls.Add(Me.ComboBox1)
|
||||
Me.GB_SubLanguage.Font = New System.Drawing.Font("Arial", 9.75!)
|
||||
Me.GB_SubLanguage.ForeColor = System.Drawing.Color.Black
|
||||
Me.GB_SubLanguage.Location = New System.Drawing.Point(6, 6)
|
||||
Me.GB_SubLanguage.Location = New System.Drawing.Point(7, 14)
|
||||
Me.GB_SubLanguage.Name = "GB_SubLanguage"
|
||||
Me.GB_SubLanguage.Size = New System.Drawing.Size(467, 63)
|
||||
Me.GB_SubLanguage.Size = New System.Drawing.Size(480, 63)
|
||||
Me.GB_SubLanguage.TabIndex = 50
|
||||
Me.GB_SubLanguage.TabStop = False
|
||||
Me.GB_SubLanguage.Text = "Sub Sprache"
|
||||
@ -455,182 +387,6 @@ Partial Class Einstellungen
|
||||
Me.ComboBox1.TabIndex = 33
|
||||
Me.ComboBox1.UseSelectable = True
|
||||
'
|
||||
'TabPage3
|
||||
'
|
||||
Me.TabPage3.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(243, Byte), Integer), CType(CType(243, Byte), Integer))
|
||||
Me.TabPage3.Controls.Add(Me.GroupBox3)
|
||||
Me.TabPage3.Controls.Add(Me.MultiDLSoftSubs)
|
||||
Me.TabPage3.HorizontalScrollbarBarColor = True
|
||||
Me.TabPage3.HorizontalScrollbarHighlightOnWheel = False
|
||||
Me.TabPage3.HorizontalScrollbarSize = 10
|
||||
Me.TabPage3.Location = New System.Drawing.Point(4, 35)
|
||||
Me.TabPage3.Name = "TabPage3"
|
||||
Me.TabPage3.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.TabPage3.Size = New System.Drawing.Size(479, 416)
|
||||
Me.TabPage3.TabIndex = 3
|
||||
Me.TabPage3.Text = "Subtile Download"
|
||||
Me.TabPage3.VerticalScrollbarBarColor = True
|
||||
Me.TabPage3.VerticalScrollbarHighlightOnWheel = False
|
||||
Me.TabPage3.VerticalScrollbarSize = 10
|
||||
Me.TabPage3.Visible = False
|
||||
'
|
||||
'GroupBox3
|
||||
'
|
||||
Me.GroupBox3.BackColor = System.Drawing.Color.Transparent
|
||||
Me.GroupBox3.Controls.Add(Me.PictureBox5)
|
||||
Me.GroupBox3.Controls.Add(Me.StatusLabel)
|
||||
Me.GroupBox3.Controls.Add(Me.TextBox2)
|
||||
Me.GroupBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.GroupBox3.Location = New System.Drawing.Point(9, 6)
|
||||
Me.GroupBox3.Name = "GroupBox3"
|
||||
Me.GroupBox3.Size = New System.Drawing.Size(440, 148)
|
||||
Me.GroupBox3.TabIndex = 46
|
||||
Me.GroupBox3.TabStop = False
|
||||
Me.GroupBox3.Text = "Single Download "
|
||||
'
|
||||
'PictureBox5
|
||||
'
|
||||
Me.PictureBox5.BackColor = System.Drawing.Color.Transparent
|
||||
Me.PictureBox5.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.PictureBox5.Image = Global.Crunchyroll_Downloader.My.Resources.Resources.softsubs_download
|
||||
Me.PictureBox5.Location = New System.Drawing.Point(24, 103)
|
||||
Me.PictureBox5.Name = "PictureBox5"
|
||||
Me.PictureBox5.Size = New System.Drawing.Size(403, 36)
|
||||
Me.PictureBox5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
|
||||
Me.PictureBox5.TabIndex = 46
|
||||
Me.PictureBox5.TabStop = False
|
||||
'
|
||||
'StatusLabel
|
||||
'
|
||||
Me.StatusLabel.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
|
||||
Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.StatusLabel.BackColor = System.Drawing.Color.Transparent
|
||||
Me.StatusLabel.FontSize = MetroFramework.MetroLabelSize.Tall
|
||||
Me.StatusLabel.FontWeight = MetroFramework.MetroLabelWeight.Regular
|
||||
Me.StatusLabel.ForeColor = System.Drawing.SystemColors.InactiveCaptionText
|
||||
Me.StatusLabel.Location = New System.Drawing.Point(11, 65)
|
||||
Me.StatusLabel.Name = "StatusLabel"
|
||||
Me.StatusLabel.Size = New System.Drawing.Size(423, 29)
|
||||
Me.StatusLabel.TabIndex = 38
|
||||
Me.StatusLabel.Text = "Status: idle"
|
||||
Me.StatusLabel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'TextBox2
|
||||
'
|
||||
Me.TextBox2.BackColor = System.Drawing.Color.White
|
||||
Me.TextBox2.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
'
|
||||
'
|
||||
'
|
||||
Me.TextBox2.CustomButton.Image = Nothing
|
||||
Me.TextBox2.CustomButton.Location = New System.Drawing.Point(407, 1)
|
||||
Me.TextBox2.CustomButton.Name = ""
|
||||
Me.TextBox2.CustomButton.Size = New System.Drawing.Size(23, 23)
|
||||
Me.TextBox2.CustomButton.Style = MetroFramework.MetroColorStyle.Blue
|
||||
Me.TextBox2.CustomButton.TabIndex = 1
|
||||
Me.TextBox2.CustomButton.Theme = MetroFramework.MetroThemeStyle.Light
|
||||
Me.TextBox2.CustomButton.UseSelectable = True
|
||||
Me.TextBox2.CustomButton.Visible = False
|
||||
Me.TextBox2.FontSize = MetroFramework.MetroTextBoxSize.Medium
|
||||
Me.TextBox2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
|
||||
Me.TextBox2.Lines = New String() {"URL"}
|
||||
Me.TextBox2.Location = New System.Drawing.Point(6, 35)
|
||||
Me.TextBox2.MaxLength = 32767
|
||||
Me.TextBox2.Name = "TextBox2"
|
||||
Me.TextBox2.PasswordChar = Global.Microsoft.VisualBasic.ChrW(0)
|
||||
Me.TextBox2.ScrollBars = System.Windows.Forms.ScrollBars.None
|
||||
Me.TextBox2.SelectedText = ""
|
||||
Me.TextBox2.SelectionLength = 0
|
||||
Me.TextBox2.SelectionStart = 0
|
||||
Me.TextBox2.ShortcutsEnabled = True
|
||||
Me.TextBox2.Size = New System.Drawing.Size(431, 25)
|
||||
Me.TextBox2.TabIndex = 4
|
||||
Me.TextBox2.TabStop = False
|
||||
Me.TextBox2.Text = "URL"
|
||||
Me.TextBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
|
||||
Me.TextBox2.UseSelectable = True
|
||||
Me.TextBox2.WaterMarkColor = System.Drawing.Color.FromArgb(CType(CType(109, Byte), Integer), CType(CType(109, Byte), Integer), CType(CType(109, Byte), Integer))
|
||||
Me.TextBox2.WaterMarkFont = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Pixel)
|
||||
'
|
||||
'MultiDLSoftSubs
|
||||
'
|
||||
Me.MultiDLSoftSubs.BackColor = System.Drawing.Color.Transparent
|
||||
Me.MultiDLSoftSubs.Controls.Add(Me.SoftSubsMass)
|
||||
Me.MultiDLSoftSubs.Controls.Add(Me.PictureBox3)
|
||||
Me.MultiDLSoftSubs.Controls.Add(Me.comboBox4)
|
||||
Me.MultiDLSoftSubs.Controls.Add(Me.ComboBox2)
|
||||
Me.MultiDLSoftSubs.Controls.Add(Me.comboBox3)
|
||||
Me.MultiDLSoftSubs.Enabled = False
|
||||
Me.MultiDLSoftSubs.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.MultiDLSoftSubs.Location = New System.Drawing.Point(9, 157)
|
||||
Me.MultiDLSoftSubs.Name = "MultiDLSoftSubs"
|
||||
Me.MultiDLSoftSubs.Size = New System.Drawing.Size(440, 220)
|
||||
Me.MultiDLSoftSubs.TabIndex = 45
|
||||
Me.MultiDLSoftSubs.TabStop = False
|
||||
Me.MultiDLSoftSubs.Text = "Multi Download"
|
||||
'
|
||||
'SoftSubsMass
|
||||
'
|
||||
Me.SoftSubsMass.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
|
||||
Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.SoftSubsMass.BackColor = System.Drawing.Color.Transparent
|
||||
Me.SoftSubsMass.FontSize = MetroFramework.MetroLabelSize.Tall
|
||||
Me.SoftSubsMass.FontWeight = MetroFramework.MetroLabelWeight.Regular
|
||||
Me.SoftSubsMass.ForeColor = System.Drawing.Color.Black
|
||||
Me.SoftSubsMass.Location = New System.Drawing.Point(6, 130)
|
||||
Me.SoftSubsMass.Name = "SoftSubsMass"
|
||||
Me.SoftSubsMass.Size = New System.Drawing.Size(428, 23)
|
||||
Me.SoftSubsMass.TabIndex = 46
|
||||
Me.SoftSubsMass.Text = "Status: idle"
|
||||
Me.SoftSubsMass.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'PictureBox3
|
||||
'
|
||||
Me.PictureBox3.BackColor = System.Drawing.Color.Transparent
|
||||
Me.PictureBox3.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.PictureBox3.Image = Global.Crunchyroll_Downloader.My.Resources.Resources.softsubs_download_gray
|
||||
Me.PictureBox3.Location = New System.Drawing.Point(24, 159)
|
||||
Me.PictureBox3.Name = "PictureBox3"
|
||||
Me.PictureBox3.Size = New System.Drawing.Size(403, 36)
|
||||
Me.PictureBox3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
|
||||
Me.PictureBox3.TabIndex = 45
|
||||
Me.PictureBox3.TabStop = False
|
||||
'
|
||||
'comboBox4
|
||||
'
|
||||
Me.comboBox4.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.comboBox4.FormattingEnabled = True
|
||||
Me.comboBox4.ItemHeight = 23
|
||||
Me.comboBox4.Location = New System.Drawing.Point(6, 97)
|
||||
Me.comboBox4.Name = "comboBox4"
|
||||
Me.comboBox4.Size = New System.Drawing.Size(431, 29)
|
||||
Me.comboBox4.TabIndex = 2
|
||||
Me.comboBox4.UseSelectable = True
|
||||
'
|
||||
'ComboBox2
|
||||
'
|
||||
Me.ComboBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.ComboBox2.FormattingEnabled = True
|
||||
Me.ComboBox2.ItemHeight = 23
|
||||
Me.ComboBox2.Location = New System.Drawing.Point(6, 25)
|
||||
Me.ComboBox2.Name = "ComboBox2"
|
||||
Me.ComboBox2.Size = New System.Drawing.Size(431, 29)
|
||||
Me.ComboBox2.TabIndex = 1
|
||||
Me.ComboBox2.UseSelectable = True
|
||||
'
|
||||
'comboBox3
|
||||
'
|
||||
Me.comboBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.comboBox3.FormattingEnabled = True
|
||||
Me.comboBox3.ItemHeight = 23
|
||||
Me.comboBox3.Location = New System.Drawing.Point(6, 62)
|
||||
Me.comboBox3.Name = "comboBox3"
|
||||
Me.comboBox3.Size = New System.Drawing.Size(431, 29)
|
||||
Me.comboBox3.TabIndex = 1
|
||||
Me.comboBox3.UseSelectable = True
|
||||
'
|
||||
'TabPage2
|
||||
'
|
||||
Me.TabPage2.BackColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(243, Byte), Integer), CType(CType(243, Byte), Integer))
|
||||
@ -661,9 +417,9 @@ Partial Class Einstellungen
|
||||
Me.GroupBox12.Controls.Add(Me.CR_Filename)
|
||||
Me.GroupBox12.Font = New System.Drawing.Font("Arial", 9.75!)
|
||||
Me.GroupBox12.ForeColor = System.Drawing.Color.Black
|
||||
Me.GroupBox12.Location = New System.Drawing.Point(8, 11)
|
||||
Me.GroupBox12.Location = New System.Drawing.Point(7, 11)
|
||||
Me.GroupBox12.Name = "GroupBox12"
|
||||
Me.GroupBox12.Size = New System.Drawing.Size(479, 126)
|
||||
Me.GroupBox12.Size = New System.Drawing.Size(480, 126)
|
||||
Me.GroupBox12.TabIndex = 53
|
||||
Me.GroupBox12.TabStop = False
|
||||
Me.GroupBox12.Text = "Filename"
|
||||
@ -719,9 +475,9 @@ Partial Class Einstellungen
|
||||
Me.GroupBox4.Controls.Add(Me.CB_Format)
|
||||
Me.GroupBox4.Font = New System.Drawing.Font("Arial", 9.75!)
|
||||
Me.GroupBox4.ForeColor = System.Drawing.Color.Black
|
||||
Me.GroupBox4.Location = New System.Drawing.Point(8, 205)
|
||||
Me.GroupBox4.Location = New System.Drawing.Point(7, 205)
|
||||
Me.GroupBox4.Name = "GroupBox4"
|
||||
Me.GroupBox4.Size = New System.Drawing.Size(479, 78)
|
||||
Me.GroupBox4.Size = New System.Drawing.Size(480, 78)
|
||||
Me.GroupBox4.TabIndex = 42
|
||||
Me.GroupBox4.TabStop = False
|
||||
'
|
||||
@ -770,7 +526,7 @@ Partial Class Einstellungen
|
||||
Me.GroupBox2.Enabled = False
|
||||
Me.GroupBox2.Font = New System.Drawing.Font("Arial", 9.75!)
|
||||
Me.GroupBox2.ForeColor = System.Drawing.Color.Black
|
||||
Me.GroupBox2.Location = New System.Drawing.Point(8, 325)
|
||||
Me.GroupBox2.Location = New System.Drawing.Point(7, 325)
|
||||
Me.GroupBox2.Name = "GroupBox2"
|
||||
Me.GroupBox2.Size = New System.Drawing.Size(480, 63)
|
||||
Me.GroupBox2.TabIndex = 40
|
||||
@ -922,9 +678,9 @@ Partial Class Einstellungen
|
||||
Me.GB_Resolution.Controls.Add(Me.A1080p)
|
||||
Me.GB_Resolution.Font = New System.Drawing.Font("Arial", 9.75!)
|
||||
Me.GB_Resolution.ForeColor = System.Drawing.Color.Black
|
||||
Me.GB_Resolution.Location = New System.Drawing.Point(8, 140)
|
||||
Me.GB_Resolution.Location = New System.Drawing.Point(7, 140)
|
||||
Me.GB_Resolution.Name = "GB_Resolution"
|
||||
Me.GB_Resolution.Size = New System.Drawing.Size(479, 59)
|
||||
Me.GB_Resolution.Size = New System.Drawing.Size(480, 59)
|
||||
Me.GB_Resolution.TabIndex = 38
|
||||
Me.GB_Resolution.TabStop = False
|
||||
Me.GB_Resolution.Text = "Auflösung"
|
||||
@ -1027,9 +783,9 @@ Partial Class Einstellungen
|
||||
Me.GroupBox6.Controls.Add(Me.NumericUpDown2)
|
||||
Me.GroupBox6.Font = New System.Drawing.Font("Arial", 9.75!)
|
||||
Me.GroupBox6.ForeColor = System.Drawing.Color.Black
|
||||
Me.GroupBox6.Location = New System.Drawing.Point(0, 296)
|
||||
Me.GroupBox6.Location = New System.Drawing.Point(7, 296)
|
||||
Me.GroupBox6.Name = "GroupBox6"
|
||||
Me.GroupBox6.Size = New System.Drawing.Size(487, 150)
|
||||
Me.GroupBox6.Size = New System.Drawing.Size(480, 150)
|
||||
Me.GroupBox6.TabIndex = 45
|
||||
Me.GroupBox6.TabStop = False
|
||||
Me.GroupBox6.Text = "Error Handling"
|
||||
@ -1067,9 +823,9 @@ Partial Class Einstellungen
|
||||
'
|
||||
'NumericUpDown2
|
||||
'
|
||||
Me.NumericUpDown2.Location = New System.Drawing.Point(141, 70)
|
||||
Me.NumericUpDown2.Location = New System.Drawing.Point(135, 70)
|
||||
Me.NumericUpDown2.Name = "NumericUpDown2"
|
||||
Me.NumericUpDown2.Size = New System.Drawing.Size(225, 22)
|
||||
Me.NumericUpDown2.Size = New System.Drawing.Size(200, 22)
|
||||
Me.NumericUpDown2.TabIndex = 1
|
||||
Me.NumericUpDown2.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
|
||||
'
|
||||
@ -1082,9 +838,9 @@ Partial Class Einstellungen
|
||||
Me.GroupBox5.Controls.Add(Me.ListViewAdd_True)
|
||||
Me.GroupBox5.Font = New System.Drawing.Font("Arial", 9.75!)
|
||||
Me.GroupBox5.ForeColor = System.Drawing.Color.Black
|
||||
Me.GroupBox5.Location = New System.Drawing.Point(0, 173)
|
||||
Me.GroupBox5.Location = New System.Drawing.Point(7, 173)
|
||||
Me.GroupBox5.Name = "GroupBox5"
|
||||
Me.GroupBox5.Size = New System.Drawing.Size(487, 117)
|
||||
Me.GroupBox5.Size = New System.Drawing.Size(480, 117)
|
||||
Me.GroupBox5.TabIndex = 7
|
||||
Me.GroupBox5.TabStop = False
|
||||
Me.GroupBox5.Text = "Other"
|
||||
@ -1144,9 +900,9 @@ Partial Class Einstellungen
|
||||
Me.GroupBox1.Controls.Add(Me.TextBox1)
|
||||
Me.GroupBox1.Font = New System.Drawing.Font("Arial", 9.75!)
|
||||
Me.GroupBox1.ForeColor = System.Drawing.Color.Black
|
||||
Me.GroupBox1.Location = New System.Drawing.Point(0, 85)
|
||||
Me.GroupBox1.Location = New System.Drawing.Point(7, 85)
|
||||
Me.GroupBox1.Name = "GroupBox1"
|
||||
Me.GroupBox1.Size = New System.Drawing.Size(487, 86)
|
||||
Me.GroupBox1.Size = New System.Drawing.Size(480, 86)
|
||||
Me.GroupBox1.TabIndex = 7
|
||||
Me.GroupBox1.TabStop = False
|
||||
Me.GroupBox1.Text = "Browser Settings"
|
||||
@ -1199,9 +955,9 @@ Partial Class Einstellungen
|
||||
Me.DL_Count_simultaneous.Controls.Add(Me.NumericUpDown1)
|
||||
Me.DL_Count_simultaneous.Font = New System.Drawing.Font("Arial", 9.75!)
|
||||
Me.DL_Count_simultaneous.ForeColor = System.Drawing.Color.Black
|
||||
Me.DL_Count_simultaneous.Location = New System.Drawing.Point(0, 11)
|
||||
Me.DL_Count_simultaneous.Location = New System.Drawing.Point(7, 11)
|
||||
Me.DL_Count_simultaneous.Name = "DL_Count_simultaneous"
|
||||
Me.DL_Count_simultaneous.Size = New System.Drawing.Size(487, 68)
|
||||
Me.DL_Count_simultaneous.Size = New System.Drawing.Size(480, 68)
|
||||
Me.DL_Count_simultaneous.TabIndex = 5
|
||||
Me.DL_Count_simultaneous.TabStop = False
|
||||
Me.DL_Count_simultaneous.Text = "simultaneous downloads"
|
||||
@ -1220,7 +976,7 @@ Partial Class Einstellungen
|
||||
'
|
||||
Me.TabControl1.Controls.Add(Me.TabPage1)
|
||||
Me.TabControl1.Controls.Add(Me.TabPage2)
|
||||
Me.TabControl1.Controls.Add(Me.TabPage4)
|
||||
Me.TabControl1.Controls.Add(Me.MetroTabPage1)
|
||||
Me.TabControl1.Controls.Add(Me.TabPage6)
|
||||
Me.TabControl1.Controls.Add(Me.TabPage8)
|
||||
Me.TabControl1.Controls.Add(Me.TabPage7)
|
||||
@ -1228,7 +984,7 @@ Partial Class Einstellungen
|
||||
Me.TabControl1.FontWeight = MetroFramework.MetroTabControlWeight.Regular
|
||||
Me.TabControl1.Location = New System.Drawing.Point(22, 60)
|
||||
Me.TabControl1.Name = "TabControl1"
|
||||
Me.TabControl1.SelectedIndex = 1
|
||||
Me.TabControl1.SelectedIndex = 0
|
||||
Me.TabControl1.Size = New System.Drawing.Size(501, 500)
|
||||
Me.TabControl1.TabIndex = 38
|
||||
Me.TabControl1.UseSelectable = True
|
||||
@ -1244,10 +1000,10 @@ Partial Class Einstellungen
|
||||
Me.TabPage6.HorizontalScrollbarBarColor = True
|
||||
Me.TabPage6.HorizontalScrollbarHighlightOnWheel = False
|
||||
Me.TabPage6.HorizontalScrollbarSize = 10
|
||||
Me.TabPage6.Location = New System.Drawing.Point(4, 35)
|
||||
Me.TabPage6.Location = New System.Drawing.Point(4, 44)
|
||||
Me.TabPage6.Name = "TabPage6"
|
||||
Me.TabPage6.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.TabPage6.Size = New System.Drawing.Size(493, 461)
|
||||
Me.TabPage6.Size = New System.Drawing.Size(493, 452)
|
||||
Me.TabPage6.TabIndex = 4
|
||||
Me.TabPage6.Text = "Funimation"
|
||||
Me.TabPage6.VerticalScrollbarBarColor = True
|
||||
@ -1261,9 +1017,9 @@ Partial Class Einstellungen
|
||||
Me.GroupBox13.Controls.Add(Me.FunSubDef)
|
||||
Me.GroupBox13.Font = New System.Drawing.Font("Arial", 9.75!)
|
||||
Me.GroupBox13.ForeColor = System.Drawing.Color.Black
|
||||
Me.GroupBox13.Location = New System.Drawing.Point(6, 270)
|
||||
Me.GroupBox13.Location = New System.Drawing.Point(7, 270)
|
||||
Me.GroupBox13.Name = "GroupBox13"
|
||||
Me.GroupBox13.Size = New System.Drawing.Size(475, 69)
|
||||
Me.GroupBox13.Size = New System.Drawing.Size(480, 69)
|
||||
Me.GroupBox13.TabIndex = 56
|
||||
Me.GroupBox13.TabStop = False
|
||||
Me.GroupBox13.Text = "default subtitle"
|
||||
@ -1290,9 +1046,9 @@ Partial Class Einstellungen
|
||||
Me.GroupBox11.Controls.Add(Me.CB_vtt)
|
||||
Me.GroupBox11.Controls.Add(Me.CB_dfxp)
|
||||
Me.GroupBox11.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.GroupBox11.Location = New System.Drawing.Point(6, 182)
|
||||
Me.GroupBox11.Location = New System.Drawing.Point(7, 182)
|
||||
Me.GroupBox11.Name = "GroupBox11"
|
||||
Me.GroupBox11.Size = New System.Drawing.Size(475, 82)
|
||||
Me.GroupBox11.Size = New System.Drawing.Size(480, 82)
|
||||
Me.GroupBox11.TabIndex = 54
|
||||
Me.GroupBox11.TabStop = False
|
||||
Me.GroupBox11.Text = "Soft-Subtitle Format"
|
||||
@ -1339,9 +1095,9 @@ Partial Class Einstellungen
|
||||
Me.GroupBox10.Controls.Add(Me.Fun_Dub_Over)
|
||||
Me.GroupBox10.Font = New System.Drawing.Font("Arial", 9.75!)
|
||||
Me.GroupBox10.ForeColor = System.Drawing.Color.Black
|
||||
Me.GroupBox10.Location = New System.Drawing.Point(6, 345)
|
||||
Me.GroupBox10.Location = New System.Drawing.Point(7, 345)
|
||||
Me.GroupBox10.Name = "GroupBox10"
|
||||
Me.GroupBox10.Size = New System.Drawing.Size(475, 69)
|
||||
Me.GroupBox10.Size = New System.Drawing.Size(480, 69)
|
||||
Me.GroupBox10.TabIndex = 55
|
||||
Me.GroupBox10.TabStop = False
|
||||
Me.GroupBox10.Text = "Funimation Dub"
|
||||
@ -1367,9 +1123,9 @@ Partial Class Einstellungen
|
||||
Me.GroupBox7.Controls.Add(Me.CB_Fun_HardSubs)
|
||||
Me.GroupBox7.Font = New System.Drawing.Font("Arial", 9.75!)
|
||||
Me.GroupBox7.ForeColor = System.Drawing.Color.Black
|
||||
Me.GroupBox7.Location = New System.Drawing.Point(3, 6)
|
||||
Me.GroupBox7.Location = New System.Drawing.Point(7, 6)
|
||||
Me.GroupBox7.Name = "GroupBox7"
|
||||
Me.GroupBox7.Size = New System.Drawing.Size(478, 69)
|
||||
Me.GroupBox7.Size = New System.Drawing.Size(480, 69)
|
||||
Me.GroupBox7.TabIndex = 54
|
||||
Me.GroupBox7.TabStop = False
|
||||
Me.GroupBox7.Text = "Hard Subtitle (post-processed)"
|
||||
@ -1396,9 +1152,9 @@ Partial Class Einstellungen
|
||||
Me.GroupBox9.Controls.Add(Me.CB_fun_es)
|
||||
Me.GroupBox9.Controls.Add(Me.CB_fun_ptbr)
|
||||
Me.GroupBox9.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.GroupBox9.Location = New System.Drawing.Point(3, 81)
|
||||
Me.GroupBox9.Location = New System.Drawing.Point(7, 81)
|
||||
Me.GroupBox9.Name = "GroupBox9"
|
||||
Me.GroupBox9.Size = New System.Drawing.Size(478, 95)
|
||||
Me.GroupBox9.Size = New System.Drawing.Size(480, 95)
|
||||
Me.GroupBox9.TabIndex = 53
|
||||
Me.GroupBox9.TabStop = False
|
||||
Me.GroupBox9.Text = "Soft-Subtitle"
|
||||
@ -1443,9 +1199,9 @@ Partial Class Einstellungen
|
||||
'
|
||||
Me.TabPage8.BackColor = System.Drawing.Color.Transparent
|
||||
Me.TabPage8.Controls.Add(Me.GroupBox8)
|
||||
Me.TabPage8.Location = New System.Drawing.Point(4, 35)
|
||||
Me.TabPage8.Location = New System.Drawing.Point(4, 44)
|
||||
Me.TabPage8.Name = "TabPage8"
|
||||
Me.TabPage8.Size = New System.Drawing.Size(493, 461)
|
||||
Me.TabPage8.Size = New System.Drawing.Size(493, 452)
|
||||
Me.TabPage8.TabIndex = 6
|
||||
Me.TabPage8.Text = " AoD"
|
||||
'
|
||||
@ -1457,9 +1213,9 @@ Partial Class Einstellungen
|
||||
Me.GroupBox8.Controls.Add(Me.AoD_1080_Plus)
|
||||
Me.GroupBox8.Font = New System.Drawing.Font("Arial", 9.75!)
|
||||
Me.GroupBox8.ForeColor = System.Drawing.Color.Black
|
||||
Me.GroupBox8.Location = New System.Drawing.Point(3, 15)
|
||||
Me.GroupBox8.Location = New System.Drawing.Point(7, 15)
|
||||
Me.GroupBox8.Name = "GroupBox8"
|
||||
Me.GroupBox8.Size = New System.Drawing.Size(487, 74)
|
||||
Me.GroupBox8.Size = New System.Drawing.Size(480, 74)
|
||||
Me.GroupBox8.TabIndex = 39
|
||||
Me.GroupBox8.TabStop = False
|
||||
Me.GroupBox8.Text = "Anime on Demand unique resolution "
|
||||
@ -1515,9 +1271,9 @@ Partial Class Einstellungen
|
||||
Me.TabPage7.Controls.Add(Me.Label4)
|
||||
Me.TabPage7.Controls.Add(Me.Label6)
|
||||
Me.TabPage7.Controls.Add(Me.Label5)
|
||||
Me.TabPage7.Location = New System.Drawing.Point(4, 35)
|
||||
Me.TabPage7.Location = New System.Drawing.Point(4, 44)
|
||||
Me.TabPage7.Name = "TabPage7"
|
||||
Me.TabPage7.Size = New System.Drawing.Size(493, 461)
|
||||
Me.TabPage7.Size = New System.Drawing.Size(493, 452)
|
||||
Me.TabPage7.TabIndex = 5
|
||||
Me.TabPage7.Text = "About "
|
||||
'
|
||||
@ -1633,12 +1389,30 @@ Partial Class Einstellungen
|
||||
'BackgroundWorker1
|
||||
'
|
||||
'
|
||||
'MetroTabPage1
|
||||
'
|
||||
Me.MetroTabPage1.Controls.Add(Me.GroupBox14)
|
||||
Me.MetroTabPage1.Controls.Add(Me.GB_SubLanguage)
|
||||
Me.MetroTabPage1.Controls.Add(Me.SoftSubs)
|
||||
Me.MetroTabPage1.Controls.Add(Me.PictureBox2)
|
||||
Me.MetroTabPage1.HorizontalScrollbarBarColor = True
|
||||
Me.MetroTabPage1.HorizontalScrollbarHighlightOnWheel = False
|
||||
Me.MetroTabPage1.HorizontalScrollbarSize = 10
|
||||
Me.MetroTabPage1.Location = New System.Drawing.Point(4, 44)
|
||||
Me.MetroTabPage1.Name = "MetroTabPage1"
|
||||
Me.MetroTabPage1.Size = New System.Drawing.Size(493, 452)
|
||||
Me.MetroTabPage1.TabIndex = 7
|
||||
Me.MetroTabPage1.Text = "Crunchyroll"
|
||||
Me.MetroTabPage1.VerticalScrollbarBarColor = True
|
||||
Me.MetroTabPage1.VerticalScrollbarHighlightOnWheel = False
|
||||
Me.MetroTabPage1.VerticalScrollbarSize = 10
|
||||
'
|
||||
'Einstellungen
|
||||
'
|
||||
Me.ApplyImageInvert = True
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
|
||||
Me.BorderStyle = MetroFramework.Forms.MetroFormBorderStyle.FixedSingle
|
||||
Me.ClientSize = New System.Drawing.Size(545, 625)
|
||||
Me.ClientSize = New System.Drawing.Size(546, 625)
|
||||
Me.Controls.Add(Me.TabControl1)
|
||||
Me.Controls.Add(Me.pictureBox4)
|
||||
Me.Controls.Add(Me.pictureBox1)
|
||||
@ -1653,20 +1427,11 @@ Partial Class Einstellungen
|
||||
Me.TextAlign = MetroFramework.Forms.MetroFormTextAlign.Center
|
||||
CType(Me.pictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.pictureBox4, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.TabPage4.ResumeLayout(False)
|
||||
Me.TabControl2.ResumeLayout(False)
|
||||
Me.TabPage5.ResumeLayout(False)
|
||||
Me.TabPage5.PerformLayout()
|
||||
Me.GroupBox14.ResumeLayout(False)
|
||||
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.SoftSubs.ResumeLayout(False)
|
||||
Me.SoftSubs.PerformLayout()
|
||||
Me.GB_SubLanguage.ResumeLayout(False)
|
||||
Me.TabPage3.ResumeLayout(False)
|
||||
Me.GroupBox3.ResumeLayout(False)
|
||||
CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.MultiDLSoftSubs.ResumeLayout(False)
|
||||
CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.TabPage2.ResumeLayout(False)
|
||||
Me.TabPage2.PerformLayout()
|
||||
Me.GroupBox12.ResumeLayout(False)
|
||||
@ -1702,6 +1467,8 @@ Partial Class Einstellungen
|
||||
Me.GroupBox8.PerformLayout()
|
||||
Me.TabPage7.ResumeLayout(False)
|
||||
CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.MetroTabPage1.ResumeLayout(False)
|
||||
Me.MetroTabPage1.PerformLayout()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
@ -1710,11 +1477,6 @@ Partial Class Einstellungen
|
||||
Private WithEvents pictureBox1 As PictureBox
|
||||
Private WithEvents pictureBox4 As PictureBox
|
||||
Friend WithEvents ToolTip2 As ToolTip
|
||||
Friend WithEvents TabPage4 As TabPage
|
||||
Public WithEvents GroupBox3 As GroupBox
|
||||
Public WithEvents PictureBox5 As PictureBox
|
||||
Public WithEvents MultiDLSoftSubs As GroupBox
|
||||
Public WithEvents PictureBox3 As PictureBox
|
||||
Friend WithEvents GroupBox2 As GroupBox
|
||||
Friend WithEvents Panel1 As Panel
|
||||
Friend WithEvents MenuStrip1 As MenuStrip
|
||||
@ -1747,9 +1509,6 @@ Partial Class Einstellungen
|
||||
Friend WithEvents GroupBox4 As GroupBox
|
||||
Friend WithEvents GroupBox6 As GroupBox
|
||||
Friend WithEvents NumericUpDown2 As NumericUpDown
|
||||
Private WithEvents TabControl2 As MetroFramework.Controls.MetroTabControl
|
||||
Private WithEvents TabPage5 As MetroFramework.Controls.MetroTabPage
|
||||
Private WithEvents TabPage3 As MetroFramework.Controls.MetroTabPage
|
||||
Private WithEvents TabPage2 As MetroFramework.Controls.MetroTabPage
|
||||
Private WithEvents TabPage1 As MetroFramework.Controls.MetroTabPage
|
||||
Private WithEvents TabControl1 As MetroFramework.Controls.MetroTabControl
|
||||
@ -1764,8 +1523,6 @@ Partial Class Einstellungen
|
||||
Friend WithEvents GroupBox11 As GroupBox
|
||||
Friend WithEvents GroupBox12 As GroupBox
|
||||
Friend WithEvents Button1 As Button
|
||||
Public WithEvents StatusLabel As MetroFramework.Controls.MetroLabel
|
||||
Public WithEvents SoftSubsMass As MetroFramework.Controls.MetroLabel
|
||||
Friend WithEvents ListViewAdd_True As MetroFramework.Controls.MetroCheckBox
|
||||
Friend WithEvents Label1 As MetroFramework.Controls.MetroLabel
|
||||
Friend WithEvents MergeMP4 As MetroFramework.Controls.MetroCheckBox
|
||||
@ -1804,10 +1561,6 @@ Partial Class Einstellungen
|
||||
Public WithEvents Label3 As MetroFramework.Controls.MetroLabel
|
||||
Friend WithEvents MetroLabel1 As MetroFramework.Controls.MetroLabel
|
||||
Friend WithEvents DarkMode As MetroFramework.Controls.MetroCheckBox
|
||||
Public WithEvents TextBox2 As MetroFramework.Controls.MetroTextBox
|
||||
Public WithEvents comboBox4 As MetroFramework.Controls.MetroComboBox
|
||||
Public WithEvents ComboBox2 As MetroFramework.Controls.MetroComboBox
|
||||
Public WithEvents comboBox3 As MetroFramework.Controls.MetroComboBox
|
||||
Friend WithEvents TextBox1 As MetroFramework.Controls.MetroTextBox
|
||||
Friend WithEvents ComboBox1 As MetroFramework.Controls.MetroComboBox
|
||||
Friend WithEvents CB_Fun_HardSubs As MetroFramework.Controls.MetroComboBox
|
||||
@ -1824,4 +1577,5 @@ Partial Class Einstellungen
|
||||
Friend WithEvents CR_SoftSubDefault As MetroFramework.Controls.MetroComboBox
|
||||
Friend WithEvents CB_Format As MetroFramework.Controls.MetroComboBox
|
||||
Friend WithEvents HybridMode_CB As MetroFramework.Controls.MetroCheckBox
|
||||
Friend WithEvents MetroTabPage1 As MetroFramework.Controls.MetroTabPage
|
||||
End Class
|
||||
|
||||
@ -727,7 +727,7 @@ Public Class Einstellungen
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub ComboBox1_DrawItem(sender As Object, e As DrawItemEventArgs) Handles ComboBox1.DrawItem, ComboBox2.DrawItem, comboBox3.DrawItem, comboBox4.DrawItem, CB_Fun_HardSubs.DrawItem, Fun_Dub_Over.DrawItem, CR_Filename.DrawItem
|
||||
Private Sub ComboBox1_DrawItem(sender As Object, e As DrawItemEventArgs) Handles ComboBox1.DrawItem, CB_Fun_HardSubs.DrawItem, Fun_Dub_Over.DrawItem, CR_Filename.DrawItem
|
||||
Dim CB As ComboBox = sender
|
||||
CB.BackColor = Color.White
|
||||
If e.Index >= 0 Then
|
||||
@ -779,109 +779,11 @@ Public Class Einstellungen
|
||||
|
||||
|
||||
|
||||
Private Sub PictureBox5_Click(sender As Object, e As EventArgs) Handles PictureBox5.Click
|
||||
If Main.SoftSubs.Count > 0 Then
|
||||
If CBool(InStr(TextBox2.Text, "crunchyroll.com")) Then
|
||||
GeckoFX.WebBrowser1.Navigate(TextBox2.Text)
|
||||
StatusLabel.Text = "Status: looking for subtitles"
|
||||
Main.d = False
|
||||
Main.b = False
|
||||
End If
|
||||
Else
|
||||
Main.TempSoftSubs.Clear()
|
||||
If CBdeDE.Checked = True Then
|
||||
Main.TempSoftSubs.Add("deDE")
|
||||
End If
|
||||
If CBenUS.Checked = True Then
|
||||
Main.TempSoftSubs.Add("enUS")
|
||||
End If
|
||||
If CBptBR.Checked = True Then
|
||||
Main.TempSoftSubs.Add("ptBR")
|
||||
End If
|
||||
If CBesLA.Checked = True Then
|
||||
Main.TempSoftSubs.Add("esLA")
|
||||
End If
|
||||
If CBfrFR.Checked = True Then
|
||||
Main.TempSoftSubs.Add("frFR")
|
||||
End If
|
||||
If CBarME.Checked = True Then
|
||||
Main.TempSoftSubs.Add("arME")
|
||||
End If
|
||||
If CBruRU.Checked = True Then
|
||||
Main.TempSoftSubs.Add("ruRU")
|
||||
End If
|
||||
If CBitIT.Checked = True Then
|
||||
Main.TempSoftSubs.Add("itIT")
|
||||
End If
|
||||
If CBesES.Checked = True Then
|
||||
Main.TempSoftSubs.Add("esES")
|
||||
End If
|
||||
If Main.TempSoftSubs.Count > 0 Then
|
||||
|
||||
If CBool(InStr(TextBox2.Text, "crunchyroll.com")) Then
|
||||
GeckoFX.WebBrowser1.Navigate(TextBox2.Text)
|
||||
StatusLabel.Text = "Status: looking for subtitles"
|
||||
Main.d = False
|
||||
Main.b = False
|
||||
End If
|
||||
Else
|
||||
StatusLabel.Text = "Status: No language selected"
|
||||
Pause(3)
|
||||
StatusLabel.Text = "Status: idle"
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click
|
||||
Main.MassSubsDL()
|
||||
End Sub
|
||||
|
||||
Private Sub PictureBox3_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox3.MouseEnter
|
||||
PictureBox3.Image = My.Resources.softsubs_download_hover
|
||||
End Sub
|
||||
|
||||
Private Sub PictureBox3_MouseLeave(sender As Object, e As EventArgs) Handles PictureBox3.MouseLeave
|
||||
PictureBox3.Image = My.Resources.softsubs_download
|
||||
End Sub
|
||||
Private Sub PictureBox5_MouseEnter(sender As Object, e As EventArgs) Handles PictureBox5.MouseEnter
|
||||
PictureBox5.Image = My.Resources.softsubs_download_hover
|
||||
End Sub
|
||||
|
||||
Private Sub PictureBox5_MouseLeave(sender As Object, e As EventArgs) Handles PictureBox5.MouseLeave
|
||||
PictureBox5.Image = My.Resources.softsubs_download
|
||||
End Sub
|
||||
|
||||
Private Sub TextBox2_Click(sender As Object, e As EventArgs) Handles TextBox2.Click
|
||||
If TextBox2.Text = "URL" Then
|
||||
TextBox2.Text = Nothing
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
|
||||
|
||||
comboBox3.Items.Clear()
|
||||
comboBox4.Items.Clear()
|
||||
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) + ">" + ComboBox2.SelectedItem.ToString + "</a>") Then
|
||||
SDV = i
|
||||
End If
|
||||
Next
|
||||
Dim Anzahl As String() = SeasonDropdownAnzahl(SDV).Split(New String() {"wrapper container-shadow hover-classes"}, System.StringSplitOptions.RemoveEmptyEntries)
|
||||
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
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
|
||||
@ -963,7 +865,6 @@ Public Class Einstellungen
|
||||
GB_Resolution.ForeColor = color
|
||||
GroupBox1.ForeColor = color
|
||||
GroupBox2.ForeColor = color
|
||||
GroupBox3.ForeColor = color
|
||||
GroupBox5.ForeColor = color
|
||||
GroupBox6.ForeColor = color
|
||||
GroupBox7.ForeColor = color
|
||||
|
||||
@ -125,7 +125,8 @@ Public Class network_scan
|
||||
Dim startinfo As New System.Diagnostics.ProcessStartInfo
|
||||
Dim sr As StreamReader
|
||||
Dim cmd As String = "-headers " + My.Resources.ffmpeg_user_agend + " -i " + Chr(34) + ComboBox2.Text + Chr(34) 'start ffmpeg with command strFFCMD string
|
||||
'
|
||||
|
||||
'MsgBox(cmd)
|
||||
Dim ffmpegOutput As String = Nothing
|
||||
Dim ffmpegOutputLine As String = Nothing
|
||||
Dim ffmpegOutputLine2 As String = Nothing
|
||||
@ -160,7 +161,18 @@ Public Class network_scan
|
||||
Dim ZeileReso3() As String = ffmpegOutput2(i).Split(New String() {": Video:"}, System.StringSplitOptions.RemoveEmptyEntries)
|
||||
Dim ZeileReso4() As String = ZeileReso3(0).Split(New String() {"Stream #"}, System.StringSplitOptions.RemoveEmptyEntries)
|
||||
|
||||
|
||||
If InStr(ZeileReso2(ZeileReso2.Count - 1), ", ") Then
|
||||
Dim ZeileReso5() As String = ZeileReso2(ZeileReso2.Count - 1).Split(New String() {", "}, System.StringSplitOptions.RemoveEmptyEntries)
|
||||
ComboBox3.Items.Add(ZeileReso5(0).Trim + ":--:" + ZeileReso4(1))
|
||||
|
||||
Else
|
||||
ComboBox3.Items.Add(ZeileReso2(ZeileReso2.Count - 1).Trim + ":--:" + ZeileReso4(1))
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
ElseIf InStr(ffmpegOutput2(i), "Duration: N/A, bitrate: N/A") Then
|
||||
|
||||
ElseIf InStr(ffmpegOutput2(i), "Subtitle: ") Then
|
||||
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Loading…
x
Reference in New Issue
Block a user