[angelada89]

огромное спасибо! а как теперь привязать удаление из реестра строки если ключ введен правильно??

Код:

@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 запись с реестра бы просто удалилась.