mirror of
https://github.com/hama3254/Crunchyroll-Downloader-v3.0.git
synced 2024-12-23 22:51:48 +01:00
Added logfile
added logfile
This commit is contained in:
parent
7a6f8a34c4
commit
5499acb541
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
@ -18,6 +18,7 @@ Public Class Main
|
||||
Public Thumbnail As String = Nothing
|
||||
Public MergeSubstoMP4 As Boolean = False
|
||||
Public LoginDialog As Boolean = False
|
||||
Public SaveLog As Boolean = False
|
||||
Dim ListOfStreams As New List(Of String)
|
||||
Public NonCR_Timeout As Integer = 5
|
||||
Public NonCR_URL As String = Nothing
|
||||
@ -248,7 +249,13 @@ Public Class Main
|
||||
End Try
|
||||
Try
|
||||
Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader")
|
||||
LoginDialog = CBool(Integer.Parse(rkg.GetValue("LoginDialog").ToString))
|
||||
SaveLog = CBool(Integer.Parse(rkg.GetValue("SaveLog").ToString))
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
Try
|
||||
Dim rkg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\CRDownloader")
|
||||
SaveLog = CBool(Integer.Parse(rkg.GetValue("SaveLog").ToString))
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
@ -1565,6 +1572,18 @@ Public Class Main
|
||||
Dim pr As Process = sender
|
||||
Dim FileNameSplit As String() = pr.StartInfo.Arguments.ToString().Split(New String() {Chr(34)}, System.StringSplitOptions.RemoveEmptyEntries)
|
||||
Dim FileName As String = Chr(34) + FileNameSplit(FileNameSplit.Count - 1) + Chr(34)
|
||||
Dim logfile As String = FileName.Replace(".mp4", ".log").Replace(Chr(34), "")
|
||||
If SaveLog = True Then
|
||||
If File.Exists(logfile) Then
|
||||
Using sw As StreamWriter = File.AppendText(logfile)
|
||||
sw.Write(vbNewLine)
|
||||
sw.Write(Date.Now + e.Data)
|
||||
End Using
|
||||
Else
|
||||
File.WriteAllText(logfile, Date.Now + e.Data)
|
||||
End If
|
||||
End If
|
||||
'MsgBox(FileName)
|
||||
'If CBool(InStr(e.Data, "[Parsed_cropdetect_0")) And CBool(InStr(e.Data, "crop=")) = True Then
|
||||
' If Debug2 = True Then
|
||||
' MsgBox(True.ToString)
|
||||
|
@ -32,6 +32,6 @@ Imports System.Runtime.InteropServices
|
||||
' übernehmen, indem Sie "*" eingeben:
|
||||
' <Assembly: AssemblyVersion("1.0.*")>
|
||||
|
||||
<Assembly: AssemblyVersion("3.2.6")>
|
||||
<Assembly: AssemblyFileVersion("3.2.6")>
|
||||
<Assembly: AssemblyVersion("3.2.7")>
|
||||
<Assembly: AssemblyFileVersion("3.2.7")>
|
||||
<Assembly: NeutralResourcesLanguage("en")>
|
||||
|
Binary file not shown.
Binary file not shown.
17
Crunchyroll Downloader/einstellungen.Designer.vb
generated
17
Crunchyroll Downloader/einstellungen.Designer.vb
generated
@ -87,6 +87,7 @@ Partial Class einstellungen
|
||||
Me.PictureBox2 = New System.Windows.Forms.PictureBox()
|
||||
Me.PictureBox6 = New System.Windows.Forms.PictureBox()
|
||||
Me.GroupBox5 = New System.Windows.Forms.GroupBox()
|
||||
Me.CB_Log = New System.Windows.Forms.CheckBox()
|
||||
Me.ListViewAdd_True = New System.Windows.Forms.CheckBox()
|
||||
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
@ -807,6 +808,7 @@ Partial Class einstellungen
|
||||
'GroupBox5
|
||||
'
|
||||
Me.GroupBox5.BackColor = System.Drawing.Color.Transparent
|
||||
Me.GroupBox5.Controls.Add(Me.CB_Log)
|
||||
Me.GroupBox5.Controls.Add(Me.ListViewAdd_True)
|
||||
Me.GroupBox5.Font = New System.Drawing.Font("Arial", 9.75!)
|
||||
Me.GroupBox5.ForeColor = System.Drawing.Color.Black
|
||||
@ -815,12 +817,22 @@ Partial Class einstellungen
|
||||
Me.GroupBox5.Size = New System.Drawing.Size(456, 55)
|
||||
Me.GroupBox5.TabIndex = 7
|
||||
Me.GroupBox5.TabStop = False
|
||||
Me.GroupBox5.Text = "Multi-Download"
|
||||
Me.GroupBox5.Text = "Other"
|
||||
'
|
||||
'CB_Log
|
||||
'
|
||||
Me.CB_Log.AutoSize = True
|
||||
Me.CB_Log.Location = New System.Drawing.Point(316, 21)
|
||||
Me.CB_Log.Name = "CB_Log"
|
||||
Me.CB_Log.Size = New System.Drawing.Size(84, 20)
|
||||
Me.CB_Log.TabIndex = 1
|
||||
Me.CB_Log.Text = "create log"
|
||||
Me.CB_Log.UseVisualStyleBackColor = True
|
||||
'
|
||||
'ListViewAdd_True
|
||||
'
|
||||
Me.ListViewAdd_True.AutoSize = True
|
||||
Me.ListViewAdd_True.Location = New System.Drawing.Point(104, 21)
|
||||
Me.ListViewAdd_True.Location = New System.Drawing.Point(30, 21)
|
||||
Me.ListViewAdd_True.Name = "ListViewAdd_True"
|
||||
Me.ListViewAdd_True.Size = New System.Drawing.Size(236, 20)
|
||||
Me.ListViewAdd_True.TabIndex = 0
|
||||
@ -1047,4 +1059,5 @@ Partial Class einstellungen
|
||||
Friend WithEvents TabControl1 As TabControl
|
||||
Friend WithEvents CB_Login As CheckBox
|
||||
Friend WithEvents ToolTip2 As ToolTip
|
||||
Friend WithEvents CB_Log As CheckBox
|
||||
End Class
|
||||
|
@ -123,6 +123,9 @@
|
||||
<metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>346, 17</value>
|
||||
</metadata>
|
||||
<metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>346, 17</value>
|
||||
</metadata>
|
||||
<metadata name="ToolTip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>461, 17</value>
|
||||
</metadata>
|
||||
|
@ -36,6 +36,9 @@ Public Class einstellungen
|
||||
If Main.LoginDialog = True Then
|
||||
CB_Login.Checked = True
|
||||
End If
|
||||
If Main.SaveLog = True Then
|
||||
CB_Log.Checked = True
|
||||
End If
|
||||
Try
|
||||
GB_Resolution.Text = Main.GB_Resolution_Text
|
||||
GB_SubLanguage.Text = Main.GB_SubLanguage_Text
|
||||
@ -197,6 +200,13 @@ Public Class einstellungen
|
||||
Main.LoginDialog = False
|
||||
rk.SetValue("LoginDialog", "0", RegistryValueKind.String)
|
||||
End If
|
||||
If CB_Log.Checked = True Then
|
||||
Main.SaveLog = True
|
||||
rk.SetValue("SaveLog", "1", RegistryValueKind.String)
|
||||
Else
|
||||
Main.SaveLog = False
|
||||
rk.SetValue("SaveLog", "0", RegistryValueKind.String)
|
||||
End If
|
||||
If RBAnime.Checked = True Then
|
||||
Main.SubFolder = 1
|
||||
rk.SetValue("SubFolder", 1, RegistryValueKind.String)
|
||||
@ -570,5 +580,8 @@ Public Class einstellungen
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
#End Region
|
||||
End Class
|
Binary file not shown.
Binary file not shown.
Binary file not shown.
Loading…
Reference in New Issue
Block a user