Declare Function BringWindowToTop Lib "user32.dll" (ByVal hwnd As Long) As Long
 
'Für den 2. Button:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As  _
System.EventArgs) Handles Button2.Click
  Dim p As Process() = Process.GetProcesses() 'Alle Prozesse ermitteln
 
        For Each p1 As Process In p
            'Bei manchen Prozessen kann nichts ausgelesen werden, deshalb 
            ' try...catch
            Try
                If p1.MainModule.FileName = "C:\WINDOWS\system32\notepad.exe" _
                  Then 'Notepad herausfiltern
                    BringWindowToTop(p1.MainWindowHandle.ToInt64) 'Das Fenster 
                    ' in den Vordergrund bringen
                    SendKeys.Send("Hallo")
                End If
            Catch ex As Exception
            End Try
        Next
End Sub

______________________________________


www.fk-freeware.de.vu