Allmänhet klassificerar Form1
Privat WithEvents tmr som ny System.Windows.Forms.Timer
Privat förklara att automatiskn fungerar den GetForegroundWindow liben ”user32.dll” () som IntPtr
Den privata suben Form1_Load (den ByVal avsändaren som System.Object, ByVal e som System.EventArgs) behandlar MyBase.Load
tmr. Mellanrum = TimeSpan.FromMinutes (5) .TotalMilliseconds
tmr. Starta ()
Avsluta suben
Den privata suben tmr_Tick_1 (den ByVal avsändaren som System.Object, ByVal e som System.EventArgs) behandlar tmr. Fästing
Dunkel foreWnd som IntPtr = GetForegroundWindow
För varje P som processaa i Process.GetProcesses
Om P.MainWindowHandle.Equals (foreWnd) därefter
Debug.Print (”ström Time: ” & DateTime.Now)
Debug.Print (”bearbeta känt: ” & P.ProcessName)
Debug.Print (”bearbeta titeln: ” & P.MainWindowTitle)
Debug.Print (”,-----------------------------------------------------------”)
Gå ut för
Avsluta om
Därefter
Avsluta suben
Avsluta klassificerar
|