[VB6]試用時間

廢話不多說,請直接往下閱讀全文吧!!




試用[30天]

Private Sub Form_Load() 
    Dim RemainDay As Long
    RemainDay = GetSetting("MyApp", "set", "day", 0)
    If RemainDay = 30 Then
        MsgBox "試用期已過，請花錢買正版"
        Unload Me
    End If
    MsgBox "現在剩下：" & 30 - RemainDay & "試用天數，好好珍惜！"
    If Day(Now) - RemainDay > 0 Then RemainDay = RemainDay + 1
    SaveSetting "MyApp", "set", "tdays", RemainDay
End Sub

試用[30次]

Private Sub Form_Load() 
    Dim RemainDay As Long
    RemainDay = GetSetting("MyApp", "set", "times", 0)
    If RemainDay = 30 Then
        MsgBox "試用次數已滿，請花錢買正版"
        Unload Me
        End
    End If
    MsgBox "現在剩下：" & 30 - RemainDay & "試用次數，好好珍惜！"
    RemainDay = RemainDay + 1
    SaveSetting "MyApp", "set", "times", RemainDay
End Sub