58 lines
2.0 KiB
VB.net
58 lines
2.0 KiB
VB.net
Imports System.Reflection
|
|
|
|
Public Class frmProcessCapture
|
|
Public ProcessId As Integer
|
|
Public ProcessName As String
|
|
Public WindowTitle As String
|
|
Public IgnoreProcess As Boolean = False
|
|
|
|
Private _CurrentProcess As String = String.Empty
|
|
|
|
Public Sub New()
|
|
' Dieser Aufruf ist für den Designer erforderlich.
|
|
InitializeComponent()
|
|
End Sub
|
|
|
|
Public Sub New(CurrentProcess As String)
|
|
' Dieser Aufruf ist für den Designer erforderlich.
|
|
InitializeComponent()
|
|
|
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
|
_CurrentProcess = CurrentProcess
|
|
End Sub
|
|
|
|
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
|
|
Dim oWindow = ClassWindowAPI.GetWindowInfo()
|
|
|
|
If oWindow Is Nothing Then
|
|
Exit Sub
|
|
End If
|
|
|
|
Dim oProgramName As String = Assembly.GetEntryAssembly().GetName().Name
|
|
Dim oIsClipboardWatcherWindow = oWindow.ProcessName <> oProgramName
|
|
Dim oIsCorrectProcessName = IIf(_CurrentProcess = String.Empty, True, oWindow.ProcessName = _CurrentProcess)
|
|
|
|
txtPID.Text = oWindow.ProcessId
|
|
txtName.Text = oWindow.ProcessName
|
|
txtWindowTitle.Text = oWindow.WindowTitle
|
|
ProcessId = oWindow.ProcessId
|
|
ProcessName = oWindow.ProcessName
|
|
WindowTitle = oWindow.WindowTitle
|
|
|
|
If oIsClipboardWatcherWindow And oIsCorrectProcessName Then
|
|
Button1.Enabled = True
|
|
txtName.BackColor = SystemColors.Control
|
|
Else
|
|
Button1.Enabled = False
|
|
txtName.BackColor = Color.LightSalmon
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub frmProcessCapture_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
Timer1.Enabled = True
|
|
End Sub
|
|
|
|
Private Sub chkIgnoreProcessName_CheckedChanged(sender As Object, e As EventArgs) Handles chkIgnoreProcessName.CheckedChanged
|
|
IgnoreProcess = chkIgnoreProcessName.Checked
|
|
End Sub
|
|
End Class |