Added logfile

added logfile

Crunchyroll Downloader/Main.vb

@@ -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)

Crunchyroll Downloader/My Project/AssemblyInfo.vb

@@ -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")>

Crunchyroll Downloader/einstellungen.Designer.vb

@@ -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

Crunchyroll Downloader/einstellungen.resx

@@ -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>

Crunchyroll Downloader/einstellungen.vb

@@ -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