Allgemeine Kategorie Form1
Privates WithEvents tmr als neues System.Windows.Forms.Timer
Privat Selbstfunktion GetForegroundWindow Bibliothek „user32.dll“ () als IntPtr erklären
Privates Unterseeboot Form1_Load (ByVal Absender als System.Object, ByVal e als System.EventArgs) behandelt MyBase.Load
tmr. Abstand = TimeSpan.FromMinutes (5).TotalMilliseconds
tmr. Beginnen ()
Unterseeboot beenden
Privates Unterseeboot tmr_Tick_1 (ByVal Absender als System.Object, ByVal e als System.EventArgs) behandelt tmr. Häckchen
Schwaches foreWnd als IntPtr = GetForegroundWindow
Für jedes P als Prozess in Process.GetProcesses
Wenn P.MainWindowHandle.Equals (foreWnd) dann
Debug.Print („aktuelle Uhrzeit: “ U. DateTime.Now)
Debug.Print („Prozessname: “ U.P.ProcessName)
Debug.Print („Prozesstitel: “ U.P.MainWindowTitle)
Debug.Print („-----------------------------------------------------------")
Für herausnehmen
Beenden wenn
Zunächst
Enden-Unterseeboot
Enden-Kategorie
|