按键精灵_限制脚本试用次数和时间

Declare Function GetCurrentProcess Lib "kernel32" Alias "GetCurrentProcess" () As Long
Declare Function TerminateProcess Lib "kernel32" Alias "TerminateProcess" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Dim 次数，当前进程
Sub OnScriptLoad() '下列内容只做举例,使用时可以换个隐蔽点的路径
    Call Plugin.File.WriteFileEx("C:\次数记录.txt", "a")
    Text = Plugin.File.ReadFileEx("C:\次数记录.txt") 
    次数 = Lib.算法.得到字符串中字母的数量(text)
    TracePrint 次数
    If 次数 >= 10 Then 
        Call Plugin.Msg.Tips("试用次数到，强制关闭脚本")
        当前进程 = GetCurrentProcess()
        TerminateProcess 当前进程,0
    End If
End Sub

'用的是时间函数里的datediff函数与now函数组合，循环判断脚本启动运行的时间
Sub 时间监控()
    TracePrint "开始时间监控"
    启动时间 = now
    Do
        当前时间 = now
        TracePrint datediff("s", 启动时间, 当前时间)
        If abs(datediff("s", 启动时间,当前时间)) >= 600 Then //这边是10分钟，时间可自定义
            Call Plugin.Msg.Tips("试用时间到，脚本已停止,如果还想继续使用请联系作者")
            ExitScript
        End If
        Delay 1000
    Loop 
End Sub