Imports System.Diagnostics.Process
Imports System

    Private Declare Function GetForegroundWindow Lib "user32" Alias "GetForegroundWindow" () As IntPtr
    Private Declare Auto Function GetWindowText Lib "user32" (ByVal hWnd As System.IntPtr, ByVal lpString As System.Text.StringBuilder, ByVal cch As Integer) As Integer
 
 
    'Gibt den aktuellen Wert des Fenstertitels im Vordegrund an.
    Private Function GetCaption() As String
        Dim Caption As New System.Text.StringBuilder(256)
        Dim hWnd As IntPtr = GetForegroundWindow()
        Try
            GetWindowText(hWnd, Caption, Caption.Capacity)
            Return Caption.ToString()
        Catch ex As Exception
        End Try
    End Function
 
    'Gibt nicht genutzten Arbeitsspeicher frei
    Private Declare Auto Function SetProcessWorkingSetSize Lib "kernel32.dll" (ByVal procHandle As IntPtr, ByVal min As Int32, ByVal max As Int32) As Boolean
 
    'Prüft das drücken von Tastatureingaben
    Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Short

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' Zeigt Anwendung im Tray 
        Me.Hide()
        Me.ShowInTaskbar = False
 
        'Zeigt das Icon + Anwendungsbeschreibung im Tray-Bereich an
        With NotifyIcon1
            .Icon = My.Resources.Keyboard
            .Text = "Clipboard Control"
            .Visible = True
        End With
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
 
        'Gibt freien Arbeitsspeicher frei
        SetProcessWorkingSetSize(System.Diagnostics.Process.GetCurrentProcess().Handle, -1, -1)
 
        'Fenstername des aktiven Fensters wird ermittelt.
        Dim makel As String
        Dim CapTxt As String = GetCaption()
        Try
            If makel <> CapTxt Then
                makel = CapTxt
            End If
        Catch ex As Exception
        End Try
 
        Try
            'Prüfung ob Fenstername = Wert ist bzw. = Wert enthält, nur dann wird der Zwischenspeicher bearbeitet
                If CapTxt.Contains("Login Startseite") Or CapTxt.Contains("Login Userbereich") Then
 
                    'Der Text aus der Zwischenablage wird in die RichtextBox1 geschrieben
                    With RichTextBox1
                        'Prüft ob Text in der Zwischenablage vorhanden ist.
                        If Clipboard.ContainsText AndAlso Not .Text = Clipboard.GetText Then
                            'Löschen für neun Text und Schreiben in RichTextBox.
                            .Clear() : .Paste()
                            'Die gewünschten Stellen werden ersetzt durch...
                            RichTextBox1.Text = RichTextBox1.Text.Replace("Hallo", "Tschüss")
                            RichTextBox1.Text = RichTextBox1.Text.Replace("AAA", "aaa")
 
                            'Der Text aus der RichTextBox1 wird zurück an den Zwischenspeicher gegeben
                            Clipboard.SetText(RichTextBox1.Text)
 
                            'Zur Schönheit wird bei kopierten Text die RichTextBox grün gefärbt
                            RichTextBox1.BackColor = Color.LightGreen
                        End If
                    End With
 
                Else
                    'Wird kein Text aus dem gewünschten Programm erkannt, wird die RichTextbox rot gefärbt und erhält einen Hinweistext
                    RichTextBox1.BackColor = Color.MistyRose
                    RichTextBox1.Text = vbNewLine & "              Es konnte kein kopierter Text aus dem Portal erkannt werden!" &; vbNewLine & vbNewLine & "              Die Anwendung überwacht nur kopierte Texte aus" & vbNewLine & "              dem Browser."
                End If
            Else
            End If
 
        Catch ex As Exception
        End Try
 
        'Beim drücken von Einfügen (STRG + V) wird die RichTextBox2 geleert.
        Dim Copy2 As Boolean = ((GetAsyncKeyState(Keys.ControlKey) And &H8000) <> 0)
        Dim Copy2_2 As Boolean = ((GetAsyncKeyState(Keys.V) And &H8000) <> 0)
        If Copy2 AndAlso Copy2_2 Then
            RichTextBox1.BackColor = Color.White
            RichTextBox1.Text = ""
 
        End If
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.Hide()
        Me.ShowInTaskbar = False
    End Sub

    Private Sub NotifyIcon1_Click(ByVal sender As Object,
   ByVal e As System.EventArgs
   ) Handles NotifyIcon1.Click
         ' Öffnet die Anwendung bei Klick
        Me.Show()
        Me.ShowInTaskbar = True
    End Sub
 
    Private Sub NotifyIcon1_DoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.DoubleClick
        ' Öffnetdie Anwendungbei Doppelklick 
Me.Show() 
Me.ShowInTaskbar = True
End Sub