設定程式運作的次數

可以參考以下代碼 設定程式運作次數，超過次數則無法運作。下面代碼設 定次數為3次。

Sub 設定程式運作次數()

    Dim Times

    Times = GetSetting("RnTime", "Set", "Times")

    If Len(Times) > 0 Then

        Times = CInt(Times)

        If Times = 0 Then

            MsgBox "該程式已經使用三次！"

            Exit Sub

        Else

            Times = Times - 1

            MsgBox "該程式已經使用" & 3 - Times & "次。還有" & Times & "次使用機會"

            SaveSetting "RnTime", "Set", "Times", Times

        End If

    Else

        SaveSetting "RnTime", "Set", "Times", 2 '初次運作，設定可以使用三次

        MsgBox "該程式可以使用三次，還有兩次使用機會"

    End If

    '以下為主程式

    MsgBox "主程式正在運作"

End Sub

采用上述辦法，還可以設定程式運作的有效期。以下代碼為30天有效期

Sub 設定程式運作時間()

    Dim Times

    Times = GetSetting("RnTime", "Set", "Times")

    If Len(Times) > 0 Then

        Times = CDate(Times)

        If Times < Date Then

            MsgBox "已超過時限"

            Exit Sub

        End If

    Else

        SaveSetting "RnTime", "Set", "Times", DateAdd("d", 29, Date) '初次運作，設定可以使用三次

        MsgBox "該程式可以使用30天。有效期至" & DateAdd("d", 29, Date)

    End If

    '以下為主程式

    MsgBox "主程式正在運作"

End Sub