407 lines
18 KiB
VB.net
407 lines
18 KiB
VB.net
Imports System.Threading
|
|
Imports DD_LIB_Standards
|
|
|
|
Public Class frmStart
|
|
Dim WithEvents Hotkey As New clsHotkey(Me)
|
|
|
|
Private PID As Integer
|
|
Private WithEvents _Watcher As ClipboardWatcher = ClipboardWatcher.Singleton
|
|
|
|
|
|
Private Sub frmClipboardWatch_Disposed(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Disposed
|
|
_Watcher.Dispose()
|
|
End Sub
|
|
|
|
Private Sub WatcherChanged_New(ByVal sender As Object, ByVal e As EventArgs) Handles _Watcher.Changed
|
|
If MONITORING_ACTIVE = False Then
|
|
NotifyIconMain.ShowBalloonTip(20000, "Clipboard Watcher", "Clipboard-watcher is inactive.", ToolTipIcon.Info)
|
|
Exit Sub
|
|
End If
|
|
|
|
If DT_USER_PROFILES Is Nothing OrElse DT_USER_PROFILES.Rows.Count = 0 Then
|
|
Exit Sub
|
|
End If
|
|
|
|
Dim ClipboardContents As String = Clipboard.GetText()
|
|
Dim WindowTitle As String = clsHotkey.GetCaption()
|
|
|
|
Dim oProfileFilter As New ClassProfileFilter(DT_USER_PROFILES, DTPROFILE_REL_WINDOW)
|
|
Dim oProfiles = oProfileFilter.
|
|
FilterProfilesByProcess(CurrPROC_Name).
|
|
FilterProfilesByClipboardRegex(ClipboardContents).
|
|
FilterWindowsByWindowTitle(WindowTitle).
|
|
FilterProfilesByWindowRegex(ClipboardContents).
|
|
ToList()
|
|
|
|
CURRENT_MATCHING_PROFILES = oProfiles
|
|
CURR_MATCH_RESULT = ClipboardContents
|
|
End Sub
|
|
|
|
'Private Sub _Watcher_Changed(ByVal sender As Object, ByVal e As EventArgs) ' Handles _Watcher.Changed
|
|
|
|
' clsHotkey.GetCaption()
|
|
|
|
' If DT_USER_PROFILES Is Nothing Then
|
|
' Exit Sub
|
|
' End If
|
|
' If DT_USER_PROFILES.Rows.Count = 0 Then
|
|
' Exit Sub
|
|
' End If
|
|
' CURR_MATCH_RESULT = Nothing
|
|
' 'CURR_MATCH_WM_SEARCH = Nothing
|
|
' If MONITORING_ACTIVE = False Then
|
|
' NotifyIconMain.ShowBalloonTip(20000, "Clipboard Watcher", "Clipboard-watcher is inactive.", ToolTipIcon.Info)
|
|
' Exit Sub
|
|
' End If
|
|
|
|
' Dim Data As IDataObject = Clipboard.GetDataObject
|
|
|
|
' ' Dim RelevantWindow = clsWINDOWSApi.IsRelevantWindow("jonathan")
|
|
' 'With Me.TextBox1
|
|
' ' .AppendText(String.Concat("Available Formats:", vbNewLine))
|
|
' ' .AppendText(String.Join(vbNewLine, Data.GetFormats))
|
|
' ' .AppendText(String.Concat(vbNewLine, vbNewLine, "Text = '", _
|
|
' ' Clipboard.GetText, "'", vbNewLine, vbNewLine))
|
|
' 'End With
|
|
' Dim oFound As Boolean = False
|
|
' CLIPBOARD_TEXT = Clipboard.GetText
|
|
' Logger.Debug(String.Format(" >>[{0}] Clipboard-Watcher fired for process '{1}'", Now.ToString, CurrPROC_Name), False)
|
|
' Dim oDTMatchProfiles As DataTable = New DataTable
|
|
' oDTMatchProfiles.Columns.Add("GUID")
|
|
' oDTMatchProfiles.Columns.Add("NAME")
|
|
' oDTMatchProfiles.Columns.Add("COUNT")
|
|
' oDTMatchProfiles.Columns.Add("COMMENT")
|
|
|
|
' For Each oProfileRow As DataRow In DT_USER_PROFILES.Rows
|
|
' Dim oProfileID = oProfileRow.Item("GUID")
|
|
' 'If found = True Then Exit For
|
|
' '#### 1st CHECK: PROCESSNAME EQUAL ####
|
|
' If CurrPROC_Name.ToUpper = oProfileRow.Item("PROC_NAME").ToString.ToUpper Then
|
|
' '### 2nd CHECK: MATCH ClipboardValue
|
|
' Dim oRegex_expression = oProfileRow.Item("REGEX_EXPRESSION")
|
|
' Dim oRegex As New System.Text.RegularExpressions.Regex(oRegex_expression)
|
|
' Dim oMatch As System.Text.RegularExpressions.Match = oRegex.Match(CLIPBOARD_TEXT)
|
|
' If oMatch.Success Then
|
|
' ' If match.Groups(0).Value <> CURR_MATCH_RESULT Then
|
|
' CURR_MATCH_RESULT = oMatch.Groups(0).Value
|
|
' If Not IsNothing(CURR_MATCH_RESULT) Then
|
|
' '#### 3rd CHECK: WindowTitle Match
|
|
' Dim oMatchWindow As Boolean = True
|
|
' Dim oCountWindowDefinitions As Integer = 0
|
|
' For Each oWindowMatchRow As DataRow In DTPROFILE_REL_WINDOW.Rows
|
|
' If oWindowMatchRow.Item("PROFILE_ID") = oProfileID Then
|
|
' oCountWindowDefinitions += 1
|
|
' oRegex_expression = oWindowMatchRow.Item("REGEX")
|
|
' oRegex = New System.Text.RegularExpressions.Regex(oRegex_expression)
|
|
' oMatch = oRegex.Match(CURR_FOCUSED_WINDOWNAME)
|
|
' oMatchWindow = oMatch.Success
|
|
' If oMatchWindow = True Then
|
|
' Dim oMatchRegexWindowClipboard As Boolean = False
|
|
' Logger.Debug($"Found a match on windowtitle [{CURR_FOCUSED_WINDOWNAME}]")
|
|
' If oWindowMatchRow.Item("REGEX_CLIPBOARD") <> String.Empty Then
|
|
' oRegex_expression = oWindowMatchRow.Item("REGEX_CLIPBOARD")
|
|
' oRegex = New System.Text.RegularExpressions.Regex(oRegex_expression)
|
|
' oMatch = oRegex.Match(CLIPBOARD_TEXT)
|
|
' oMatchRegexWindowClipboard = oMatch.Success
|
|
' If oMatchRegexWindowClipboard = True Then
|
|
' Logger.Debug($"Found a match on oMatchRegexWindowClipboard [{oRegex_expression}]")
|
|
' Exit For
|
|
' End If
|
|
' End If
|
|
|
|
' End If
|
|
' End If
|
|
' Next
|
|
' If oMatchWindow = False Then
|
|
' Logger.Debug($"Found NO MATCH on windowtitle [{CURR_FOCUSED_WINDOWNAME}], but [{oCountWindowDefinitions}] definitions are configured")
|
|
' Exit For
|
|
' End If
|
|
|
|
|
|
|
|
|
|
' ' ================= MOVE TO CTRL + F =================
|
|
|
|
' 'CURR_MATCH_WM_SEARCH = oProfileRow.Item("WD_SEARCH")
|
|
' Dim oSQL_COUNT As String = oProfileRow.Item("SQL_COUNT_DOCS")
|
|
' Dim oRESULTDocs As Integer
|
|
' If oSQL_COUNT <> String.Empty Then
|
|
' oSQL_COUNT = clsPatterns.ReplaceAllValues(oSQL_COUNT, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, oProfileID)
|
|
' Try
|
|
' oRESULTDocs = ClassDatabase.Execute_Scalar(oSQL_COUNT, MyConnectionString)
|
|
' Catch ex As Exception
|
|
' oRESULTDocs = 99999
|
|
' End Try
|
|
' Else
|
|
' oRESULTDocs = 99998
|
|
' End If
|
|
' If (oRESULTDocs <> 99998 And oRESULTDocs <> 99998 And oRESULTDocs <> 0) Then
|
|
' Dim onewMatchRow As DataRow = oDTMatchProfiles.NewRow
|
|
' onewMatchRow("GUID") = oProfileID
|
|
' onewMatchRow("NAME") = oProfileRow.Item("NAME")
|
|
' onewMatchRow("COMMENT") = oProfileRow.Item("COMMENT")
|
|
' onewMatchRow("COUNT") = oRESULTDocs
|
|
' oDTMatchProfiles.Rows.Add(onewMatchRow)
|
|
' oFound = True
|
|
' End If
|
|
|
|
' ' ================= MOVE TO CTRL + F =================
|
|
|
|
|
|
' End If
|
|
' 'Else
|
|
' ' NotifyIconMain.ShowBalloonTip(20000, "Clipboard Watcher", String.Format("Clipboard Watcher fired but Clipboardcontent is equal: '{0}'", CURR_MATCH_RESULT), ToolTipIcon.Info)
|
|
' ' Logger.Debug(String.Format(" >> {0} - Equal Clipboard-result '{1}'", Now.ToString, CURR_MATCH_RESULT), False)
|
|
' ' Exit For
|
|
' 'End If
|
|
' Else
|
|
' 'Logger.Debug(String.Format(" >> {0} - No regex-match for cliboardtext '{1}'", Now.ToString, oMatch.Groups(0).Value), False)
|
|
' End If
|
|
' End If
|
|
' Next
|
|
' If oFound = False Then
|
|
' Logger.Debug(String.Format(" >> {0} - oFound is false - no match on Clipboardvalue '{1}'!", Now.ToString, CURR_MATCH_RESULT), False)
|
|
' CurrDT_PROFILE_MATCH = Nothing
|
|
' Else
|
|
' CurrDT_PROFILE_MATCH = oDTMatchProfiles
|
|
|
|
' End If
|
|
|
|
'End Sub
|
|
|
|
Public Sub New()
|
|
Dim splash As New frmSplash()
|
|
splash.ShowDialog()
|
|
If ERROR_INIT <> "INVALID USER" Then
|
|
Dim cultureInfo As System.Globalization.CultureInfo
|
|
cultureInfo = New System.Globalization.CultureInfo(USER_LANGUAGE)
|
|
'cultureInfo.DateTimeFormat.ShortDatePattern = USER_DATE_FORMAT
|
|
Thread.CurrentThread.CurrentCulture = cultureInfo
|
|
Thread.CurrentThread.CurrentUICulture = cultureInfo
|
|
Globalization.CultureInfo.DefaultThreadCurrentCulture = cultureInfo
|
|
Globalization.CultureInfo.DefaultThreadCurrentUICulture = cultureInfo
|
|
End If
|
|
' Dieser Aufruf ist für den Designer erforderlich.
|
|
InitializeComponent()
|
|
|
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
|
|
|
End Sub
|
|
|
|
Private Sub btnUserConfig_Click(sender As Object, e As EventArgs) Handles btnUserConfig.Click
|
|
frmConfig_Basic.ShowDialog()
|
|
End Sub
|
|
|
|
Private Sub frmMain_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
|
|
Logger.Info(">> Logout time: " & Now.ToString, False)
|
|
If ERROR_INIT = "INVALID USER" Or ERROR_INIT = "NO CLIENT" Then
|
|
Exit Sub
|
|
End If
|
|
Try
|
|
'Dim sql = String.Format("UPDATE TBDD_USER SET LOGGED_IN = 0, LOGGED_WHERE = '{0}' WHERE (LOWER(USERNAME) = LOWER('{1}'))", "", USER_USERNAME)
|
|
'clsDatabase.Execute_non_Query(sql, True)
|
|
Dim sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND UPPER(MODULE) = UPPER('Clipboard-Watcher')"
|
|
clsDatabase.Execute_non_Query(sql, True)
|
|
ClassWindowLocation.SaveFormLocationSize(Me, "")
|
|
My.Settings.Save()
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
Try
|
|
Hotkey.RemoveHotKey(ClassConstants.HOTKEY_TOGGLE_WATCHER)
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
Try
|
|
Hotkey.RemoveHotKey(ClassConstants.HOTKEY_TRIGGER_WATCHER)
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
|
|
'TempDateien löschen
|
|
Try
|
|
For Each _file In TEMP_FILES
|
|
System.IO.File.Delete(_file)
|
|
Next
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
If clsLogger.LOGG_MSG <> String.Empty Then
|
|
Logger.Info(clsLogger.LOGG_MSG, False)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
ClassWindowLocation.LoadFormLocationSize(Me)
|
|
If ERROR_INIT = "FAILED DBCONNECTION" Or ERROR_INIT = "DATABASE" Then
|
|
|
|
frmConfig_Basic.ShowDialog()
|
|
End If
|
|
|
|
If clsDatabase.DB_DEFAULT_INITIALIZED = True Then
|
|
If ERROR_INIT <> "" Then
|
|
If ERROR_INIT = "NO CLIENT" Then
|
|
MsgBox("You are not related to a client!" & vbNewLine & "Please contact the system administrator!", MsgBoxStyle.Exclamation)
|
|
Else
|
|
MsgBox("Sorry Something went wrong in user configuration!" & vbNewLine & "Reason: " & ERROR_INIT & vbNewLine & "Please contact the system administrator!", MsgBoxStyle.Exclamation)
|
|
End If
|
|
Exit Sub
|
|
End If
|
|
Me.NotifyIconMain.Visible = True
|
|
clsHotkey.Refresh_Profile_Links()
|
|
Hotkey.AddHotKey(Keys.T, clsHotkey.MODKEY.MOD_CONTROL, ClassConstants.HOTKEY_TOGGLE_WATCHER)
|
|
Dim keyCode As Keys
|
|
Dim kc As New KeysConverter
|
|
Dim obj As Object = kc.ConvertFromString(HotkeySearchKey.ToUpper)
|
|
keyCode = CType(obj, Keys)
|
|
If HotkeyFunctionKey = "strg" Then
|
|
Hotkey.AddHotKey(keyCode, clsHotkey.MODKEY.MOD_CONTROL, ClassConstants.HOTKEY_TRIGGER_WATCHER)
|
|
ElseIf HotkeyFunctionKey = "SHIFT" Then
|
|
Hotkey.AddHotKey(keyCode, clsHotkey.MODKEY.MOD_SHIFT, ClassConstants.HOTKEY_TRIGGER_WATCHER)
|
|
End If
|
|
|
|
End If
|
|
tslblUser.Text = USER_USERNAME
|
|
lbHKFunction.Text = HotkeyFunctionKey & " + " & HotkeySearchKey.ToUpper
|
|
End Sub
|
|
Private Sub ReceiveHotKey(ByVal HotKeyID As String) Handles Hotkey.HotKeyPressed
|
|
If HotKeyID = ClassConstants.HOTKEY_TRIGGER_WATCHER Then
|
|
If CURRENT_MATCHING_PROFILES.Count > 0 And MONITORING_ACTIVE = True Then
|
|
CHECK_PROFILE_MATCH()
|
|
End If
|
|
ElseIf HotKeyID = ClassConstants.HOTKEY_TOGGLE_WATCHER Then
|
|
Change_Monitoring_State()
|
|
End If
|
|
|
|
End Sub
|
|
Sub CHECK_PROFILE_MATCH()
|
|
Dim oProfiles = CURRENT_MATCHING_PROFILES
|
|
|
|
For Each oProfile In oProfiles
|
|
Dim oSQL = oProfile.SQLCountDocs
|
|
Dim oResultDocs As Integer = 0
|
|
|
|
If oSQL = String.Empty Then
|
|
oProfile.SQLCountDocs = ClassConstants.NO_COUNT_SQL
|
|
End If
|
|
|
|
Try
|
|
oSQL = clsPatterns.ReplaceAllValues(oSQL, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, oProfile.Guid)
|
|
oResultDocs = ClassDatabase.Execute_Scalar(oSQL, MyConnectionString)
|
|
Catch ex As Exception
|
|
oResultDocs = ClassConstants.INVALID_COUNT_SQL
|
|
End Try
|
|
|
|
oProfile.CountDocs = oResultDocs
|
|
Next
|
|
|
|
If oProfiles.Count = 1 Then
|
|
If oProfiles.First().CountDocs = ClassConstants.INVALID_COUNT_SQL Then
|
|
NotifyIconMain.ShowBalloonTip(20000, "Clipboard Watcher", "Found match but check is wrong - Check Your MatchCountConfig in Profiles!", ToolTipIcon.Info)
|
|
Exit Sub
|
|
End If
|
|
|
|
If oProfiles.First().CountDocs = ClassConstants.NO_COUNT_SQL Then
|
|
NotifyIconMain.ShowBalloonTip(10000, "Clipboard Watcher", "Found match but MatchCountConfig is not configured!", ToolTipIcon.Info)
|
|
Exit Sub
|
|
End If
|
|
|
|
CurrDocSearch2Load = oProfiles.First().Guid
|
|
frmResultDoc.Show()
|
|
Else
|
|
frmProfileMatch.ShowDialog()
|
|
End If
|
|
End Sub
|
|
Sub Change_Monitoring_State()
|
|
If MONITORING_ACTIVE = True Then
|
|
NotifyIconMain.ShowBalloonTip(30000, "Clipboard Watcher", "Clipboard-Watcher wurde inaktiviert!", ToolTipIcon.Info)
|
|
MONITORING_ACTIVE = False
|
|
Else
|
|
MONITORING_ACTIVE = True
|
|
NotifyIconMain.ShowBalloonTip(30000, "Clipboard Watcher", "Clipboard-Watcher wurde wieder aktiviert!", ToolTipIcon.Info)
|
|
End If
|
|
End Sub
|
|
Private Sub frmMain_Shown(sender As Object, e As EventArgs) Handles Me.Shown
|
|
If ERROR_INIT <> "INVALID USER" And LICENSE_COUNT > 0 Then
|
|
If DT_USER_PROFILES.Rows.Count >= 1 Then
|
|
Me.Hide()
|
|
End If
|
|
Else
|
|
If USER_IS_ADMIN = True And ERROR_INIT = "NO LICENSE" Then
|
|
MsgBox("As an admin You have access! Please inform Digital Data to add a valid license!", MsgBoxStyle.Exclamation, "")
|
|
Else
|
|
If Not USER_IS_ADMIN Then
|
|
MsgBox("Application will close now!", MsgBoxStyle.Critical, "")
|
|
Me.Close()
|
|
End If
|
|
|
|
End If
|
|
End If
|
|
If USER_IS_ADMIN = True Then
|
|
btnAdminConfig.Visible = True
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub NotifyIcon1_DoubleClick(sender As Object, e As EventArgs) Handles NotifyIconMain.DoubleClick
|
|
OpenClose()
|
|
End Sub
|
|
Sub OpenClose()
|
|
If Me.Visible = False Then
|
|
Me.BringToFront()
|
|
Me.Visible = True
|
|
TimerClose.Start()
|
|
Else
|
|
Me.Hide()
|
|
NotifyIconMain.Visible = True
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub frmMain_KeyUp(sender As Object, e As KeyEventArgs) Handles MyBase.KeyUp
|
|
If e.KeyCode = Keys.F12 And USER_IS_ADMIN = True Then
|
|
frmLicense.ShowDialog()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub tsmiChangeState_Click(sender As Object, e As EventArgs) Handles tsmiChangeState.Click
|
|
If tsmiChangeState.Tag = "stop" Then
|
|
tsmiChangeState.Tag = "start"
|
|
tsmiChangeState.Image = My.Resources.control_start_blue
|
|
tsmiChangeState.Text = "Überwachung Clipboard starten"
|
|
MONITORING_ACTIVE = False
|
|
NotifyIconMain.ShowBalloonTip(30000, "Clipboard Watcher", "Clipboard-Watcher wurde inaktiviert!", ToolTipIcon.Info)
|
|
Else
|
|
tsmiChangeState.Image = My.Resources.StatusAnnotations_Stop_16xLG
|
|
tsmiChangeState.Tag = "stop"
|
|
tsmiChangeState.Text = "Überwachung Clipboard stoppen"
|
|
MONITORING_ACTIVE = True
|
|
NotifyIconMain.ShowBalloonTip(30000, "Clipboard Watcher", "Clipboard-Watcher wurde wieder aktiviert!", ToolTipIcon.Info)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub btnAdminConfig_Click(sender As Object, e As EventArgs) Handles btnAdminConfig.Click
|
|
TimerClose.Stop()
|
|
MONITORING_ACTIVE = False
|
|
frmAdministration.ShowDialog()
|
|
TimerClose.Start()
|
|
MONITORING_ACTIVE = True
|
|
End Sub
|
|
|
|
Private Sub TimerClose_Tick(sender As Object, e As EventArgs) Handles TimerClose.Tick
|
|
Hide()
|
|
End Sub
|
|
|
|
Private Sub frmMain_VisibleChanged(sender As Object, e As EventArgs) Handles Me.VisibleChanged
|
|
If TimerClose.Enabled = True Then
|
|
TimerClose.Stop()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub MinimierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MinimierenToolStripMenuItem.Click
|
|
Hide()
|
|
End Sub
|
|
|
|
Private Sub ClientÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ClientÖffnenToolStripMenuItem.Click
|
|
OpenClose()
|
|
End Sub
|
|
End Class
|