| Сохранение количества запусков программы |
|
Внимание! Данный код не рекомендуется использовать для Trial версий, так как значение можно легко подделать. Private Sub Form_Load() On Error Goto 10 Dim l As Long l = GetSetting(App.Title, App.EXEName, "HitCount", 0) l = l + 1 SaveSetting(App.Title, App.EXEName, "HitCount", l) MsgBox iif(l <>1, "Вы запускаете эту программу " & l & " раз", _ "Вы запускаете эту программу в первый раз") Exit Sub 10 l = 0 Resume Next End Sub |
| « Пред. | След. » |
|---|
Руководство по Visual Basic 6 (72440)
VBProject (42237)
Создание приложений ОС Windows (32838)
Алгоритмы Visual Basic (25909)
