Hallo,
stellt Ihr Euch auch ab und an diese Frage?
Meine Frau gab mir vorher den Rat, mal vor dem herunterfahren des PC die Stunden zu zählen, wie lange ich schon wieder vor der Kiste hocke.
Da die Lösung für mich und auch gleichsam für meine Kinder und meine Frau gelten soll, habe ich noch außer die OnTime des PC'S noch den PC Name, den Benutzer und das Datum ein eine Messagebox integriert.
Diese Lösung ist für Fortgeschrittene und Profies sicherlich nichts anspruchsvolles an Code und wirkt für manche hier vielleicht lächerlich, dennoch könnte für den einen oder anderen hier im Forum die OnTime, die er am PC pro Tag verbringt, nachdenklich stimmen.
C
#include <FileConstants.au3>
#include <MsgBoxConstants.au3>
#include <WinAPIMisc.au3>
#include <WinAPISys.au3>
#include <WinAPIMisc.au3>
#include <WinAPISys.au3>
_ontime()
Func _ontime()
; Erstellt eine konstante Variable ($sFilePath) im Dateipfad die ausgelesen und beschrieben werden kann.
Local Const $sFilePath = (@ScriptDir & '\Ontime.txt')
; Erstellt eine Datei mit gewünschten Inhalt zur Ontime des PC oder meldet einen Fehler.
If Not FileWrite($sFilePath, ("Computername: "& @ComputerName & @CRLF & "Benutzername: "& @UserName& @CRLF & "Akt. Datum: "& @MDAY &'.' & @MON &'.' & @YEAR & @CRLF & "PC OnTime: " & _WinAPI_StrFromTimeInterval(_WinAPI_GetTickCount()) & @CRLF)) Then
MsgBox(48, "", "Es gibt keine Datei mit dem Namen ontime.txt")
Return False
EndIf
; Öffnet die Datei zum auslesen oder gibt einen Fehler aus.
Local $hFileOpen = FileOpen($sFilePath, $FO_READ)
If $hFileOpen = -1 Then
MsgBox(48, "", "Kann Datei Opntime.txt nicht auslesen")
Return False
EndIf
; Liest das handle $hFileOpen aus.
Local $sFileRead = FileRead($hFileOpen)
; Schließt das handle $hFileOpen.
FileClose($hFileOpen)
; Meldet das Ergebnis aus FileRead in einer Messagebox.
MsgBox(64, "PC-Ontime v 1.0.0.0", "" & @CRLF & $sFileRead)
; Löscht die Datei Ontime.txt
FileDelete($sFilePath)
EndFunc ;==>_ontime
Alles anzeigen
Verbesserungen oder Ergänzungen des Codes sind herzlich willkommen.