WIP
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user