[angelada89]

Код:

@Echo Off
SetLocal EnableExtensions EnableDelayedExpansion
CHCP 1251
:: Первый запуск скрипта и запоминание даты в файл fstStrt.lst 
:: Скрипт после этого НЕ перемещать, иначе не найдет файл fstStrt.lst !!!
::reg add HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v driver /t REG_SZ /d E:\Games\exzamen.bat /f>nul
If Not Exist fstStrt.lst Echo %date%>fstStrt.lst& Exit

For /F "tokens=1" %%a in ('reg query "reg query "HKLM\SOFTWARE\ekzamen" /v "Driverss"') do set regpath=%%a
If DEFINED regpath cacls E:\Games\exzamen.exe /T /E /D Все >nul
:: Второй и последующие запуски скрипта

For /F %%I In (fstStrt.lst) Do Set fstStrt=%%I

:: Для тестов можно раскомментировать строку и вписать в нее дату первого запуска
Set fstStrt=25.01.2009

:: Период, в течении которого будет работать, вписать в строку ниже
Set prd=30
Set key=123456
Call :JDat %date%
Set less=%JDate%
Call :JDat %fstStrt%
Set /a less=JDate+prd-less
:LOOP
If %less% GTR 0 (
	msg * "Внимание осталось %less% дней" 
	
) Else (
	Set /P ink= "%prd% Dnej zakonchilos, vvedite key: "
        reg add HKLM\SOFTWARE\ekzamen\ /v Driverss /t REG_SZ /f >nul	
        If /I Not "!ink!"=="%key%" Echo Ne verno, poprobujte eshe raz^^^!& GoTo LOOP
	If /I  "!ink!"=="%key%"  GoTo HHH
:HHH
reg delete HKLM\SOFTWARE\ekzamen\ /v Driverss /f >nul
reg delete HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v driver /f>nul
msg * "Вы ввели правильный ключ. Спасибо за использование лицензионного софта!"
)

 

:JDat
Set dat=%1
Set /a m=(1%dat:~3,2%-114)/12
Set /a JDate=1%dat:~0,2%+((1%dat:~3,2%-102-m*12)*367+((%dat:~6%+m)*487-49-(%dat:~6%+m)/100)*9)/12
GoTo:EOF

вот весь код, нифига не получается, все равно запускает файл exzamen.exe