Ablaufdatum einer EEx-Lizenz prüfen

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=ico\ico.ico
#AutoIt3Wrapper_UseX64=y
#AutoIt3Wrapper_Res_LegalCopyright=Roman Gorbachov
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

#include <Array.au3>
#include <Date.au3>

Const $ExitCode = -1293
Global $eexPath = "license"

$content = FileRead(@ScriptDir & "\" & $eexPath)
$date = StringRegExp($content,'Expire=(\d{10})', 3) ;UNIX-Timestamp ohne Millisekunden
$date = $date[0]
$jetztDate = _DateDiff('s', "1970/01/01 00:00:00", _NowCalc()) ;UNIX-Timestamp

If $jetztDate <= $date Then
    ;MsgBox(64, "", "Jetzt: " & $jetztDate & " Lizenz: " & $date)
    MsgBox(64,"DOCUMENTS-Lizenz","Die Lizenzdatei ist gültig",1)
Else
    _ExitCode()
EndIf

Func _ExitCode()
    MsgBox(16,"Ablaufdatum überschritten","Lizenzdatei abgelaufen" & @CRLF & @CRLF & "Pfad: " & $eexPath, 10)
    Exit $ExitCode
EndFunc