Classe pública Form1
Tmr confidencial de WithEvents como System.Windows.Forms.Timer novo
Confidencial declarar o auto liberal “user32.dll” de GetForegroundWindow da função () como IntPtr
O submarino confidencial Form1_Load (remetente de ByVal como System.Object, ByVal e como System.EventArgs) segura MyBase.Load
tmr. Intervalo = TimeSpan.FromMinutes (5) .TotalMilliseconds
tmr. Começar ()
Terminar o submarino
O submarino confidencial tmr_Tick_1 (remetente de ByVal como System.Object, ByVal e como System.EventArgs) segura o tmr. Tiquetaque
foreWnd não ofuscante como IntPtr = GetForegroundWindow
Para cada P como o processo em Process.GetProcesses
Se P.MainWindowHandle.Equals (foreWnd) então
Debug.Print (“tempo atual: ” & DateTime.Now)
Debug.Print (“nome Process: ” & P.ProcessName)
Debug.Print (“título Process: ” & P.MainWindowTitle)
Debug.Print (“-----------------------------------------------------------")
Retirar para
Terminar se
Em seguida
Submarino da extremidade
Classe da extremidade
|