NewDocSearch

This commit is contained in:
Digital Data - Marlon Schreiber
2019-07-10 15:30:32 +02:00
parent 695525c13b
commit add17d703b
71 changed files with 23244 additions and 111 deletions

View File

@@ -56,14 +56,14 @@ Public Class clsWINDOWSApi
Dim proc As Process = Process.GetProcessById(pid)
If proc Is Nothing Then Exit Sub
Dim msg = pid.ToString & vbNewLine
PROC_PID = pid.ToString
PROC_Name = proc.ProcessName
CurrPROC_PID = pid.ToString
CurrPROC_Name = proc.ProcessName
msg &= vbNewLine & "Procname: " & proc.ProcessName
msg &= vbNewLine & "MainWindowTitle: " & proc.MainWindowTitle
msg &= vbNewLine & "WindowTitle: " & WindowTitle
PROC_WindowTitle = WindowTitle
CurrPROC_WindowTitle = WindowTitle
msg &= vbNewLine & TitleLength.ToString
' MsgBox(msg)