Alan Vettoraci

#include<Cores.au3> #include <BlockInputEx.au3> #include <GUIConstantsEx.au3> #include <Misc.au3> #include <Array.au3> Local $hDLL = DllOpen("user32.dll") AdlibRegister("clock",1000) HotKeySet("{ESC}", "End") HotKeySet("{F1}", "AIM") $creditos = 1 $segundos = 0 GUICreate("Timer", 100, 30, 0, 0, 0x80000000) GUISetBkColor($COR_PRETO) GUICtrlCreateLabel("00:00:00",0,0,100,30) GUICtrlSetBkColor(-1, $COR_PRETO) GUICtrlSetColor(-1, $COR_BRANCO) GUICtrlSetFont(-1,15,600,-1, "arial") GUISetState(@SW_SHOW) While (1) $segundos += $creditos * 60 $creditos = 0 $minutos = Mod($segundos/60, 60) $horas =$segundos/3600 $display = StringFormat("%02i:%02i:%02i",$horas,$minutos, Mod($segundos,60)) WinSetOnTop("Timer", "", 1) WEnd Func clock() If $segundos > 0 Then $segundos -= 1 Else ;Bloqueia Todas as Teclas Menos (ESC, 2) _BlockInputEx(3, "{ESC}") EndIf GUICtrlSetData(-1, $display) EndFunc While 1 WEnd Func AIM() $AIM = PixelSearch(0,0,1900,900,0xF24A17) If IsArray($AIM) Then MouseMove($AIM [0],$AIM[1], 0) EndIf MouseClick("Left") EndFunc Func End() _BlockInputEx(0) Exit EndFunc

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...")