monster commit for zoo flow, prepare migration of cw

Modules/ZooFlow/ClassProfileFilter.vb

@@ -0,0 +1,483 @@
+Imports System.Drawing
+Imports System.Windows.Forms
+Imports System.Text.RegularExpressions
+Imports DigitalData.Modules.Logging
+Imports DigitalData.Modules.Windows
+Imports DigitalData.Modules.Language.Utils
+Imports DigitalData.Modules.ZooFlow.Params
+
+Public Class ClassProfileFilter
+    Private _ProfileTable As DataTable
+    Private _ProcessTable As DataTable
+    Private _WindowTable As DataTable
+    Private _ControlTable As DataTable
+    Private _Profiles As List(Of ProfileData)
+    Private _Logger As Logger
+    Private _TreeView As TreeView
+    Private _Window As Window
+
+    Public ReadOnly Property Profiles As List(Of ProfileData)
+        Get
+            Return _Profiles
+        End Get
+    End Property
+
+    Public Sub New(LogConfig As LogConfig, ProfileDatatable As DataTable, ProcessTable As DataTable, WindowDatatable As DataTable, ControlDatatable As DataTable, ImageList As ImageList)
+        Try
+            _Logger = LogConfig.GetLogger()
+            _ProfileTable = ProfileDatatable
+            _ProcessTable = ProcessTable
+            _WindowTable = WindowDatatable
+            _ControlTable = ControlDatatable
+            _Profiles = TransformProfiles()
+            _Window = New Window(LogConfig)
+
+            _TreeView.Nodes.Clear()
+            _TreeView.ImageList = ImageList
+            _TreeView.SelectedImageIndex = 0
+        Catch ex As Exception
+            _Logger.Error(ex)
+            Throw ex
+        End Try
+    End Sub
+
+    Public Function ToList() As List(Of ProfileData)
+        Return _Profiles
+    End Function
+
+    Private Function FindNode(ByVal Node As TreeNode, SearchTerm As String)
+        Dim oNode As TreeNode
+        For Each oNode In Node.Nodes
+            If oNode.Text = SearchTerm Then
+                Return oNode
+            End If
+        Next
+        Return Node
+    End Function
+
+    Private Function GetLowestNode(ByVal Node As TreeNode) As TreeNode
+        If Node.GetNodeCount(False) = 1 Then
+            Return GetLowestNode(Node.Nodes.Item(0))
+        Else
+            Return Node
+        End If
+    End Function
+
+    Public Function FilterProfilesByClipboardRegex(Profiles As List(Of ProfileData), ClipboardContents As String) As List(Of ProfileData)
+        Dim oFilteredProfiles As New List(Of ProfileData)
+        For Each oProfile In Profiles
+            _Logger.Debug("Current Profile: {0}", oProfile.Name)
+
+            Try
+                Dim oRegex As New Regex(oProfile.Regex)
+                Dim oMatch = oRegex.Match(ClipboardContents)
+                If oMatch.Success Then
+                    _Logger.Debug("FilterProfilesByClipboardRegex: Clipboard Regex Matched: {0}", ClipboardContents)
+                    'TODO: Add Debug Data
+                    oFilteredProfiles.Add(oProfile)
+                    oProfile.IsMatched = True
+                    Dim oNode As New TreeNode($"Profile: {oProfile.Name}")
+                    oNode.ImageIndex = 0
+                    Dim f = New Font("Tahoma", 9, FontStyle.Bold)
+                    oNode.NodeFont = f
+                    _TreeView.Nodes.Add(oNode)
+                    Dim oSubnode As New TreeNode($"MATCH on Global Clipboard Regex: {oProfile.Regex}")
+                    oSubnode.ImageIndex = 1
+                    oSubnode.Tag = oProfile.Name & "-REGEX"
+                    oNode.Nodes.Add(oSubnode)
+
+                End If
+            Catch ex As Exception
+                _Logger.Warn("Regex '{0}' could not be processed for input '{1}'", oProfile.Regex, ClipboardContents)
+                _Logger.Error(ex)
+            End Try
+        Next
+
+        Return oFilteredProfiles
+    End Function
+    Public Function FilterProfilesByProcess(Profiles As List(Of ProfileData), CurrentProcessName As String) As List(Of ProfileData)
+        Dim oFilteredProfiles As New List(Of ProfileData)
+        Try
+            For Each oProfile In Profiles
+                Dim oGuid = oProfile.Guid
+
+                If oProfile.IsMatched = False Then
+                    Continue For
+                End If
+
+
+                Dim oProcesses As New List(Of ProfileData.ProcessData)
+                For Each oProcessDef As ProfileData.ProcessData In oProfile.Processes
+                    If oProcessDef.ProfileId <> oGuid Then
+                        Continue For
+                    End If
+                    _Logger.Debug($"FilterProfilesByProcess: Checking Profile: {oProfile.Name} ...")
+                    If oProcessDef.ProcessName.ToLower = CurrentProcessName.ToLower Then
+                        _Logger.Debug($"Yes...Processname Matched: {oProcessDef.ProcessName}")
+                        'oProfile.MATCH_PROCESSNAME = $"Processname Matched: {oProfile.ProcessName}"
+                        'TODO: Add Debug Data
+                        oFilteredProfiles.Add(oProfile)
+                        oProfile.MatchedProcessID = oProcessDef.Guid
+                        oProcessDef.IsMatched = True
+                        oProcesses.Add(oProcessDef)
+                        oProfile.IsMatched = True
+                        oProfile.MatchedProcessID = oProcessDef.Guid
+                        Dim oParentNode As TreeNode
+                        Dim oExit = False
+                        For Each oTreeNode As TreeNode In _TreeView.Nodes
+                            For Each oNodes As TreeNode In oTreeNode.Nodes
+                                If oExit = True Then Exit For
+                                If oNodes.Tag = oProfile.Name & "-REGEX" Then
+                                    oParentNode = oNodes
+                                    oExit = True
+                                    Exit For
+                                End If
+                            Next
+                        Next
+
+                        If Not IsNothing(oParentNode) Then
+                            Dim oNode As New TreeNode($"MATCH on Process: {oProcessDef.ProcessName}")
+                            oNode.ImageIndex = 4
+                            oNode.Tag = oProfile.Name & "-PROCESS"
+                            oParentNode.Nodes.Add(oNode)
+                        End If
+                    End If
+                Next
+                If oFilteredProfiles.Count > 0 Then
+                    oProfile.Processes = oProcesses
+                End If
+            Next
+
+            Return oFilteredProfiles
+        Catch ex As Exception
+            _Logger.Warn("Unexpected error in FilterProfilesByProcess...")
+            _Logger.Error(ex)
+        End Try
+
+    End Function
+    Public Function FilterWindowsByWindowTitleRegex(Profiles As List(Of ProfileData), WindowTitle As String) As List(Of ProfileData)
+        Dim oProfiles As New List(Of ProfileData)
+
+        For Each oProfile As ProfileData In Profiles
+            _Logger.Debug("Checking WindowDefinition for profile: {0}...", oProfile.Name)
+            If oProfile.IsMatched = False Then Continue For
+            Dim oWindows As New List(Of ProfileData.WindowData)
+
+            For Each oWindowDef As ProfileData.WindowData In oProfile.Windows
+                If oWindowDef.WindowProcessID <> oProfile.MatchedProcessID Then Continue For
+                Try
+                    If oWindowDef.Regex = String.Empty Then
+                        oProfile.MatchedWindowID = oWindowDef.Guid
+                        oWindowDef.IsMatched = True
+                        oWindows.Add(oWindowDef)
+                        Exit For
+                    End If
+
+                    Dim oRegex As New Regex(oWindowDef.Regex)
+                    Dim oMatch = oRegex.Match(WindowTitle)
+
+                    If oMatch.Success Then
+                        _Logger.Debug("MATCH on WindowTitle: {0}", WindowTitle)
+                        'TODO: Add Debug Data
+                        oProfile.MatchedWindowID = oWindowDef.Guid
+                        oWindowDef.IsMatched = True
+                        oWindows.Add(oWindowDef)
+                        Dim olowestNode As TreeNode = Node_Get_Lowest_Node(oProfile.Name & "-REGEX")
+                        If Not IsNothing(olowestNode) Then
+                            Dim oNode As New TreeNode($"MATCH on WindowTitle: [{WindowTitle}]")
+                            oNode.ImageIndex = 3
+                            oNode.Tag = oProfile.Name & "-WINDOW"
+                            olowestNode.Nodes.Add(oNode)
+                        End If
+                        Exit For
+                    End If
+                Catch ex As Exception
+                    _Logger.Warn("Regex '{0}' could not be processed for input '{1}'", oWindowDef.Regex, WindowTitle)
+                    _Logger.Error(ex)
+                End Try
+            Next
+
+            If oWindows.Count > 0 Then
+                oProfile.Windows = oWindows
+                oProfile.IsMatched = True
+                oProfiles.Add(oProfile)
+            End If
+        Next
+
+        Return oProfiles
+    End Function
+
+    Public Function FilterWindowsByWindowClipboardRegex(Profiles As List(Of ProfileData), ClipboardContents As String) As List(Of ProfileData)
+        Dim oProfiles As New List(Of ProfileData)
+
+        For Each oProfile As ProfileData In Profiles
+            _Logger.Debug("Current Profile: {0}", oProfile.Name)
+
+            Dim oWindows As New List(Of ProfileData.WindowData)
+
+            For Each w As ProfileData.WindowData In oProfile.Windows
+                Try
+                    If w.Regex = String.Empty Then
+                        oWindows.Add(w)
+                    End If
+
+                    Dim oRegex As New Regex(w.Regex)
+                    Dim oMatch = oRegex.Match(ClipboardContents)
+
+                    If oMatch.Success Then
+                        _Logger.Debug("Window Clipboard Regex Matched: {0}", ClipboardContents)
+                        Dim oResult As TreeNode
+                        For Each oTreeNode In _TreeView.Nodes
+                            If Not IsNothing(oResult) Then Exit For
+                            If oTreeNode.Tag = oProfile.Name & "-REGEX" Then
+                                oResult = oTreeNode
+                            End If
+
+
+                        Next
+                        If Not IsNothing(oResult) Then
+                            Dim oNode As New TreeNode($"MATCH on WINDOW Clipboard Regex: [{w.Regex}]")
+                            oNode.ImageIndex = 2
+                            oNode.Tag = oProfile.Name & "-WINDOW_REGEX"
+                            Dim olowestNode As TreeNode = GetLowestNode(oResult)
+                            olowestNode.Nodes.Add(oNode)
+                        End If
+
+                        oWindows.Add(w)
+
+
+                    End If
+                Catch ex As Exception
+                    _Logger.Warn("Regex '{0}' could not be processed for input '{1}'", w.Regex, ClipboardContents)
+                    _Logger.Error(ex)
+                End Try
+            Next
+
+            If oWindows.Count > 0 Then
+                oProfile.Windows = oWindows
+                oProfiles.Add(oProfile)
+            End If
+        Next
+
+        Return oProfiles
+    End Function
+
+    Public Function FilterProfilesByFocusedControl(Profiles As List(Of ProfileData), ClipboardContents As String, ControlFocusresult As String) As List(Of ProfileData)
+        Dim oWindow As Window.WindowInfo
+        Dim oFocusedControl As Window.WindowInfo
+        Dim oFocusedControlName As String = String.Empty
+
+        Try
+            oWindow = _Window.GetWindowInfo()
+            oFocusedControl = _Window.GetFocusedControl(oWindow.hWnd)
+
+            If oFocusedControl Is Nothing Then
+                _Logger.Info("Could not get FocusedControl in Window (Old method) {0}", oWindow.WindowTitle)
+                oFocusedControlName = String.Empty
+            Else
+                oFocusedControlName = oFocusedControl.ControlName
+            End If
+        Catch ex As Exception
+            _Logger.Warn("Error while getting Focused control (Old method)")
+            _Logger.Error(ex)
+            oFocusedControlName = String.Empty
+        End Try
+
+        Dim oFilteredProfiles As New List(Of ProfileData)
+
+        For Each oProfileMatchedSofar In Profiles
+            If oProfileMatchedSofar.IsMatched = False Then Continue For
+
+            _Logger.Debug("Checking ControlDefiniotion on profile: {0}", oProfileMatchedSofar.Name)
+            If oProfileMatchedSofar.Controls.Count = 0 Then
+                oFilteredProfiles.Add(oProfileMatchedSofar)
+
+                Dim oNode As New TreeNode($"No Controls configured!")
+                oNode.ImageIndex = 2
+                oNode.ForeColor = Color.Blue
+                oNode.Tag = oProfileMatchedSofar.Name & "-NOCONTROLCONFIG"
+                Dim f = New Font("Tahoma", 10, FontStyle.Bold)
+                oNode.NodeFont = f
+                _TreeView.Nodes.Add(oNode)
+                Continue For
+            End If
+
+            Dim oControls As New List(Of ProfileData.ControlData)
+
+            For Each oControlDefinition In oProfileMatchedSofar.Controls
+                Try
+                    If oControlDefinition.WindowId <> oProfileMatchedSofar.MatchedWindowID Then Continue For
+                    _Logger.Debug($"Working on ControlDefinition: {oControlDefinition.Guid}-{oControlDefinition.ControlName}...")
+                    If oControlDefinition.Regex = String.Empty Then
+                        oProfileMatchedSofar.MatchedControlID = oControlDefinition.Guid
+                        oControlDefinition.IsMatched = True
+                        oControls.Add(oControlDefinition)
+                        Exit For
+                    End If
+                    'Dim oResult As TreeNode
+                    'For Each oTreeNode In CurrMatchTreeView.Nodes
+                    '    oResult = NodeFind(oTreeNode, $"Global Clipboard Regex Matched [{oProfile.Regex}]")
+                    'Next
+                    'Dim oNode As TreeNode
+                    Dim oNodeCaption As String
+                    'Dim oAddNode As Boolean = False
+                    Dim oRegex As New Regex(oControlDefinition.Regex)
+
+                    Dim oFocusedControlResult As String = ""
+
+                    If oControlDefinition.AutomationId <> String.Empty And oControlDefinition.ControlName = String.Empty Then
+                        _Logger.Debug($"AutomationID should be used...")
+                        If Not IsNothing(ControlFocusresult) Then
+                            If ControlFocusresult <> String.Empty Then
+                                _Logger.Debug($"AutomationID will be used...")
+                                oFocusedControlResult = ControlFocusresult
+                            End If
+                        End If
+                    ElseIf oControlDefinition.AutomationId = String.Empty And oControlDefinition.ControlName <> String.Empty Then
+                        _Logger.Debug($"ControlName should be used...")
+                        If Not IsNothing(oFocusedControlName) Then
+                            If oFocusedControlName <> String.Empty Then
+                                _Logger.Debug($"ControlName will be used...")
+                                oFocusedControlResult = oFocusedControlName
+                            End If
+                        End If
+
+                    End If
+                    If oFocusedControlResult <> String.Empty Then
+                        Dim oControlRegex As New Regex(oControlDefinition.Regex)
+                        Dim oControlMatch = oRegex.Match(oFocusedControlResult)
+
+                        If oControlMatch.Success Then
+                            _Logger.Debug($"MATCH on Focused Control [{oFocusedControlResult}] with Regex [{oControlDefinition.Regex}]")
+                            oProfileMatchedSofar.IsMatched = True
+                            oProfileMatchedSofar.MatchedControlID = oControlDefinition.Guid
+                            oControlDefinition.IsMatched = True
+                            oControls.Add(oControlDefinition)
+                            Dim olowestNode As TreeNode = Node_Get_Lowest_Node(oProfileMatchedSofar.Name & "-REGEX")
+                            If Not IsNothing(olowestNode) Then
+                                Dim oNode As New TreeNode($"MATCH on Focused Control [{oFocusedControlResult}] with Regex [{oControlDefinition.Regex}]")
+                                oNode.ImageIndex = 2
+                                oNode.Tag = oProfileMatchedSofar.Name & "-CONTROL"
+                                olowestNode.Nodes.Add(oNode)
+                            End If
+                            Exit For
+                        End If
+                    End If
+                Catch ex As Exception
+                    _Logger.Warn("Regex '{0}' could not be processed for input '{1}'", oControlDefinition.Regex, oFocusedControlName)
+                    _Logger.Error(ex)
+                End Try
+            Next
+
+            If oControls.Count > 0 Then
+                oProfileMatchedSofar.Controls = oControls
+                oFilteredProfiles.Add(oProfileMatchedSofar)
+            Else
+                Dim olowestNode As TreeNode = Node_Get_Lowest_Node(oProfileMatchedSofar.Name & "-REGEX")
+                If Not IsNothing(olowestNode) Then
+                    Dim oNode As New TreeNode($"NO MATCHES on Focused Control, Please check the Config")
+                    oNode.ImageIndex = 2
+                    oNode.Tag = oProfileMatchedSofar.Name & "-CONTROLNoMatch"
+                    olowestNode.Nodes.Add(oNode)
+                End If
+            End If
+        Next
+
+        Return oFilteredProfiles
+    End Function
+    Private Function Node_Get_Lowest_Node(NodeTag As String) As TreeNode
+        Dim oExit = False
+        Dim oParentNode As TreeNode
+        For Each oTreeNode As TreeNode In _TreeView.Nodes
+            For Each oNodes As TreeNode In oTreeNode.Nodes
+                If oExit = True Then Exit For
+                If oNodes.Tag = NodeTag Then
+                    oParentNode = oNodes
+                    oExit = True
+                    Exit For
+                End If
+            Next
+        Next
+        Dim olowestNode As TreeNode = GetLowestNode(oParentNode)
+
+        Return olowestNode
+    End Function
+    Public Function ClearNotMatchedProfiles(Profiles As List(Of ProfileData)) As List(Of ProfileData)
+        Dim oFilteredProfiles As New List(Of ProfileData)
+        For Each oProfile In Profiles
+            If oProfile.IsMatched Then
+                oFilteredProfiles.Add(oProfile)
+            End If
+        Next
+        Return oFilteredProfiles
+    End Function
+    Private Function TransformProfiles() As List(Of ProfileData)
+        Dim oList As New List(Of ProfileData)
+
+        For Each oRow As DataRow In _ProfileTable.Rows
+            Dim oProfileId = oRow.Item("GUID")
+            Dim oProcessList As List(Of ProfileData.ProcessData) = TransformProcesses(oProfileId, _ProcessTable)
+            Dim oWindowList As List(Of ProfileData.WindowData) = TransformWindows(oProfileId, _WindowTable)
+            Dim oControlList As List(Of ProfileData.ControlData) = TransformControls(oProfileId, _ControlTable)
+
+            oList.Add(New ProfileData() With {
+                .Guid = oRow.Item("GUID"),
+                .Regex = NotNull(oRow.Item("REGEX_EXPRESSION"), String.Empty),
+                .Name = NotNull(oRow.Item("NAME"), String.Empty),
+                .Comment = NotNull(oRow.Item("COMMENT"), String.Empty),
+                .ProfileType = NotNull(oRow.Item("PROFILE_TYPE"), String.Empty),
+                .Processes = oProcessList,
+                .Windows = oWindowList,
+                .Controls = oControlList
+            })
+        Next
+
+        Return oList
+    End Function
+
+    Private Function TransformControls(ProfileId As Integer, ControlDatatable As DataTable) As List(Of ProfileData.ControlData)
+        Dim oControlList As New List(Of ProfileData.ControlData)
+
+        For Each oRow As DataRow In ControlDatatable.Rows
+            If oRow.Item("PROFILE_ID") = ProfileId Then
+                oControlList.Add(New ProfileData.ControlData() With {
+                    .Guid = oRow.Item("GUID"),
+                   .Description = NotNull(oRow.Item("DESCRIPTION"), String.Empty),
+                   .Regex = NotNull(oRow.Item("REGEX"), String.Empty),
+                   .AutomationId = NotNull(oRow.Item("AUTOMATION_ID"), String.Empty),
+                   .WindowId = oRow.Item("WINDOW_ID")
+                })
+            End If
+        Next
+
+        Return oControlList
+    End Function
+    Private Function TransformProcesses(ProfileId As Integer, ProcessDatatable As DataTable) As List(Of ProfileData.ProcessData)
+        Dim oProcessList As New List(Of ProfileData.ProcessData)
+
+        For Each oRow As DataRow In ProcessDatatable.Rows
+            oProcessList.Add(New ProfileData.ProcessData() With {
+                .Guid = oRow.Item("GUID"),
+                .ProfileId = oRow.Item("PROFILE_ID"),
+                .ProcessName = NotNull(oRow.Item("PROC_NAME"), String.Empty)
+            })
+        Next
+
+        Return oProcessList
+    End Function
+    Private Function TransformWindows(ProfileId As Integer, WindowDatatable As DataTable) As List(Of ProfileData.WindowData)
+        Dim oWindowList As New List(Of ProfileData.WindowData)
+
+        For Each oRow As DataRow In WindowDatatable.Rows
+            oWindowList.Add(New ProfileData.WindowData() With {
+                .Guid = oRow.Item("GUID"),
+                .WindowProcessID = oRow.Item("PROCESS_ID"),
+                .Title = NotNull(oRow.Item("DESCRIPTION"), String.Empty),
+                .Regex = NotNull(oRow.Item("REGEX"), String.Empty),
+                .Sequence = NotNull(oRow.Item("SEQUENCE"), 0)
+            })
+        Next
+
+        Return oWindowList
+    End Function
+End Class

Modules/ZooFlow/Environment.vb

@@ -0,0 +1,4 @@
+Public Class Environment
+    Public User As State.UserState
+    Public Modules As Dictionary(Of String, State.ModuleState)
+End Class

Modules/ZooFlow/My Project/Application.Designer.vb

@@ -0,0 +1,13 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     Dieser Code wurde von einem Tool generiert.
+'     Laufzeitversion:4.0.30319.42000
+'
+'     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+'     der Code erneut generiert wird.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+

Modules/ZooFlow/My Project/Application.myapp

@@ -0,0 +1,10 @@
+<?xml version="1.0" encoding="utf-8"?>
+<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+  <MySubMain>false</MySubMain>
+  <SingleInstance>false</SingleInstance>
+  <ShutdownMode>0</ShutdownMode>
+  <EnableVisualStyles>true</EnableVisualStyles>
+  <AuthenticationMode>0</AuthenticationMode>
+  <ApplicationType>1</ApplicationType>
+  <SaveMySettingsOnExit>true</SaveMySettingsOnExit>
+</MyApplicationData>

Modules/ZooFlow/My Project/AssemblyInfo.vb

@@ -0,0 +1,35 @@
+Imports System
+Imports System.Reflection
+Imports System.Runtime.InteropServices
+
+' Allgemeine Informationen über eine Assembly werden über die folgenden
+' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern,
+' die einer Assembly zugeordnet sind.
+
+' Werte der Assemblyattribute überprüfen
+
+<Assembly: AssemblyTitle("ZooFlow")>
+<Assembly: AssemblyDescription("")>
+<Assembly: AssemblyCompany("")>
+<Assembly: AssemblyProduct("ZooFlow")>
+<Assembly: AssemblyCopyright("Copyright ©  2019")>
+<Assembly: AssemblyTrademark("")>
+
+<Assembly: ComVisible(False)>
+
+'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird.
+<Assembly: Guid("0eadc6da-3df6-4afc-9a4f-fb9688daa03f")>
+
+' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
+'
+'      Hauptversion
+'      Nebenversion
+'      Buildnummer
+'      Revision
+'
+' Sie können alle Werte angeben oder Standardwerte für die Build- und Revisionsnummern verwenden,
+' übernehmen, indem Sie "*" eingeben:
+' <Assembly: AssemblyVersion("1.0.*")>
+
+<Assembly: AssemblyVersion("1.0.0.0")>
+<Assembly: AssemblyFileVersion("1.0.0.0")>

Modules/ZooFlow/My Project/Resources.Designer.vb

@@ -0,0 +1,63 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     Dieser Code wurde von einem Tool generiert.
+'     Laufzeitversion:4.0.30319.42000
+'
+'     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+'     der Code erneut generiert wird.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+Imports System
+
+Namespace My.Resources
+    
+    'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert
+    '-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert.
+    'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen
+    'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu.
+    '''<summary>
+    '''  Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
+    '''</summary>
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "15.0.0.0"),  _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
+     Global.Microsoft.VisualBasic.HideModuleNameAttribute()>  _
+    Friend Module Resources
+        
+        Private resourceMan As Global.System.Resources.ResourceManager
+        
+        Private resourceCulture As Global.System.Globalization.CultureInfo
+        
+        '''<summary>
+        '''  Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
+        '''</summary>
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
+        Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
+            Get
+                If Object.ReferenceEquals(resourceMan, Nothing) Then
+                    Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("DigitalData.Modules.ZooFlow.Resources", GetType(Resources).Assembly)
+                    resourceMan = temp
+                End If
+                Return resourceMan
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
+        '''  Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
+        '''</summary>
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
+        Friend Property Culture() As Global.System.Globalization.CultureInfo
+            Get
+                Return resourceCulture
+            End Get
+            Set
+                resourceCulture = value
+            End Set
+        End Property
+    End Module
+End Namespace

Modules/ZooFlow/My Project/Resources.resx

@@ -0,0 +1,117 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

Modules/ZooFlow/My Project/Settings.Designer.vb

@@ -0,0 +1,73 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     Dieser Code wurde von einem Tool generiert.
+'     Laufzeitversion:4.0.30319.42000
+'
+'     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+'     der Code erneut generiert wird.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My
+    
+    <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.7.0.0"),  _
+     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
+    Partial Friend NotInheritable Class MySettings
+        Inherits Global.System.Configuration.ApplicationSettingsBase
+        
+        Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
+        
+#Region "Automatische My.Settings-Speicherfunktion"
+#If _MyType = "WindowsForms" Then
+    Private Shared addedHandler As Boolean
+
+    Private Shared addedHandlerLockObject As New Object
+
+    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+    Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
+        If My.Application.SaveMySettingsOnExit Then
+            My.Settings.Save()
+        End If
+    End Sub
+#End If
+#End Region
+        
+        Public Shared ReadOnly Property [Default]() As MySettings
+            Get
+                
+#If _MyType = "WindowsForms" Then
+               If Not addedHandler Then
+                    SyncLock addedHandlerLockObject
+                        If Not addedHandler Then
+                            AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
+                            addedHandler = True
+                        End If
+                    End SyncLock
+                End If
+#End If
+                Return defaultInstance
+            End Get
+        End Property
+    End Class
+End Namespace
+
+Namespace My
+    
+    <Global.Microsoft.VisualBasic.HideModuleNameAttribute(),  _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()>  _
+    Friend Module MySettingsProperty
+        
+        <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")>  _
+        Friend ReadOnly Property Settings() As Global.DigitalData.Modules.ZooFlow.My.MySettings
+            Get
+                Return Global.DigitalData.Modules.ZooFlow.My.MySettings.Default
+            End Get
+        End Property
+    End Module
+End Namespace

Modules/ZooFlow/My Project/Settings.settings

@@ -0,0 +1,7 @@
+<?xml version='1.0' encoding='utf-8'?>
+<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
+  <Profiles>
+    <Profile Name="(Default)" />
+  </Profiles>
+  <Settings />
+</SettingsFile>

Modules/ZooFlow/Params/ClipboardWatcherParams.vb

@@ -0,0 +1,5 @@
+Imports DigitalData.Modules.ZooFlow.Params
+
+Public Class ClipboardWatcherParams
+    Public MatchingProfiles As List(Of ProfileData)
+End Class

Modules/ZooFlow/Params/ProfileData.vb

@@ -0,0 +1,47 @@
+Namespace Params
+    Public Class ProfileData
+        Public Guid As Integer
+        Public Regex As String
+        Public Name As String
+        Public Comment As String
+        Public ProfileType As Integer
+
+        Public Processes As List(Of ProfileData.ProcessData)
+        Public Windows As List(Of ProfileData.WindowData)
+        Public Controls As List(Of ProfileData.ControlData)
+
+        Public CountDocs As Integer = 0
+        Public CountData As Integer = 0
+        Public IsMatched As Boolean = False
+        Public MatchedProcessID As Integer = 0
+        Public MatchedWindowID As Integer = 0
+        Public MatchedControlID As Integer = 0
+        Public SelectCommand As String
+
+        Public Class ProcessData
+            Public Guid As Integer
+            Public ProfileId As Integer
+            Public ProcessName As String
+            Public IsMatched As Boolean = False
+        End Class
+
+        Public Class ControlData
+            Public Guid As Integer
+            Public WindowId As Integer
+            Public Description As String
+            Public Regex As String
+            Public AutomationId As String
+            Public ControlName As String
+            Public IsMatched As Boolean = False
+        End Class
+
+        Public Class WindowData
+            Public Guid As Integer
+            Public WindowProcessID As Integer
+            Public Title As String
+            Public Regex As String
+            Public Sequence As Integer
+            Public IsMatched As Boolean = False
+        End Class
+    End Class
+End Namespace

Modules/ZooFlow/State/ModuleState.vb

@@ -0,0 +1,7 @@
+Namespace State
+    Public Class ModuleState
+        Public Property HasAccess As Boolean
+        Public Property IsAdmin As Boolean
+        Public Property LoggedIn As Integer
+    End Class
+End Namespace

Modules/ZooFlow/State/ServiceState.vb

@@ -0,0 +1,6 @@
+Namespace State
+    Public Class ServiceState
+        Public Property Online As Boolean = True
+        Public Property LastChecked As DateTime = DateTime.Now
+    End Class
+End Namespace

Modules/ZooFlow/State/UserState.vb

@@ -0,0 +1,28 @@
+Imports System.Threading
+
+Namespace State
+    ''' <summary>
+    ''' Helper Class to hold User State
+    ''' </summary>
+    Public Class UserState
+        Public Property UserId As Integer
+        Public Property UserName As String
+        Public Property Surname As String
+        Public Property GivenName As String
+        Public Property ShortName As String
+        Public Property Email As String
+        Public Property MachineName As String
+        Public Property DateFormat As String
+        Public Property Language As String
+
+        ''' <summary>
+        ''' Initialize user object with values that can be read from the environment
+        ''' </summary>
+        Public Sub New()
+            Language = Thread.CurrentThread.CurrentCulture.Name
+            UserName = System.Environment.UserName
+            MachineName = System.Environment.MachineName
+        End Sub
+    End Class
+End Namespace
+

Modules/ZooFlow/ZooFlow.vbproj

@@ -0,0 +1,135 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
+  <PropertyGroup>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <ProjectGuid>{81CAC44F-3711-4C8F-AE98-E02A7448782A}</ProjectGuid>
+    <OutputType>Library</OutputType>
+    <RootNamespace>DigitalData.Modules.ZooFlow</RootNamespace>
+    <AssemblyName>DigitalData.Modules.ZooFlow</AssemblyName>
+    <FileAlignment>512</FileAlignment>
+    <MyType>Windows</MyType>
+    <TargetFrameworkVersion>v4.6.1</TargetFrameworkVersion>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <DebugSymbols>true</DebugSymbols>
+    <DebugType>full</DebugType>
+    <DefineDebug>true</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <OutputPath>bin\Debug\</OutputPath>
+    <DocumentationFile>DigitalData.Modules.ZooFlow.xml</DocumentationFile>
+    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <DebugType>pdbonly</DebugType>
+    <DefineDebug>false</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <Optimize>true</Optimize>
+    <OutputPath>bin\Release\</OutputPath>
+    <DocumentationFile>DigitalData.Modules.ZooFlow.xml</DocumentationFile>
+    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionExplicit>On</OptionExplicit>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionCompare>Binary</OptionCompare>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionStrict>Off</OptionStrict>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionInfer>On</OptionInfer>
+  </PropertyGroup>
+  <ItemGroup>
+    <Reference Include="Microsoft.CSharp" />
+    <Reference Include="NLog, Version=4.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL">
+      <HintPath>..\..\packages\NLog.4.6.7\lib\net45\NLog.dll</HintPath>
+    </Reference>
+    <Reference Include="System" />
+    <Reference Include="System.Configuration" />
+    <Reference Include="System.Data" />
+    <Reference Include="System.Drawing" />
+    <Reference Include="System.IO.Compression" />
+    <Reference Include="System.Runtime.Serialization" />
+    <Reference Include="System.ServiceModel" />
+    <Reference Include="System.Transactions" />
+    <Reference Include="System.Windows.Forms" />
+    <Reference Include="System.Xml" />
+    <Reference Include="System.Core" />
+    <Reference Include="System.Xml.Linq" />
+    <Reference Include="System.Data.DataSetExtensions" />
+    <Reference Include="System.Net.Http" />
+  </ItemGroup>
+  <ItemGroup>
+    <Import Include="Microsoft.VisualBasic" />
+    <Import Include="System" />
+    <Import Include="System.Collections" />
+    <Import Include="System.Collections.Generic" />
+    <Import Include="System.Data" />
+    <Import Include="System.Diagnostics" />
+    <Import Include="System.Linq" />
+    <Import Include="System.Xml.Linq" />
+    <Import Include="System.Threading.Tasks" />
+  </ItemGroup>
+  <ItemGroup>
+    <Compile Include="ClassProfileFilter.vb" />
+    <Compile Include="Environment.vb" />
+    <Compile Include="My Project\AssemblyInfo.vb" />
+    <Compile Include="My Project\Application.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DependentUpon>Application.myapp</DependentUpon>
+    </Compile>
+    <Compile Include="My Project\Resources.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DesignTime>True</DesignTime>
+      <DependentUpon>Resources.resx</DependentUpon>
+    </Compile>
+    <Compile Include="My Project\Settings.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DependentUpon>Settings.settings</DependentUpon>
+      <DesignTimeSharedInput>True</DesignTimeSharedInput>
+    </Compile>
+    <Compile Include="Params\ClipboardWatcherParams.vb" />
+    <Compile Include="Params\ProfileData.vb" />
+    <Compile Include="State\ModuleState.vb" />
+    <Compile Include="State\ServiceState.vb" />
+    <Compile Include="State\UserState.vb" />
+  </ItemGroup>
+  <ItemGroup>
+    <EmbeddedResource Include="My Project\Resources.resx">
+      <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
+      <LastGenOutput>Resources.Designer.vb</LastGenOutput>
+      <CustomToolNamespace>My.Resources</CustomToolNamespace>
+      <SubType>Designer</SubType>
+    </EmbeddedResource>
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="My Project\Application.myapp">
+      <Generator>MyApplicationCodeGenerator</Generator>
+      <LastGenOutput>Application.Designer.vb</LastGenOutput>
+    </None>
+    <None Include="My Project\Settings.settings">
+      <Generator>SettingsSingleFileGenerator</Generator>
+      <CustomToolNamespace>My</CustomToolNamespace>
+      <LastGenOutput>Settings.Designer.vb</LastGenOutput>
+    </None>
+    <None Include="packages.config" />
+  </ItemGroup>
+  <ItemGroup>
+    <ProjectReference Include="..\..\Modules.Language\Language.vbproj">
+      <Project>{d3c8cfed-d6f6-43a8-9bdf-454145d0352f}</Project>
+      <Name>Language</Name>
+    </ProjectReference>
+    <ProjectReference Include="..\..\Modules.Logging\Logging.vbproj">
+      <Project>{903B2D7D-3B80-4BE9-8713-7447B704E1B0}</Project>
+      <Name>Logging</Name>
+    </ProjectReference>
+    <ProjectReference Include="..\..\Windows\Windows.vbproj">
+      <Project>{5EFAEF9B-90B9-4F05-9F70-F79AD77FFF86}</Project>
+      <Name>Windows</Name>
+    </ProjectReference>
+  </ItemGroup>
+  <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
+</Project>

Modules/ZooFlow/packages.config

@@ -0,0 +1,4 @@
+<?xml version="1.0" encoding="utf-8"?>
+<packages>
+  <package id="NLog" version="4.6.7" targetFramework="net461" />
+</packages>