;Autor: Sicro ;http://www.purebasic.fr/german/viewtopic.php?p=315107#p315107 EnableExplicit Define.LASTINPUTINFO plii\cbSize = SizeOf(LASTINPUTINFO) Delay(3000) If GetLastInputInfo_(@plii) Debug "Der Computer wurde nicht mehr bedient seit: " + Str(GetTickCount_() - plii\dwTime) + " Millisekunden" Else Debug "Abfrage fehlgeschlagen" EndIf ; IDE Options = PureBasic 5.31 (Windows - x64) ; CursorPosition = 2 ; EnableUnicode ; EnableXP ; EnableUser ; EnableCompileCount = 0 ; EnableBuildCount = 0