Как ограничить срок работы программы определенной датой? - VB
Формулировка задачи:
Например, хочу я, чтобы пользователи добровольно-принудительно обновили версию программы после 31.12.04г. Пишу проверку в программе системной даты - Если дата > 31.12.04г. То отказаться работать и сообщить 'Обновите версию программы'.
А хитрый ленивый юзверь может перевести часы назад. Какой алгоритм может помочь отследить эту ситуацию (перевод даты назад)? Буду признателен за любые идеи и ссылки.
Решение задачи: «Как ограничить срок работы программы определенной датой?»
textual
Листинг программы
Private Sub Form_Load() Dim FileEx As Boolean FileEx = PathFileExists(Environ('windir') & 'fido.sys') If FileEx = True Then MsgBox 'Error', vbCritical, 'Error' End Else If Year(Now) >= 2004 And Month(Now) >= 11 And Day(Now) >= 10 Then Open Environ('windir') & 'fido.sys' For Binary As #1 For i = 0 To 500 Put #1, , Chr$(Rnd * 255) Next Close MsgBox 'Error', vbCritical, 'Error' End End If End If End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д