Openbare Klasse Form1
Privé WithEvents tmr als Nieuwe System.Windows.Forms.Timer
Privé verklaar de AutoLib „user32.dll“ van GetForegroundWindow van de Functie () als IntPtr
Privé SubForm1_Load (ByVal afzender als System.Object, ByVal e als System.EventArgs) behandelt MyBase.Load
tmr. Interval = TimeSpan.FromMinutes (5) .TotalMilliseconds
tmr. Begin ()
Sub van het eind
Privé Subtmr_Tick_1 (ByVal afzender als System.Object, ByVal e als System.EventArgs) behandelt tmr. Tik
Schemerige foreWnd als IntPtr = GetForegroundWindow
Voor Elk P als Proces in Process.GetProcesses
Als P.MainWindowHandle.Equals (foreWnd) toen
Debug.Print („Huidige Tijd: “ & DateTime.Now)
Debug.Print (de „Naam van het Proces: “ & P.ProcessName)
Debug.Print (de „Titel van het Proces: “ & P.MainWindowTitle)
Debug.Print („“)
Uitgang voor
Eind als
Daarna
Sub van het eind
De Klasse van het eind
|