VBCoding Библиотека кодов Visual Basic 6 Другое Сохранение количества запусков программы

Visual Basic 6
Сохранение количества запусков программы
Внимание! Данный код не рекомендуется использовать для 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
 

Добавить комментарий


Защитный код
Обновить

 
VBCoding Библиотека кодов Visual Basic 6 Другое Сохранение количества запусков программы  
Powered by Exponenta -