18 lines
602 B
VB.net
18 lines
602 B
VB.net
Imports DD_Clipboard_Watcher.ClassWindowAPI
|
|
|
|
Public Class frmControlCapture
|
|
Public ControlName As String
|
|
Public ProcessName As String
|
|
|
|
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
|
|
Dim oResult As WindowInfo = GetFocusedControl(Handle)
|
|
|
|
If oResult IsNot Nothing Then
|
|
txtPID.Text = oResult.ClassName
|
|
txtName.Text = oResult.ProcessName
|
|
txtControlName.Text = oResult.ControlName
|
|
ControlName = oResult.ControlName
|
|
ProcessName = oResult.ProcessName
|
|
End If
|
|
End Sub
|
|
End Class |