Вопрос : Получите в настоящее время имя активно применения

Я хочу написать применение для того чтобы контролировать что средство программирования используется и для сколько времени на machine.

I предназначают записывающ каждые 5 минут к имени в настоящее время - активно program

How я получаю имя программы?

Thanks

Steve class=

Ответ : Получите в настоящее время имя активно применения

Вы smogли сделать:

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24:

Общественный тип Form1 Приватное tmr WithEvents как новое System.Windows.Forms.Timer Приватно объявите автоматическую свободу «user32.dll» GetForegroundWindow функции () как IntPtr Приватная подводная лодка Form1_Load (прислужник ByVal как System.Object, ByVal e как System.EventArgs) регулирует MyBase.Load tmr. Интервал = TimeSpan.FromMinutes (5).TotalMilliseconds tmr. Начните () Закончите подводную лодку Приватная подводная лодка tmr_Tick_1 (прислужник ByVal как System.Object, ByVal e как System.EventArgs) регулирует tmr. Тикание Тусклое foreWnd как IntPtr = GetForegroundWindow Для каждого p как процесс в Process.GetProcesses Если P.MainWindowHandle.Equals (foreWnd) после этого Debug.Print («текущий момент времени: » & DateTime.Now) Debug.Print («отростчатое имя: » & P.ProcessName) Debug.Print («отростчатое название: » & P.MainWindowTitle) Debug.Print («-----------------------------------------------------------") Выходите для Закончитесь если Затем Подводная лодка конца Тип конца