27 lines
886 B
VB.net
27 lines
886 B
VB.net
Imports System.Reflection
|
|
|
|
Public Class frmProcessCapture
|
|
Public ProcessId As Integer
|
|
Public ProcessName As String
|
|
Public WindowTitle As String
|
|
|
|
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
|
|
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
|
|
|
|
Button1.Enabled = True
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub frmProcessCapture_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
Timer1.Enabled = True
|
|
End Sub
|
|
End Class |