; ABLAUF INSGESAMT 
_FrageDatei() ; Frage nach dem Speicherort und dem Namen der zu hackenden Datei 
_FrageDatum() ; Frage nach dem neuen Änderungs- und Erstell-Datum 
_FrageUhrzeit() ; Frage nach der Uhrzeit 
_Hacken() ; Ändere die Datei-Attribute 

; EINZELNE FUNKTIONEN 
Func _FrageDatei() ; Frage nach dem Speicherort und dem Namen der zu hackenden Datei 
Global $Pfad = InputBox (StringTrimRight(@ScriptName,4), "Speicherort Name der zu hackenden Datei:")  
If @error = 1 Then Exit ; Abbruch, wenn "Abbrechen" gewählt wird 
If NOT FileExists ($Pfad) Then ; Wenn eine nicht vorhandene Datei gewählt wurde... 
 _ErrorBox ("Diese Datei kann ich nicht finden!") ; ...Hinweis... 
 _FrageDatei() ; ...und von vorne 
EndIf 
EndFunc ; Beende die Frage nach dem Speicherort und dem Namen der zu hackenden Datei 

Func _FrageDatum() ; Frage nach dem neuen Änderungs- und Erstell-Datum 
Global $Datum = InputBox (StringTrimRight(@ScriptName,4), "Welches Änderungs- und Erstell-Datum soll die Datei bekommen (Format: JJJJMMTT)?", "JJJJMMTT") 
If @error = 1 Then Exit ; Abbruch, wenn "Abbrechen" gewählt wird 
If NOT StringIsDigit ($Datum) Then ; Wenn die Eingabe etwas anderes enthält als Ziffern... 
 _ErrorBox ("Es dürfen nur ZIFFERN eingegeben werden!") ; ...Hinweis... 
 _FrageDatum() ; ...und von vorne 
EndIf ; Beende die Prüfung, ob ausschließlich Ziffern eingegeben wurden 
EndFunc ; Beende die Frage nach dem neuen Änderungs- und Erstell-Datum 

Func _FrageUhrzeit() ; Frage nach der Uhrzeit 
Global $Uhrzeit = InputBox (StringTrimRight(@ScriptName,4), "Welche Uhrzeit soll als Änderungs- und Erstell-Zeitpunkt erscheinen (Format: HHMMSS)?", "HHMMSS") 
If @error = 1 Then Exit ; Abbruch, wenn "Abbrechen" gewählt wird 
If NOT StringIsDigit ($Uhrzeit) Then ; Wenn die Eingabe etwas anderes enthält als Ziffern... 
 _ErrorBox ("Es dürfen nur ZIFFERN eingegeben werden!") ; ...Hinweis... 
 _FrageUhrzeit() ; ...und von vorne 
EndIf ; Beende die Prüfung, ob ausschließlich Ziffern eingegeben wurden 
EndFunc ; Beende die Frage nach der Uhrzeit 

Func _Hacken() ; Ändere die Datei-Attribute 
Global $HackZeit = $Datum & $Uhrzeit 
FileSetTime ($Pfad, $HackZeit, 1) ; Erstell-Datum 
FileSetTime ($Pfad, $HackZeit, 0) ; Änderungs-Datum 
EndFunc ; Beende das Ändern der Datei-Attribute 

Func _ErrorBox ($Text) ; Zeige Fehler-Meldung 
Beep (110, 55) ; kurzer tiefer Ton (ein A) 
MsgBox (16, "SORRY:", $Text) ; Hinweis-Box 
EndFunc