Gibt an, ob das System periodisch eine Anpassung der Uhrzeit vornimmt
#include <Date.au3>
_Date_Time_GetSystemTimeAdjustment ( )
_Date_Time_SetSystemTimeAdjustment
#include <Date.au3>
#include <MsgBoxConstants.au3>
#include <WinAPIError.au3>
; Unter Vista muß die Windows API "SetSystemTimeAdjustment" möglicherweise von der Systemsicherheit ausgenommen werden
Example()
Func Example()
Local $aInfo
; Öffnen des Zeitdialogs, um die Änderungen zu verfolgen ;)
Run("RunDll32.exe shell32.dll,Control_RunDLL timedate.cpl")
WinWaitActive("[CLASS:#32770]")
; Ermittelt die aktuellen Zeiteinstellungen
$aInfo = _Date_Time_GetSystemTimeAdjustment()
; Verlangsame die Systemuhr
If Not _Date_Time_SetSystemTimeAdjustment($aInfo[1] / 10, False) Then
MsgBox($MB_SYSTEMMODAL, "Fehler", "Die Systemzeit kann nicht gebremst werden" & @CRLF & @CRLF & _WinAPI_GetLastErrorMessage())
Exit
EndIf
MsgBox($MB_SYSTEMMODAL, "Information", "Bremse die Zeit", 2)
Sleep(5000)
; Beschleunige die Zeit
If Not _Date_Time_SetSystemTimeAdjustment($aInfo[1] * 10, False) Then
MsgBox($MB_SYSTEMMODAL, "Fehler", "Die Systemzeit kann nicht beschleunigt werden" & @CRLF & @CRLF & _WinAPI_GetLastErrorMessage())
EndIf
MsgBox($MB_SYSTEMMODAL, "Information", "Gib Gas", 2)
Sleep(5000)
; Rücksetzen der Zeiteinstellungen
If Not _Date_Time_SetSystemTimeAdjustment($aInfo[1], True) Then
MsgBox($MB_SYSTEMMODAL, "Fehler", "Die Systemzeit kann nicht wiederhergestellt werden" & @CRLF & @CRLF & _WinAPI_GetLastErrorMessage())
Else
MsgBox($MB_SYSTEMMODAL, "Information", "Systemzeit wiederhergestellt")
EndIf
EndFunc ;==>Example