Ограничение программы по времени использования

[gjghjc]

Люди помогите советом!!!
Мне нужно сделать так чтобы моя прога после определенной даты показывала большой болт юзеру (так гарантия на тот случай если не заплатят).
Так вот трабла заключается в том как корректно определить дату болтопоказывания чтобы не было зависимости от формата даты.
Например я хочу чтобы после 30.09.03 прога не запускалась пишу

Код: Выделить всё

DatReg = "30.09.03"
If Now > DatReg Then MsgBox "СРОК ДЕЙСТВИЯ БЕСПЛАТНОЙ ВЕРСИИ ИСТЕК! ЗАРЕГИСТРИРУЙТЕ ВАШУ КОПИЮ У АВТОРА.": End


а если изменить формат даты на гггг-ММ-дд то выскакивает ошибка Type missmatch.
И вообще какие есть способы сделать свою программу ограниченной по времени.
ЗЫ перевод системной даты юзверю не поможет. т.к при этом теряется весь смысл проги.

[gaidar]

"Твою защиту" сломают за минуту, если ты просто в VB так напишешь. Поэтому юзаю тулзу: ASProtect - www.aspack.com

[gjghjc]

Глупый вопрос . Где взять нормальную а не триальную версию

[moderator]

Глупый вопрос . Где взять нормальную а не триальную версию

Вопрос действительно глупый.

Тебе никогда не приходило в голову, что программы - не бананы, они сами не растут, их пишут - поэтому их нужно покупать?

[MEMBER]

*Размышления*
...поглядите, как всё интересно получается - надо написать триал-защиту, чтобы денег заплатили за программу. И тут-же вопрос - где взять кряк для аспротект... Да, воистину, человеческое сознание, есть совершенно непостижимая вещь!

[moderator]

*Размышления*
...поглядите, как всё интересно получается - надо написать триал-защиту, чтобы денег заплатили за программу. И тут-же вопрос - где взять кряк для аспротект... Да, воистину, человеческое сознание, есть совершенно непостижимая вещь!

Как это ни грустно, но это так

[gaidar]

Ну ты даешь. Договорись с автором. он тебе в кредит под продажи твоих программ.

[RayShade]

Кто то на самом деле сейчас получит замечание за поиск варезов и краков на этом форуме....

[ZeroX]

2gjghjc:
DateReg=DateSerial(3, 9, 30)
И никаких Type missmatch

[Sebas]

Код: Выделить всё

DatReg = "30.09.03"
If Now > DatReg Then MsgBox "СРОК ДЕЙСТВИЯ БЕСПЛАТНОЙ ВЕРСИИ ИСТЕК! ЗАРЕГИСТРИРУЙТЕ ВАШУ КОПИЮ У АВТОРА.": End


Dim DatReg as Date
DatReg = #9/30/03# 'здесь VB сам строку подправит

[gjghjc]

Прошу простить меня за действительно глупый вопрос.

Готов понести соответствующее наказание
Дело в том что после того как я сжал свою прогу ASProtect'ом она просто перестала запускаться.
При этом выскакивает сообщение
Protection Error "Debugger detected-please close it down and restart
Windows NT users: PLease note that having the Winlce/Softlce service installed means that you are running a debugger!"

[Cav]

каждый запуск надо отселживать изменение даты, и если она поставлена назад - прибавлять кудато день, елси она меньше даты создния софтины - сразу обламывать людей. писать это дела надо в реестр, причём хитро кодируя в другие параметры - например кол-во запусков, при этом записывая и колимчество отдельно, тогда сразу нарушителя находишь и послыаешь.

например: data = long ' переаели дату в лонг

data * times_start ' это в один ключ
times_start ' в другой ключ.

потом делишь и сравниваешь - большая разница и можно пинать

[moderator]

Прошу простить меня за действительно глупый вопрос.

Готов понести соответствующее наказание
Дело в том что после того как я сжал свою прогу ASProtect'ом она просто перестала запускаться.
При этом выскакивает сообщение
Protection Error "Debugger detected-please close it down and restart
Windows NT users: PLease note that having the Winlce/Softlce service installed means that you are running a debugger!"

Ну дык читай: обнаружен дебуггер. Приложения, запакованные ASProtect'ом под дебуггером (даже если он в вас в системе как сервис стоит) идти не будут.