This commit is contained in:
Jonathan Jenne
2019-08-05 16:32:47 +02:00
parent 926801f7ba
commit 16ac706a6e
30 changed files with 1145 additions and 1062 deletions

View File

@@ -6,16 +6,18 @@ Public Class frmProcessCapture
Public WindowTitle As String
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
clsWINDOWSApi.Get_ForegroundWindow_Info()
Dim oWindow = ClassWindowAPI.GetWindowInfo()
'clsWINDOWSApi.Get_ForegroundWindow_Info()
Dim oProgramName As String = Assembly.GetEntryAssembly().GetName().Name
If CurrPROC_Name <> oProgramName Then
txtPID.Text = CurrPROC_PID
txtName.Text = CurrPROC_Name
txtWindowTitle.Text = CurrPROC_WindowTitle
ProcessId = CurrPROC_PID
ProcessName = CurrPROC_Name
WindowTitle = CurrPROC_WindowTitle
If oWindow.ProcessName <> oProgramName Then
txtPID.Text = oWindow.ProcessId
txtName.Text = oWindow.ProcessName
txtWindowTitle.Text = oWindow.WindowTitle
ProcessId = oWindow.ProcessId
ProcessName = oWindow.ProcessName
WindowTitle = oWindow.WindowTitle
Button1.Enabled = True
End If