small fixes

small fixes
This commit is contained in:
hama3254 2020-12-03 19:29:44 +01:00
parent 46ddd0dc55
commit df236bd401
23 changed files with 126 additions and 58 deletions

Binary file not shown.

Binary file not shown.

View File

@ -102,15 +102,15 @@ Partial Class CRD_List_Item
Me.Label_Reso.Font = New System.Drawing.Font("Consolas", 12.0!, System.Drawing.FontStyle.Bold) Me.Label_Reso.Font = New System.Drawing.Font("Consolas", 12.0!, System.Drawing.FontStyle.Bold)
Me.Label_Reso.Location = New System.Drawing.Point(195, 101) Me.Label_Reso.Location = New System.Drawing.Point(195, 101)
Me.Label_Reso.Name = "Label_Reso" Me.Label_Reso.Name = "Label_Reso"
Me.Label_Reso.Size = New System.Drawing.Size(99, 19) Me.Label_Reso.Size = New System.Drawing.Size(54, 19)
Me.Label_Reso.TabIndex = 5 Me.Label_Reso.TabIndex = 5
Me.Label_Reso.Text = "Resolution" Me.Label_Reso.Text = "1080p"
' '
'Label_Hardsub 'Label_Hardsub
' '
Me.Label_Hardsub.AutoSize = True Me.Label_Hardsub.AutoSize = True
Me.Label_Hardsub.Font = New System.Drawing.Font("Consolas", 12.0!, System.Drawing.FontStyle.Bold) Me.Label_Hardsub.Font = New System.Drawing.Font("Consolas", 12.0!, System.Drawing.FontStyle.Bold)
Me.Label_Hardsub.Location = New System.Drawing.Point(300, 101) Me.Label_Hardsub.Location = New System.Drawing.Point(260, 101)
Me.Label_Hardsub.Name = "Label_Hardsub" Me.Label_Hardsub.Name = "Label_Hardsub"
Me.Label_Hardsub.Size = New System.Drawing.Size(126, 19) Me.Label_Hardsub.Size = New System.Drawing.Size(126, 19)
Me.Label_Hardsub.TabIndex = 6 Me.Label_Hardsub.TabIndex = 6

View File

@ -303,7 +303,7 @@ Public Class CRD_List_Item
Label_website.Location = New Point(195, locationY + 15) Label_website.Location = New Point(195, locationY + 15)
Label_Anime.Location = New Point(195, locationY + 42) Label_Anime.Location = New Point(195, locationY + 42)
Label_Reso.Location = New Point(195, locationY + 101) Label_Reso.Location = New Point(195, locationY + 101)
Label_Hardsub.Location = New Point(300, locationY + 101) Label_Hardsub.Location = New Point(260, locationY + 101)
Label_percent.SetBounds(432, locationY + 101, 378, 19) Label_percent.SetBounds(432, locationY + 101, 378, 19)
Label_percent.AutoSize = False Label_percent.AutoSize = False
ProgressBar1.SetBounds(195, locationY + 70, 601, 20) ProgressBar1.SetBounds(195, locationY + 70, 601, 20)

View File

@ -137,6 +137,7 @@ Partial Class Main
' '
'Timer1 'Timer1
' '
Me.Timer1.Enabled = True
' '
'Timer2 'Timer2
' '

View File

@ -132,23 +132,6 @@ Public Class Main
Me.Invalidate() Me.Invalidate()
End Sub End Sub
Private Sub ListView1_MouseWheel(sender As Object, e As MouseEventArgs) Handles ListView1.MouseWheel
Try
For s As Integer = 0 To ListView1.Items.Count - 1
Dim r As Rectangle = ListView1.Items.Item(s).Bounds
ItemList(s).SetBounds(r.X, r.Y, ListView1.Width - 2, r.Height)
If ItemList(s).GetToDispose() = True Then
ItemList(s).DisposeItem(ItemList(s).GetToDispose())
ItemList.RemoveAt(s)
ListView1.Items.RemoveAt(s)
End If
Next
Catch ex As Exception
End Try
End Sub
Dim ListViewHeightOffset As Integer = 7 Dim ListViewHeightOffset As Integer = 7
@ -1313,10 +1296,10 @@ Public Class Main
End If End If
If CBool(InStr(WebbrowserText, "vilos.config.player.pause_screen.text = " + Chr(34))) Then
Dim CR_Name_1 As String() = WebbrowserText.Split(New String() {"vilos.config.player.pause_screen.text = " + Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries) If CBool(InStr(WebbrowserText, My.Resources.CR_MediaName)) = True Then ' And CBool(InStr(WebbrowserText, "&rdquo;</h4>"))
Dim CR_Name_2 As String() = CR_Name_1(1).Split(New String() {Chr(34) + ";"}, System.StringSplitOptions.RemoveEmptyEntries) '(New [Char]() {"-"}) Dim CR_Name_1 As String() = WebbrowserText.Split(New String() {My.Resources.CR_MediaName}, System.StringSplitOptions.RemoveEmptyEntries)
Dim CR_Name_2 As String() = CR_Name_1(1).Split(New String() {My.Resources.CR_MediaName2}, System.StringSplitOptions.RemoveEmptyEntries) '(New [Char]() {"-"})
CR_Anime_Name = System.Text.RegularExpressions.Regex.Replace(CR_Name_2(0), "[^\w\\-]", " ") CR_Anime_Name = System.Text.RegularExpressions.Regex.Replace(CR_Name_2(0), "[^\w\\-]", " ")
CR_Anime_Name = RemoveExtraSpaces(CR_Anime_Name) CR_Anime_Name = RemoveExtraSpaces(CR_Anime_Name)
End If End If
@ -1369,7 +1352,7 @@ Public Class Main
End If End If
Pfad2 = Chr(34) + Pfad2 + "\" + CR_FilenName + ".mp4" + Chr(34) Pfad2 = Chr(34) + Pfad2 + "\" + CR_FilenName + ".mp4" + Chr(34)
Pfad2 = Pfad2.Replace("\\", "\")
#End Region #End Region
#Region "Subs" #Region "Subs"
Dim SoftSubs2 As New List(Of String) Dim SoftSubs2 As New List(Of String)
@ -1667,7 +1650,11 @@ Public Class Main
ResoHTMLDisplay = ResoHTML(0) + "p" ResoHTMLDisplay = ResoHTML(0) + "p"
End If End If
End If End If
Dim L2Name As String = CR_FilenName_Backup Dim L2Name As String = System.Text.RegularExpressions.Regex.Replace(CR_FilenName_Backup, "[^\w\\-]", " ")
If CR_FilenName = Nothing Then
Else
L2Name = CR_FilenName
End If
If Reso = 42 Then If Reso = 42 Then
ResoHTMLDisplay = "[Auto]" ResoHTMLDisplay = "[Auto]"
End If End If
@ -3068,6 +3055,14 @@ Public Class Main
End If End If
End Function End Function
Private Sub ListView1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListView1.SelectedIndexChanged
End Sub
Private Sub ListView1_RegionChanged(sender As Object, e As EventArgs) Handles ListView1.RegionChanged
End Sub

View File

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

View File

@ -236,6 +236,24 @@ Namespace My.Resources
End Get End Get
End Property End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die &lt;h4 id=&quot;showmedia_about_name&quot; class=&quot;strong&quot;&gt; ähnelt.
'''</summary>
Friend ReadOnly Property CR_MediaName() As String
Get
Return ResourceManager.GetString("CR_MediaName", resourceCulture)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die &lt;/h4&gt; ähnelt.
'''</summary>
Friend ReadOnly Property CR_MediaName2() As String
Get
Return ResourceManager.GetString("CR_MediaName2", resourceCulture)
End Get
End Property
'''<summary> '''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary> '''</summary>

View File

@ -526,4 +526,10 @@ Dialogue: 0,0:00:00.00,0:00:00.00,Default,,0000,0000,0000,,some ideas on how tem
<data name="AoD_HTML_Episode_Title" xml:space="preserve"> <data name="AoD_HTML_Episode_Title" xml:space="preserve">
<value>&lt;h3 class="episodebox-title" title="</value> <value>&lt;h3 class="episodebox-title" title="</value>
</data> </data>
<data name="CR_MediaName" xml:space="preserve">
<value>&lt;h4 id="showmedia_about_name" class="strong"&gt;“</value>
</data>
<data name="CR_MediaName2" xml:space="preserve">
<value>”&lt;/h4&gt;</value>
</data>
</root> </root>

View File

@ -122,6 +122,16 @@ Video Position: 0
Sucht eine lokalisierte Zeichenfolge, die &lt;meta property=&quot;og:url&quot; content=&quot; ähnelt. Sucht eine lokalisierte Zeichenfolge, die &lt;meta property=&quot;og:url&quot; content=&quot; ähnelt.
</summary> </summary>
</member> </member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.CR_MediaName">
<summary>
Sucht eine lokalisierte Zeichenfolge, die &lt;h4 id=&quot;showmedia_about_name&quot; class=&quot;strong&quot;&gt;“ ähnelt.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.CR_MediaName2">
<summary>
Sucht eine lokalisierte Zeichenfolge, die ”&lt;/h4&gt; ähnelt.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.crdSettings_Background"> <member name="P:Crunchyroll_Downloader.My.Resources.Resources.crdSettings_Background">
<summary> <summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.

View File

@ -30,6 +30,34 @@
<a class="main_titel">Crunchyroll Downloader</a> <a class="main_titel">Crunchyroll Downloader</a>
<img alt="image error" src="balken.png" class="class-balken"> <img alt="image error" src="balken.png" class="class-balken">
<div class="div-episode">
<img alt="image error" src="https://img1.ak.crunchyroll.com/i/spire4-tmb/43a60a9d2877b11429d71c81db6d76361408647106_fwide.jpg" class="imagestyle">
<div>
<span class="titel" dir="auto">RWBY <br> Staffel 2 Folge 4 5</span>
<div class="progressbar">
<div class="progressbar-value" style="width:100%"></div>
</div>
<span dir="auto" class='percenttext'>Finished - 133,73MB</span>
<div>
<br>
<span dir="auto" class="resotext">1080p</span>
<a href="#" class="cc-wert" title="Softsubs:
"> <img alt="image error" src="cc.png" class="class-cc">Português (Brasil)</a>
</div>
</div>
</div>
<img alt="image error" src="balken.png" class="class-balken"><!-- RWBY Staffel 2 Die Welt von Remnant 1 Dust-->
<script> <script>
setInterval(function loadXMLDoc() { setInterval(function loadXMLDoc() {

View File

@ -122,6 +122,16 @@ Video Position: 0
Sucht eine lokalisierte Zeichenfolge, die &lt;meta property=&quot;og:url&quot; content=&quot; ähnelt. Sucht eine lokalisierte Zeichenfolge, die &lt;meta property=&quot;og:url&quot; content=&quot; ähnelt.
</summary> </summary>
</member> </member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.CR_MediaName">
<summary>
Sucht eine lokalisierte Zeichenfolge, die &lt;h4 id=&quot;showmedia_about_name&quot; class=&quot;strong&quot;&gt;“ ähnelt.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.CR_MediaName2">
<summary>
Sucht eine lokalisierte Zeichenfolge, die ”&lt;/h4&gt; ähnelt.
</summary>
</member>
<member name="P:Crunchyroll_Downloader.My.Resources.Resources.crdSettings_Background"> <member name="P:Crunchyroll_Downloader.My.Resources.Resources.crdSettings_Background">
<summary> <summary>
Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.