jj 18.10 add ClassInactivity & ClassInactivityFilter

app/DD-Record-Organizer/frmMain.vb

@@ -11,10 +11,11 @@ Imports System.Net.Sockets
 Imports DD_LIB_Standards
 
 Public Class frmMain
-
     Dim strIPAddress As String
+
     Public Shared TIMER_SCAN As New System.Windows.Forms.Timer
-    Public Shared TIMER_INACTIVITY As New System.Windows.Forms.Timer
+    Public TIMER_INACTIVITY As ClassInactivity
+
     Private Shared Sub Scan_TickHandler(sender As Object, e As EventArgs)
         Try
             If ClassFolderWatcher.NEW_FILES = False Then Exit Sub
@@ -89,6 +90,8 @@ Public Class frmMain
                 LabelLanguage.Caption = "Language: " & USER_LANGUAGE
                 Load_Connection_Dep_Data()
 
+
+
                 'Wenn Argumente übergeben wurden, wird Formular geladen und zu record gesprungen
                 ClassJumpRecord.ParseArgs()
                 If Task_Popup_minutes <> 0 Then
@@ -180,13 +183,7 @@ Public Class frmMain
             Exit Sub
         End If
         Try
-            Dim sql = "UPDATE TBDD_USER SET LOGGED_IN = @LogInOut, LOGGED_WHERE = '@ANGEMELDETWO' WHERE (LOWER(USERNAME) = LOWER('@user'))"
-            sql = sql.Replace("@LogInOut", 0)
-            sql = sql.Replace("@ANGEMELDETWO", "''")
-            sql = sql.Replace("@user", USER_USERNAME)
-            ClassDatabase.Execute_non_Query(sql)
-            sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND MODULE = 'Record-Organizer'"
-            ClassDatabase.Execute_non_Query(sql)
+            ClassUser.LogoutUser()
             ClassWindowLocation.SaveFormLocationSize(Me, 1, CURRENT_SCREEN_ID, "frmMain")
             ToolStripManager.SaveSettings(Me)
 
@@ -602,9 +599,8 @@ Public Class frmMain
             End If
             Try
                 If USER_IS_ADMIN = False Or AUTO_LOGOUT_USER > 0 Then
-                    TIMER_INACTIVITY.Interval = AUTO_LOGOUT_USER
-                    'TIMER_INACTIVITY.Enabled = True
-                    'AddHandler TIMER_INACTIVITY.Tick, AddressOf Scan_TickHandler
+                    TIMER_INACTIVITY = New ClassInactivity(AUTO_LOGOUT_USER)
+                    Application.AddMessageFilter(New ClassInactivityFilter(Me))
                 End If
             Catch ex As Exception
                 ClassHelper.InsertEssential_Log(USER_GUID, "USER_ID", "Unexpected Error in AUOTP_LOGOUT_USER: " & ex.Message)
@@ -824,8 +820,8 @@ Public Class frmMain
             cultureInfo.DateTimeFormat.ShortDatePattern = USER_DATE_FORMAT
             Thread.CurrentThread.CurrentCulture = cultureInfo
             Thread.CurrentThread.CurrentUICulture = cultureInfo
-            cultureInfo.DefaultThreadCurrentCulture = cultureInfo
-            cultureInfo.DefaultThreadCurrentUICulture = cultureInfo
+            CultureInfo.DefaultThreadCurrentCulture = cultureInfo
+            CultureInfo.DefaultThreadCurrentUICulture = cultureInfo
         End If
 
         ' Dieser Aufruf ist für den Designer erforderlich.