Dim hwnd As Long
Dim ProcessID As Long
Dim lpCreationTime As FILETIME
Dim lpExitTime As FILETIME
Dim lpKernelTime As FILETIME
Dim lpUserTime As FILETIME
Dim Ergebnis
 
hwnd = FindWindow(vbNullString, "Anwendung")
ProcessID = GetWindowThreadProcessId(hwnd, ProcessID)
Ergebnis = GetThreadTimes(ProcessID, lpCreationTime, lpExitTime, lpKernelTime,  _
lpUserTime)

Windows, die gr??te Black-Box oder auch der l?ngste Virus.