[FlatX007]

Могу предложить без инета ...

Вопрос: ограничение по дате стоит на какое-то конкретное число например 01.01.2010 или с момента старта программы должно пройти определённое количество дней часов ?

[malev]

именно до даты, может и 1 день отработать

[SyDr]

Скачиваешь с любого серъёзного сайта страничку на которой есть текущая дата.

Код:

#include <INet.au3>
_INetGetSource ( $s_URL )

Потом полученный исходник парсишь и получаешь текущую дату.

[FlatX007]

Код:

$Url = "http://forum.oszone.net/index.php"
$Random = Round(Random(100,100000000000000000) )
$TempFile = @TempDir & "\" & $Random & ".txt"

InetGet($Url, $TempFile)
$sHTML = FileRead($TempFile)
$avArray = StringRegExp($sHTML, '(?i)<span class="time">(.*?)</span>.<br>', 3)
If @error Then
    MsgBox(16,"","Сервер времени недоступен")
    FileDelete($TempFile)
Else
    MsgBox(0,'', "Время с сайта oszone.net - " & $avArray[0])
    FileDelete($TempFile)
EndIf

Дату незнаю как ... ищи сайт

[beve]

FlatX007, сделай для malev сверку с этим сайтом: http://time.jp-net.ru/, и желательно чтоб это не был только один сервер, можно сделать проверку с двух, с того и этого: http://bilet.pp.ru/calculator_rus/to...koe_vremia.php

[Creat0R]

Я лично не пользуюсь этим, но ради спортивного интереса написал вот такой модуль:

Код:

#include <AppTrialModule.au3>

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

$s_APPTRIAL_TITLE           = "My Software" ;This will be used in Registry entry and other places
$s_APPTRIAL_MSG             = "Your trial period (%s hours) has been expired."
$s_GET_PRODUCT_KEY_URL      = "http://my-web-site.com/app_registration.html"

;We set AppTrial Module on 24 hours
_SetAppTrial_Module()

Switch @extended
    Case 0
        MsgBox(48, $s_APPTRIAL_TITLE & " - Trial Version", _
            StringFormat("You still can use this program, you have left <%s> hours :) ", _
                $n_APPTRIAL_EXPIRED_VALUE - Round($n_APPTRIAL_OVERTIME, 1)))
    Case 1
        MsgBox(64, $s_APPTRIAL_TITLE & " - Full Version", "This is full version, thank you for buying our software.")
EndSwitch

MsgBox(64, $s_APPTRIAL_TITLE, "The program working (for now? :) )...")

Сама библиотека AppTrialModule.au3 с этим примером прикреплена к сообщению.

[malev]

Спасибо Creat0R, попробую. Только это не совсем trial, полнофункциональная программа просто требующая обновления, скачиванием с файлообменника. Вот и вся выгода
Вроде понял принцип работы модуля создает скрытые системные файлы в них зашифрованная дата/время окончания, проверяет на наличие хотя бы одного из них. Если время закончилось ищет в реестре ключ регистрации. Интересно с точки зрения реализации но не практично. Либо дорабатывать как у касперского, своего рода зашифрованный ключ на период времени без которого программа не будет запускаться или работать. Если кто еще знает сервера дат напишите http://time.jp-net.ru/ типа такого, чтобы парсить меньше и без флеш.

[Creat0R]

это не совсем trial, полнофункциональная программа просто требующая обновления »

Ну, вообще-то этот модуль можно использовать и в качестве ожидание определённого времени, просто вместо диалога запускать нужные действия (скачивание).

Интересно с точки зрения реализации но не практично. Либо дорабатывать как у касперского, своего рода зашифрованный ключ на период времени без которого программа не будет запускаться или работать. »

Почему не практично, там Product Key тоже как бы зашифровывается - Он привязан к системе на которой запущена программа.

[SyDr]

Что мешает пользователю удалять ключи реестра и файлы?