огромное спасибо! а как теперь привязать удаление из реестра строки если ключ введен правильно??
Код:
Код: Выделить всё
@Echo Off
SetLocal EnableExtensions EnableDelayedExpansion
CHCP 1251 :: Первый запуск скрипта и запоминание даты в файл fstStrt.lst
If Not Exist fstStrt.lst Echo %date%>fstStrt.lst& Exit
:: Второй и последующие запуски скрипта
For /F %%I In (fstStrt.lst) Do Set fstStrt=%%I
Set fstStrt=25.01.2010
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% дней закончилось, введите ключ: " If /I Not "!ink!"=="%key%" Echo Ключ неверен^^^!& GoTo LOOP ) Exit
: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
вот теперь надо сделать так что при первом запуске программа делает 2 записи в реестр одна в авторане чтобы программа запускала себя каждый раз при в ключении и сверялась с датой!
reg add HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v PROGA /t REG_SZ /d C:\Windows\system\PROGA.bat /f>nul
а вторая запись которая бы потом не давала заново запускать программу когда кончится время!
а если ввели ключ то 2 запись с реестра бы просто удалилась.