Classe publique Form1
Tmr privé de WithEvents en tant que nouveau System.Windows.Forms.Timer
Privé déclarer la bibliothèque automatique « user32.dll » de GetForegroundWindow de fonction () comme IntPtr
Le sous-marin privé Form1_Load (expéditeur de ByVal comme System.Object, ByVal e comme System.EventArgs) manipule MyBase.Load
tmr. Intervalle = TimeSpan.FromMinutes (5).TotalMilliseconds
tmr. Commencer ()
Finir le sous-marin
Le sous-marin privé tmr_Tick_1 (expéditeur de ByVal comme System.Object, ByVal e comme System.EventArgs) manipule le tmr. Coutil
Faible foreWnd comme IntPtr = GetForegroundWindow
Pour chaque P comme processus dans Process.GetProcesses
Si P.MainWindowHandle.Equals (foreWnd) puis
Debug.Print (« temps courant : » Et DateTime.Now)
Debug.Print (« nom de processus : » Et P.ProcessName)
Debug.Print (« titre de processus : » Et P.MainWindowTitle)
Debug.Print (« -----------------------------------------------------------")
Sortir pour
Finir si
Après
Sous-marin d'extrémité
Classe d'extrémité
|