Что нового

[Данные, строки] Сообщения через 30 дней после первого запуска программы

Roman89

Новичок
Сообщения
107
Репутация
3
Всем доброго времени суток!
У меня снова созрел вопрос!
Как сделать что бы программа через 30 дней после активации выдавала сообщения мол вас кончелася срок действия лицензионного ключа!
 

axlwor

Скриптер
Сообщения
657
Репутация
147
если есть дата активации, то вычисляем
Код:
#include <Date.au3>
_DateAdd('D', 30, $DateOfActivation)
 
Автор
R

Roman89

Новичок
Сообщения
107
Репутация
3
Стой это получается что программа должна 30 дней работать что бы вылезла табличка?
 

axlwor

Скриптер
Сообщения
657
Репутация
147
Ты хотел 30 дней? А вообще в хелпе по этой функции хорошие примеры.
Может тебе наоборот нужно за неделю до окончания срока действия дату высчитывать?
Код:
#include <Date.au3>
_DateAdd('D', -7, $EndOfActivation)

А уж что делать с этой датой и куда проверку вставлять - тут думать нужно. Также нужно подумать где и как хранить дату первого запуска (если судить по теме).
 
Автор
R

Roman89

Новичок
Сообщения
107
Репутация
3
Как в данном скрипте прописать код для продолжения срока действия программы?
И можна сделать что бы этот код был на сайте?
Код:
#include <AppTrialModule.au3>

$n_APPTRIAL_EXPIRED_VALUE   = 25
$n_APPTRIAL_MODE            = 1 ;>= 1 seconds, >= 2 Minutes, >= 3 Hours, >= 4 Days.

$s_APPTRIAL_TITLE           = "My Software" ;Это будет использовано в записях реестра и в прочих местах
$s_APPTRIAL_MSG             = "Оценочный период (%s hours) данного продукта окончен."
$s_GET_PRODUCT_KEY_URL      = "http://my-web-site.com/app_registration.html"

;Задаём AppTrial Module на 24 часа
_SetAppTrial_Module()

Switch @extended
    Case 0
        MsgBox(48, $s_APPTRIAL_TITLE & " - Оценочная версия", _
            StringFormat("Вы всё ещё можете пользоваться данным продуктом, у вас осталось <%s> Дней :) ", _
                $n_APPTRIAL_EXPIRED_VALUE - Round($n_APPTRIAL_OVERTIME, 1)))
    Case 1
        MsgBox(64, $s_APPTRIAL_TITLE & " - Полная версия", "Этот продукт зарегистрирован (полная версия), спасибо за приобретение нашего продукта.")
EndSwitch

MsgBox(64, $s_APPTRIAL_TITLE, "Программа работает (пока? :) )...")
 
Верх