Как ограничить срок работы программы определенной датой? - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 3.5 из 5
Похожие ответы