Clase pública Form1
Tmr privado de WithEvents como nuevo System.Windows.Forms.Timer
Privado declarar la liberación auto “user32.dll” de GetForegroundWindow de la función () como IntPtr
El submarino privado Form1_Load (remitente de ByVal como System.Object, ByVal e como System.EventArgs) dirige MyBase.Load
tmr. Intervalo = TimeSpan.FromMinutes (5).TotalMilliseconds
tmr. Comenzar ()
Terminar el submarino
El submarino privado tmr_Tick_1 (remitente de ByVal como System.Object, ByVal e como System.EventArgs) maneja el tmr. Señal
foreWnd dévil como IntPtr = GetForegroundWindow
Para cada P como proceso en Process.GetProcesses
Si P.MainWindowHandle.Equals (foreWnd) entonces
Debug.Print (“tiempo actual: ” Y DateTime.Now)
Debug.Print (“nombre de proceso: ” Y P.ProcessName)
Debug.Print (“título de proceso: ” Y P.MainWindowTitle)
Debug.Print (“-----------------------------------------------------------")
Salir para
Terminar si
Después
Submarino del extremo
Clase del extremo
|