ajuda em habilitar uma dada online no script autoit

[Alan Vettoraci]

galera esse e meu script não intendo muito estou fazendo na bruta mesmo!

gostaria de validar um script com data do mês atual para não mudar no windows e ele funciona como faço?  

 

#include <GUIConstantsEx.au3>
#include <Misc.au3>
#include <Array.au3>
Local $hDLL = DllOpen("user32.dll")
HotKeySet("{F1}", "Mod")
HotKeySet("{F3}", "End")

local $hoje = @YDAY, $Validade = 1, $restam

If Not FileExists ("registro.ini") Then IniWrite("registro.ini", "Validade", "Inicio", $hoje)
 $Inicio = IniRead("registro.ini","Validade", "Inicio", "  ")
 $restam = $Inicio + $Validade - $hoje

 If $restam > 0 Then ConsoleWrite(" Faltam "& $restam & " Dias " & @CR)
 While $restam > 0
     If $hoje <> @YDAY Then
         $hoje = @YDAY
         $restam = $Inicio + $Validade - $hoje
         ConsoleWrite("Faltam" & $restam & "Dias" & @CR
     EndIf
     Sleep(10)

 WEnd

MsgBox(0,"", "Prazo Expirou ! Compra Mais...")