MS NotifyIcon logging Init

app/DD_Clipboard_Searcher/App.config

@@ -14,6 +14,9 @@
       <setting name="UseAppConfigConString" serializeAs="String">
         <value>True</value>
       </setting>
+      <setting name="GHOSTUSER" serializeAs="String">
+        <value>SchreiberM</value>
+      </setting>
     </DD_Clipboard_Watcher.My.MySettings>
     <DevExpress.LookAndFeel.Design.AppSettings>
       <setting name="DefaultAppSkin" serializeAs="String">

app/DD_Clipboard_Searcher/ClassInit.vb

@@ -269,7 +269,7 @@ Public Class ClassInit
                 If CheckModuleData() = False Then
                     Return False
                 End If
-                Dim oSQL1 = String.Format("SELECT * FROM VWDD_USER_CLIENT WHERE UPPER(USERNAME) = UPPER('{0}')", Environment.UserName)
+                Dim oSQL1 = String.Format("SELECT * FROM VWDD_USER_CLIENT WHERE UPPER(USERNAME) = UPPER('{0}')", USER_USERNAME)
                 DT_CLIENT_USER = _DataASorDB.GetDatatable(oSQL1, "VWDD_USER_CLIENT", $"USER_ID = {USER_ID}", "", "")
 
                 'If APPSERVER_ACTIVE = True Then

app/DD_Clipboard_Searcher/My Project/Settings.Designer.vb

@@ -82,6 +82,15 @@ Namespace My
                 Return CType(Me("UseAppConfigConString"),Boolean)
             End Get
         End Property
+        
+        <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("SchreiberM")>  _
+        Public ReadOnly Property GHOSTUSER() As String
+            Get
+                Return CType(Me("GHOSTUSER"),String)
+            End Get
+        End Property
     End Class
 End Namespace
 

app/DD_Clipboard_Searcher/My Project/Settings.settings

@@ -16,5 +16,8 @@
     <Setting Name="UseAppConfigConString" Type="System.Boolean" Scope="Application">
       <Value Profile="(Default)">True</Value>
     </Setting>
+    <Setting Name="GHOSTUSER" Type="System.String" Scope="Application">
+      <Value Profile="(Default)">SchreiberM</Value>
+    </Setting>
   </Settings>
 </SettingsFile>

app/DD_Clipboard_Searcher/frmMain.Designer.vb

@@ -216,7 +216,7 @@ Partial Class frmMain
         Me.NotifyIconMain.BalloonTipTitle = "Title"
         Me.NotifyIconMain.ContextMenuStrip = Me.cmstrpNotifyIcon
         Me.NotifyIconMain.Icon = CType(resources.GetObject("NotifyIconMain.Icon"), System.Drawing.Icon)
-        Me.NotifyIconMain.Text = "NotifyIcon1"
+        Me.NotifyIconMain.Text = "Clipboard Watcher"
         Me.NotifyIconMain.Visible = True
         '
         'cmstrpNotifyIcon

app/DD_Clipboard_Searcher/frmMain.resx

@@ -4751,7 +4751,7 @@
         AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
         LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
         ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABU
-        CwAAAk1TRnQBSQFMAgEBBQEAAYABAAGAAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
+        CwAAAk1TRnQBSQFMAgEBBQEAAYgBAAGIAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
         AwABQAMAASADAAEBAQABCAYAAQgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
         AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
         AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA

app/DD_Clipboard_Searcher/frmSplash.Designer.vb

@@ -105,6 +105,7 @@ Partial Class frmSplash
         Me.Controls.Add(Me.PictureBox2)
         Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
+        Me.KeyPreview = True
         Me.Name = "frmSplash"
         Me.ShowIcon = False
         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen

app/DD_Clipboard_Searcher/frmSplash.vb

@@ -48,7 +48,10 @@ Public NotInheritable Class frmSplash
                 Thread.Sleep(200)
 
                 Worker.ReportProgress(CalcProgress(4), "Initializing User-Configuration")
-                If Init.InitUserLogin = False Then
+                If My.Settings.GHOSTUSER <> String.Empty Then
+                    Logger.Info($"GHOSTLogin [{My.Settings.GHOSTUSER} is active!")
+                End If
+                If Init.InitUserLogin(My.Settings.GHOSTUSER) = False Then
                     If ERROR_INIT = "" Then
                         ERROR_INIT = "INVALID USER"
                     End If
@@ -80,4 +83,10 @@ Public NotInheritable Class frmSplash
         ' Wenn kein Fehler, Splashscreen schließen
         Close()
     End Sub
+
+    Private Sub frmSplash_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown
+        If e.KeyCode = Keys.Escape Then
+
+        End If
+    End Sub
 End Class