fixes and improvements
fix UI #876 change language text #868 fix integer overflow v4 processing (maybe #872)
This commit is contained in:
hama3254
parent
c66a8d21f7
commit
4ee9664b3a
|
|
@ -0,0 +1,13 @@
|
|||
[*.vb]
|
||||
|
||||
# IDE0059: Unnötige Zuweisung eines Werts.
|
||||
dotnet_diagnostic.IDE0059.severity = none
|
||||
|
||||
# IDE0054: Verbundzuweisung verwenden
|
||||
dotnet_diagnostic.IDE0054.severity = none
|
||||
|
||||
# IDE0017: Initialisierung von Objekten vereinfachen
|
||||
dotnet_diagnostic.IDE0017.severity = none
|
||||
|
||||
# IDE0140: Objekterstellung kann vereinfacht werden
|
||||
dotnet_diagnostic.IDE0140.severity = none
|
||||
Binary file not shown.
|
|
@ -1,10 +1,15 @@
|
|||
|
||||
Microsoft Visual Studio Solution File, Format Version 12.00
|
||||
# Visual Studio 15
|
||||
VisualStudioVersion = 15.0.27703.2035
|
||||
# Visual Studio Version 17
|
||||
VisualStudioVersion = 17.6.33815.320
|
||||
MinimumVisualStudioVersion = 10.0.40219.1
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Crunchyroll Downloader", "Crunchyroll Downloader\Crunchyroll Downloader.vbproj", "{9B604819-2DB7-4BE1-BA43-43BABEBB5EC3}"
|
||||
EndProject
|
||||
Project("{2150E333-8FDC-42A3-9474-1A3956D46DE8}") = "Solution Items", "Solution Items", "{BDF9FC54-2F89-41D3-A506-81319A019CDE}"
|
||||
ProjectSection(SolutionItems) = preProject
|
||||
.editorconfig = .editorconfig
|
||||
EndProjectSection
|
||||
EndProject
|
||||
Global
|
||||
GlobalSection(SolutionConfigurationPlatforms) = preSolution
|
||||
Debug|x64 = Debug|x64
|
||||
|
|
|
|||
|
|
@ -189,12 +189,13 @@ Public Class Anime_Add
|
|||
Dim Reso As String = "NaN"
|
||||
Dim HardSub As String = "maybe?"
|
||||
Dim ThumbnialURL As String = "no"
|
||||
Dim URL_DL As String = textBox1.Text
|
||||
Dim URL_DL As String = "-i " + Chr(34) + textBox1.Text + Chr(34) + " " + Main.ffmpeg_command
|
||||
Dim Pfad_DL As String = Path.Combine(Main.Pfad, Namep2)
|
||||
Dim Service As String = "other"
|
||||
|
||||
MsgBox(URL_DL)
|
||||
|
||||
Main.ItemConstructor(NameKomplett, NameP1, NameP2, Reso, HardSub, ThumbnialURL, URL_DL, Pfad_DL, Service)
|
||||
Main.ItemConstructor(NameKomplett, Namep1, Namep2, Reso, HardSub, ThumbnialURL, URL_DL, Chr(34) + Pfad_DL + Chr(34), Service)
|
||||
|
||||
ElseIf CBool(InStr(textBox1.Text, "crunchyroll.com")) Or CBool(InStr(textBox1.Text, "funimation.com")) Then
|
||||
|
||||
|
|
|
|||
|
|
@ -702,7 +702,7 @@ Public Class CRD_List_Item
|
|||
Dim Zeile2 As String = zeile.Replace("#EXT-X-BYTERANGE:", "")
|
||||
Dim Zeile3() As String = Zeile2.Split(New String() {"@"}, System.StringSplitOptions.RemoveEmptyEntries)
|
||||
|
||||
Dim CurrentSize As Integer = Integer.Parse(Zeile3(1))
|
||||
Dim CurrentSize As Long = Long.Parse(Zeile3(1))
|
||||
Dim NewBytes As Integer = Integer.Parse(Zeile3(0))
|
||||
Dim File As String = Folder + String.Format("{0:0000}", Count)
|
||||
Dim Evaluator = New Thread(Sub() Me.DownloadTSv4(DownloadFile, File, CurrentSize, NewBytes))
|
||||
|
|
@ -743,7 +743,7 @@ Public Class CRD_List_Item
|
|||
|
||||
End Function
|
||||
|
||||
Private Sub DownloadTSv4(ByVal DL_URL As String, ByVal DL_Pfad As String, ByVal CurrentSize As Integer, ByVal NewBytes As Integer)
|
||||
Private Sub DownloadTSv4(ByVal DL_URL As String, ByVal DL_Pfad As String, ByVal CurrentSize As Long, ByVal NewBytes As Integer)
|
||||
Dim retryCount As Integer = 3
|
||||
HybrideLog = HybrideLog + vbNewLine + Date.Now.ToString + ": " + DL_Pfad + " - " + DL_URL + " - " + CurrentSize.ToString
|
||||
While CBool(retryCount > 0)
|
||||
|
|
|
|||
|
|
@ -24,27 +24,47 @@ Partial Class CheckBoxComboBox
|
|||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Me.Animation = New System.Windows.Forms.Timer(Me.components)
|
||||
Me.BGP = New MetroFramework.Controls.MetroPanel()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'Animation
|
||||
'
|
||||
Me.Animation.Interval = 10
|
||||
'
|
||||
'BGP
|
||||
'
|
||||
Me.BGP.AutoScroll = True
|
||||
Me.BGP.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.BGP.HorizontalScrollbar = True
|
||||
Me.BGP.HorizontalScrollbarBarColor = True
|
||||
Me.BGP.HorizontalScrollbarHighlightOnWheel = False
|
||||
Me.BGP.HorizontalScrollbarSize = 10
|
||||
Me.BGP.Location = New System.Drawing.Point(5, 5)
|
||||
Me.BGP.Name = "BGP"
|
||||
Me.BGP.Size = New System.Drawing.Size(310, 317)
|
||||
Me.BGP.TabIndex = 0
|
||||
Me.BGP.VerticalScrollbar = True
|
||||
Me.BGP.VerticalScrollbarBarColor = True
|
||||
Me.BGP.VerticalScrollbarHighlightOnWheel = False
|
||||
Me.BGP.VerticalScrollbarSize = 10
|
||||
'
|
||||
'CheckBoxComboBox
|
||||
'
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
|
||||
Me.BorderStyle = MetroFramework.Forms.MetroFormBorderStyle.FixedSingle
|
||||
Me.ClientSize = New System.Drawing.Size(320, 327)
|
||||
Me.ControlBox = False
|
||||
Me.Controls.Add(Me.BGP)
|
||||
Me.DisplayHeader = False
|
||||
Me.MaximizeBox = False
|
||||
Me.MinimizeBox = False
|
||||
Me.Name = "CheckBoxComboBox"
|
||||
Me.Padding = New System.Windows.Forms.Padding(10, 30, 10, 10)
|
||||
Me.Padding = New System.Windows.Forms.Padding(5, 5, 5, 5)
|
||||
Me.TextAlign = MetroFramework.Forms.MetroFormTextAlign.Center
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
|
||||
Friend WithEvents Animation As Timer
|
||||
Friend WithEvents BGP As MetroFramework.Controls.MetroPanel
|
||||
End Class
|
||||
|
|
|
|||
|
|
@ -11,14 +11,15 @@ Public Class CheckBoxComboBox
|
|||
Dim Manager As New MetroStyleManager
|
||||
Dim Dubs As New List(Of MetroCheckBox)
|
||||
Dim Subs As New List(Of MetroCheckBox)
|
||||
Dim MyHeight As Integer = 330
|
||||
Dim MyHeight As Integer = 300
|
||||
Private Sub Reso_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
Manager.Owner = Me
|
||||
Me.StyleManager = Manager
|
||||
BGP.StyleManager = Manager
|
||||
|
||||
Me.Height = 15
|
||||
Animation.Enabled = True
|
||||
|
||||
BGP.StyleManager.Style = MetroColorStyle.Orange
|
||||
Me.StyleManager.Style = MetroColorStyle.Orange
|
||||
|
||||
If Me.Text = "CR Dub selection" Then
|
||||
|
|
@ -46,7 +47,7 @@ Public Class CheckBoxComboBox
|
|||
Dubs.Add(Dub)
|
||||
Me.Controls.Add(Dub)
|
||||
Next
|
||||
MyHeight = (Main.LangValueEnum.Count - 1) * 30
|
||||
'MyHeight = (Main.LangValueEnum.Count - 1) * 30
|
||||
|
||||
ElseIf Me.Text = "CR Sub selection" Then
|
||||
|
||||
|
|
@ -57,11 +58,11 @@ Public Class CheckBoxComboBox
|
|||
SubT.Name = Main.LangValueEnum(i).CR_Value
|
||||
SubT.FontSize = MetroCheckBoxSize.SomethingInBetween
|
||||
SubT.TextAlign = ContentAlignment.MiddleCenter
|
||||
SubT.SetBounds(2, 30 * Subs.Count + 1, 316, 25)
|
||||
SubT.SetBounds(2, 30 * Subs.Count + 1, 295, 25)
|
||||
SubT.UseCustomBackColor = True
|
||||
SubT.UseCustomForeColor = True
|
||||
SubT.ForeColor = Color.Black
|
||||
|
||||
SubT.StyleManager = Manager
|
||||
AddHandler SubT.MouseEnter, AddressOf ItemMouseEnter
|
||||
AddHandler SubT.MouseLeave, AddressOf ItemMouseLeave
|
||||
AddHandler SubT.CheckedChanged, AddressOf ItemCheckedChanged
|
||||
|
|
@ -71,10 +72,10 @@ Public Class CheckBoxComboBox
|
|||
End If
|
||||
|
||||
Subs.Add(SubT)
|
||||
Me.Controls.Add(SubT)
|
||||
BGP.Controls.Add(SubT)
|
||||
Next
|
||||
|
||||
MyHeight = (Main.LangValueEnum.Count - 2) * 30
|
||||
'MyHeight = 300 '(Main.LangValueEnum.Count - 2) * 30
|
||||
End If
|
||||
|
||||
|
||||
|
|
@ -112,9 +113,9 @@ Public Class CheckBoxComboBox
|
|||
|
||||
Private Sub CheckBoxComboBox_LocationChanged(sender As Object, e As EventArgs) Handles Me.LocationChanged
|
||||
If Me.Text = "CR Dub selection" Then
|
||||
Me.Location = New Point(Einstellungen.Location.X + 116, Einstellungen.Location.Y + 204)
|
||||
Me.Location = New Point(Einstellungen.Location.X + 116, Einstellungen.Location.Y + 200)
|
||||
ElseIf Me.Text = "CR Sub selection" Then
|
||||
Me.Location = New Point(Einstellungen.Location.X + 116, Einstellungen.Location.Y + 344)
|
||||
Me.Location = New Point(Einstellungen.Location.X + 116, Einstellungen.Location.Y + 340)
|
||||
End If
|
||||
|
||||
|
||||
|
|
@ -166,5 +167,4 @@ Public Class CheckBoxComboBox
|
|||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
End Class
|
||||
|
|
@ -104,7 +104,7 @@
|
|||
<WarningsAsErrors>41999,42016,42017,42018,42019,42020,42021,42022,42032,42036</WarningsAsErrors>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<Reference Include="MetroFramework, Version=1.4.0.0, Culture=neutral, PublicKeyToken=5f91a84759bf584a, processorArchitecture=x86">
|
||||
<Reference Include="MetroFramework, Version=1.4.0.0, Culture=neutral, PublicKeyToken=5f91a84759bf584a, processorArchitecture=AMD64">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>..\..\..\metroframework-modern-ui\MetroFramework\bin\x64\Debug\MetroFramework.dll</HintPath>
|
||||
</Reference>
|
||||
|
|
@ -272,6 +272,9 @@
|
|||
</EmbeddedResource>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="..\.editorconfig">
|
||||
<Link>.editorconfig</Link>
|
||||
</None>
|
||||
<None Include="bin\x86\Debug\Lib\chrome_100_percent.pak" />
|
||||
<None Include="bin\x86\Debug\Lib\chrome_200_percent.pak" />
|
||||
<None Include="bin\x86\Debug\Lib\icudtl.dat" />
|
||||
|
|
|
|||
|
|
@ -4417,11 +4417,11 @@ Public Class Main
|
|||
|
||||
LangValueEnum.Add(New NameValuePair("English (India)", "eng", "en-IN", Nothing))
|
||||
|
||||
LangValueEnum.Add(New NameValuePair("తెలుగు", "tel", "te-IN", Nothing))
|
||||
LangValueEnum.Add(New NameValuePair("తెలుగు (Telegu)", "tel", "te-IN", Nothing))
|
||||
|
||||
LangValueEnum.Add(New NameValuePair("हिंदी", "hin", "hi-IN", Nothing))
|
||||
LangValueEnum.Add(New NameValuePair("हिंदी (Hindi)", "hin", "hi-IN", Nothing))
|
||||
|
||||
LangValueEnum.Add(New NameValuePair("தமிழ்", "tam", "ta-IN", Nothing))
|
||||
LangValueEnum.Add(New NameValuePair("தமிழ் (Tamil)", "tam", "ta-IN", Nothing))
|
||||
|
||||
LangValueEnum.Add(New NameValuePair("中文 (中国)", "zho", "zh-CN", Nothing))
|
||||
|
||||
|
|
|
|||
|
|
@ -32,6 +32,6 @@ Imports System.Runtime.InteropServices
|
|||
' übernehmen, indem Sie "*" eingeben:
|
||||
' <Assembly: AssemblyVersion("1.0.*")>
|
||||
|
||||
<Assembly: AssemblyVersion("3.17")>
|
||||
<Assembly: AssemblyFileVersion("3.17")>
|
||||
<Assembly: AssemblyVersion("3.17.1")>
|
||||
<Assembly: AssemblyFileVersion("3.17.1")>
|
||||
<Assembly: NeutralResourcesLanguage("en")>
|
||||
|
|
|
|||
Loading…
Reference in New Issue