remove hotkey module

Global_Indexer/frmStart.vb

@@ -136,60 +136,7 @@ Public Class frmStart
             TimerCheckDroppedFiles.Start()
         End If
     End Sub
-    Private Sub ReceiveHotKey(ByVal HotKeyID As String) Handles HotKey.HotKeyPressed
-        Dim CapTxt As String = ClassHotkey_Windream.GetCaption()
-        CURRENT_FOCUSES_WINDOWNAME = CapTxt
-        If CURRENT_FOCUSES_WINDOWNAME.ToUpper.StartsWith("GLOB") Then Exit Sub
-        LOGGER.Info(" ...Focused window result: '" & CURRENT_FOCUSES_WINDOWNAME & "'")
 
-        Me.Cursor = Cursors.WaitCursor
-        Me.NotifyIcon1.Visible = True
-        NotifyIcon1.ShowBalloonTip(1000, "Hotkey", "Hotkey wird ausgeführt!", ToolTipIcon.Info)
-        Try
-            Dim _focusedWindowfound As Boolean = False
-            Dim HK1 As String
-            Dim HK2 As String
-            'Die Hotkeys definieren
-            Dim SQL As String = "SELECT * FROM TBHOTKEYTEMP_USER_HOTKEYS WHERE HOTKEY_ID = " & HotKeyID
-            Dim DTHOTKEYSTEMP As DataTable = ClassDatabase.Return_Datatable(SQL, True)
-            If Not IsNothing(DTHOTKEYSTEMP) Then
-                HK1 = DTHOTKEYSTEMP.Rows(0).Item("HOTKEY1")
-                HK2 = DTHOTKEYSTEMP.Rows(0).Item("HOTKEY2")
-                'Alle Profile raussuchen die die Tastaturkombination enthalten
-                SQL = "select * from TBHOTKEY_USER_PROFILE where UPPER(HOTKEY1) = UPPER('" & HK1 & "') AND UPPER(HOTKEY2) = UPPER('" & HK2 & "') AND USER_ID = " & USER_ID
-                Dim DTHOTKEY_PROFILES As DataTable = ClassDatabase.Return_Datatable(SQL, True)
-                Dim Result As String = ""
-                If Not IsNothing(DTHOTKEY_PROFILES) Then
-
-                    'Jedes Hotkeyprofil des Users durchlaufen um zu überprüfen ob das CURRENT_FOCUSES_WINDOWNAME = dem konfiguriertem ist
-                    For Each row As DataRow In DTHOTKEY_PROFILES.Rows
-                        SQL = "select WINDOW_NAME from TBHOTKEY_PROFILE where GUID = " & row.Item("HKPROFILE_ID")
-                        'Konfigurierte windows-String speichern
-                        Dim windowconfigured = ClassDatabase.Execute_Scalar(SQL, MyConnectionString, True)
-                        'Focuses window enthalten??
-                        If CURRENT_FOCUSES_WINDOWNAME.ToUpper.Contains(windowconfigured.ToString.ToUpper) Or CURRENT_FOCUSES_WINDOWNAME.ToUpper = windowconfigured.ToString.ToUpper Then
-                            'Ja - also die windream-Suche ausführen
-                            _focusedWindowfound = True
-                            Result = ClassHotkey_Windream.RUN_WD_SEARCH(row.Item("GUID"))
-                        End If
-                    Next
-                    If _focusedWindowfound = False Then
-                        Result = "Focused Window not configured in hotkey"
-                    End If
-                End If
-
-
-                If Result = "" Then
-                    Me.NotifyIcon1.Visible = False
-                Else
-                    NotifyIcon1.ShowBalloonTip(5000, "Hotkey-Fehler:", Result.ToString, ToolTipIcon.Warning)
-                End If
-            End If
-        Catch ex As Exception
-            MsgBox("Error in ReceiveHotKey: " & ex.Message, MsgBoxStyle.Critical)
-        End Try
-        Me.Cursor = Cursors.Default
-    End Sub
     Private Sub frmMain_DragEnter(sender As Object, e As DragEventArgs) Handles Me.DragEnter
         Drag_Enter(sender, e)
     End Sub
@@ -288,9 +235,6 @@ Public Class frmStart
         Catch ex As Exception
             MsgBox("Unexpected Error in Closing Application: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
         End Try
-        If USER_ID > 0 Then
-            Unregister_Hotkeys()
-        End If
         'TempDateien löschen
         Try
             For Each _file In TEMP_FILES
@@ -365,8 +309,6 @@ Public Class frmStart
                 AdministrationToolStripMenuItem.Visible = False
             End If
             ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')", True)
-            Unregister_Hotkeys()
-            Load_Hotkeys()
 
             TopMost = True
 
@@ -472,76 +414,8 @@ Public Class frmStart
         End If
 
     End Sub
-    Sub Unregister_Hotkeys()
-        Try
-            Dim sql As String = "Select * from TBHOTKEYTEMP_USER_HOTKEYS where [USER_ID] = " & USER_ID
-            Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, True)
-            If Not IsNothing(DT) Then
-                For Each row As DataRow In DT.Rows
-                    HotKey.RemoveHotKey(row.Item("HOTKEY_ID"))
-                Next
-                sql = "delete from TBHOTKEYTEMP_USER_HOTKEYS where [USER_ID] = " & USER_ID
-                ClassDatabase.Execute_non_Query(sql, True)
-            End If
 
-        Catch ex As Exception
-            MsgBox("Error in Unregister_Hotkeys:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-        End Try
-    End Sub
-    Sub Load_Hotkeys()
-        Try
-            Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT HOTKEY1, HOTKEY2, ABS(CONVERT(INT, CONVERT(binary(4), NEWID()))) AS HOTKEY_ID FROM  TBHOTKEY_USER_PROFILE WHERE USER_ID = " & USER_ID & " GROUP BY HOTKEY1, HOTKEY2", True)
-            If DT.Rows.Count > 0 Then
-                LOGGER.Info(" >> " & DT.Rows.Count & " Hotkey-Profile")
-                Dim i As Integer = 0
-                For Each row As DataRow In DT.Rows
-                    i += 1
-                    Dim sql As String = "INSERT INTO TBHOTKEYTEMP_USER_HOTKEYS (HOTKEY_ID,HOTKEY1,HOTKEY2,[USER_ID]) VALUES (" & row.Item("HOTKEY_ID") & ", '" & row.Item("HOTKEY1") & "', '" & row.Item("HOTKEY2") & "', " & USER_ID & ")"
-                    ClassDatabase.Execute_non_Query(sql, True)
-
-                    Dim keyCode As Keys
-                    Try
-                        Dim kc As New KeysConverter
-                        Dim obj As Object = kc.ConvertFromString(row.Item("HOTKEY2").ToString.ToUpper)
-                        keyCode = CType(obj, Keys)
-                    Catch ex As Exception
-                        MsgBox("Error in Convert Key:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-                        Exit Sub
-                    End Try
-
-                    Select Case row.Item("HOTKEY1")
-                        Case "Strg"
-                            LOGGER.Info(" >>" & i.ToString + "|Strg " & row.Item("HOTKEY2").ToString.ToUpper)
-                            HotKey.AddHotKey(keyCode, clsHotkey.MODKEY.MOD_CONTROL, row.Item("HOTKEY_ID"))
-                        Case "Shift"
-                            LOGGER.Info(" >>" & i.ToString + "|Shift " & row.Item("HOTKEY2").ToString.ToUpper)
-                            HotKey.AddHotKey(keyCode, clsHotkey.MODKEY.MOD_SHIFT, row.Item("HOTKEY_ID"))
-                        Case "Alt"
-                            LOGGER.Info(" >>" & i.ToString + "|Alt " & row.Item("HOTKEY2").ToString.ToUpper)
-                            HotKey.AddHotKey(keyCode, clsHotkey.MODKEY.MOD_ALT, row.Item("HOTKEY_ID"))
-                        Case "win"
-                            LOGGER.Info(" >>" & i.ToString + "|Win " & row.Item("HOTKEY2").ToString.ToUpper)
-                            HotKey.AddHotKey(keyCode, clsHotkey.MODKEY.MOD_WIN, row.Item("HOTKEY_ID"))
-                    End Select
-                Next
-            Else
-                LOGGER.Info(" >> Keine Hotkeys!")
-            End If
-        Catch ex As Exception
-            MsgBox("Error in Load_Hotkeys:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-        End Try
-    End Sub
-    Private Sub HotkeyEisntellungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HotkeyEisntellungenToolStripMenuItem.Click
-        If ClassLicence.license_is_Valid = True Then
-            Me.Hide()
-            Unregister_Hotkeys()
-            frmHotKey_Add.ShowDialog()
-            Load_Hotkeys()
-            Me.Visible = True
-        End If
-    End Sub
-
-    Private Sub GlobalIndexerEinstellungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GlobalIndexerEinstellungenToolStripMenuItem.Click
+    Private Sub GlobalIndexerEinstellungenToolStripMenuItem_Click(sender As Object, e As EventArgs)
         Try
             Me.Hide()
             frmAdministration.ShowDialog()
@@ -568,16 +442,6 @@ Public Class frmStart
         Me.TopMost = True
     End Sub
 
-    Private Sub FrmHotkeyAddToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FrmHotkeyAddToolStripMenuItem.Click
-        If ClassLicence.license_is_Valid = True Then
-            Me.Hide()
-            Unregister_Hotkeys()
-            frmHotkey_User.ShowDialog()
-            Load_Hotkeys()
-            Me.Visible = True
-        End If
-    End Sub
-
     Private Sub TimerFolderWatch_Tick(sender As Object, e As EventArgs) Handles TimerFolderWatch.Tick
         If ClassDatabase.DatabaseConnectionTimeout = True Then
             TimerFolderWatch.Enabled = False
@@ -746,4 +610,15 @@ Public Class frmStart
             End If
         End If
     End Sub
+
+    Private Sub AdministrationToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AdministrationToolStripMenuItem.Click
+        Try
+            Me.Hide()
+            frmAdministration.ShowDialog()
+            Me.Show()
+        Catch ex As Exception
+            MsgBox("Fehler in der Administration:" & vbCrLf & vbCrLf & ex.Message, MsgBoxStyle.Critical, Text)
+            LOGGER.Error(ex)
+        End Try
+    End Sub
 End Class