many bvuttons

This commit is contained in:
Jonathan Jenne
2019-07-25 16:18:41 +02:00
parent 4438c6e9a7
commit 257ed65246
14 changed files with 2394 additions and 280 deletions

View File

@@ -0,0 +1,21 @@
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()
If CurrPROC_Name <> "DD_Clipboard_Watcher" Then
txtPID.Text = CurrPROC_PID
txtName.Text = CurrPROC_Name
txtWindowTitle.Text = CurrPROC_WindowTitle
ProcessId = CurrPROC_PID
ProcessName = CurrPROC_Name
WindowTitle = CurrPROC_WindowTitle
End If
End Sub
Private Sub frmProcessCapture_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Timer1.Enabled = True
End Sub
End Class