心跳返回值强制用户关闭

NaiTea

.版本 2
.支持库 spec
.子程序 自定义心跳回调, 整数型, 公开, 心跳回调函数,可参考此函数原型修改为自己需要的回调函数,注意:返回值非0则结束软件
.参数 类型, 整数型, , 0,正常; 1,失败,需要立即退出; 2,网络错误,需要多次容错
.参数 原因, 文本型, , 类型为0时,此参数为到期时间; 类型为1/2时,此参数为失败/错误原因(详见模块说明)
.局部变量 默认心跳返回值, 整数型
' ========================================================================
' 这里展示调用默认的心跳回调函数处理，你也可以自己编写代码处理不同的情况
' ========================================================================
' 调用默认的心跳函数,根据返回值决定是否退出.
默认心跳返回值 ＝ 红船_心跳回调 (类型, 原因)
' 若返回值不为0,则表示即将退出软件,可以给用户一些提示.
.如果真 (默认心跳返回值 ≠ 0)
    调试输出 (“================软件即将退出===============”)
.如果真结束
' 返回非0值,模块内部就会退出软件,也可以直接退出.
返回 (默认心跳返回值 × 2)  ' 随便做点运算

.子程序 _获取用户信息_被单击
user_info.内容 ＝ 红船_取用户信息 ()

就是想给用户给点提示，然后到期强制关闭窗口！

lzh546

.版本 2
.支持库 spec

.子程序 自定义心跳回调, 整数型, 公开, 心跳回调函数,可参考此函数原型修改为自己需要的回调函数,注意:返回值非0则结束软件
.参数 类型, 整数型, , 0,正常; 1,失败,需要立即退出; 2,网络错误,需要多次容错
.参数 原因, 文本型, , 类型为0时,此参数为到期时间; 类型为1/2时,此参数为失败/错误原因(详见模块说明)
.局部变量 默认心跳返回值, 整数型

' ========================================================================
' 这里展示调用默认的心跳回调函数处理，你也可以自己编写代码处理不同的情况
' ========================================================================
' 调用默认的心跳函数,根据返回值决定是否退出.
默认心跳返回值 ＝ 红船_心跳回调 (类型, 原因)
' 若返回值不为0,则表示即将退出软件,可以给用户一些提示.
.如果真 (默认心跳返回值 ≠ 0)
    时钟_心跳.时钟周期 ＝ 0
    信息框 (“软件使用时间已到！”, #警告图标, , )
    结束 ()
    调试输出 (“================软件即将退出===============”)
.如果真结束
' 返回非0值,模块内部就会退出软件,也可以直接退出.
返回 (默认心跳返回值 × 2)  ' 随便做点运算

.子程序 _时钟_心跳_周期事件
.局部变量 类型, 整数型
.局部变量 原因, 文本型
.局部变量 到期时间2, 日期时间型

自定义心跳回调 (类型, 原因)
到期时间2 ＝ 到时间 (到期时间格式化 (到期时间1))
调试输出 (到期时间2)

.如果真 (取时间间隔 (到期时间2, 取现行时间 (), 8) ＝ 0)
    时钟_心跳.时钟周期 ＝ 0
    信息框 (“软件使用时间已到！”, #警告图标, , )
    _启动窗口.销毁 ()
.如果真结束



.子程序 到期时间格式化, 文本型
.参数 到期时间, 文本型
.局部变量 数组1, 文本型, , "0"
.局部变量 数组2, 文本型, , "0"
.局部变量 数组3, 文本型, , "0"

' 2018-04-06 19:02:31
数组1 ＝ 分割文本 (到期时间, “ ”, )
数组2 ＝ 分割文本 (数组1 [1], “-”, )
数组3 ＝ 分割文本 (数组1 [2], “:”, )

返回 (数组2 [1] ＋ “年” ＋ 数组2 [2] ＋ “月” ＋ 数组2 [3] ＋ “日” ＋ 数组3 [1] ＋ “时” ＋ 数组3 [2] ＋ “分” ＋ 数组3 [3] ＋ “秒”)

Bszk

.版本 2
.支持库 spec

.子程序 自定义心跳回调, 整数型, 公开, 心跳回调函数,可参考此函数原型修改为自己需要的回调函数,注意:返回值非0则结束软件
.参数 类型, 整数型, , 0,正常; 1,失败,需要立即退出; 2,网络错误,需要多次容错
.参数 原因, 文本型, , 类型为0时,此参数为到期时间; 类型为1/2时,此参数为失败/错误原因(详见模块说明)
.局部变量 默认心跳返回值, 整数型

' ========================================================================
' 这里展示调用默认的心跳回调函数处理，你也可以自己编写代码处理不同的情况
' ========================================================================
' 调用默认的心跳函数,根据返回值决定是否退出.
默认心跳返回值 ＝ 红船_心跳回调 (类型, 原因)
' 若返回值不为0,则表示即将退出软件,可以给用户一些提示.
.如果真 (默认心跳返回值 ≠ 0)
    调试输出 (“================软件即将退出===============”)
    信息框 (“软件即将退出”, 0, , )
    销毁 ()
.如果真结束
' 返回非0值,模块内部就会退出软件,也可以直接退出.
返回 (默认心跳返回值 × 2)  ' 随便做点运算

lzh546

.版本 2
.支持库 spec

.子程序 自定义心跳回调, 整数型, 公开, 心跳回调函数,可参考此函数原型修改为自己需要的回调函数,注意:返回值非0则结束软件
.参数 类型, 整数型, , 0,正常; 1,失败,需要立即退出; 2,网络错误,需要多次容错
.参数 原因, 文本型, , 类型为0时,此参数为到期时间; 类型为1/2时,此参数为失败/错误原因(详见模块说明)
.局部变量 默认心跳返回值, 整数型

' ========================================================================
' 这里展示调用默认的心跳回调函数处理，你也可以自己编写代码处理不同的情况
' ========================================================================
' 调用默认的心跳函数,根据返回值决定是否退出.
默认心跳返回值 ＝ 红船_心跳回调 (类型, 原因)
' 若返回值不为0,则表示即将退出软件,可以给用户一些提示.
.如果真 (默认心跳返回值 ≠ 0)
    时钟_心跳.时钟周期 ＝ 0
    信息框 (“软件使用时间已到！”, #警告图标, , )
    结束 ()
    调试输出 (“================软件即将退出===============”)
.如果真结束
' 返回非0值,模块内部就会退出软件,也可以直接退出.
返回 (默认心跳返回值 × 2)  ' 随便做点运算

.子程序 _时钟_心跳_周期事件
.局部变量 类型, 整数型
.局部变量 原因, 文本型
.局部变量 到期时间2, 日期时间型

自定义心跳回调 (类型, 原因)
到期时间2 ＝ 到时间 (到期时间格式化 (到期时间1))
调试输出 (到期时间2)

.如果真 (取时间间隔 (到期时间2, 取现行时间 (), 8) ＝ 0)
    时钟_心跳.时钟周期 ＝ 0
    信息框 (“软件使用时间已到！”, #警告图标, , )
    _启动窗口.销毁 ()
.如果真结束



.子程序 到期时间格式化, 文本型
.参数 到期时间, 文本型
.局部变量 数组1, 文本型, , "0"
.局部变量 数组2, 文本型, , "0"
.局部变量 数组3, 文本型, , "0"

' 2018-04-06 19:02:31
数组1 ＝ 分割文本 (到期时间, “ ”, )
数组2 ＝ 分割文本 (数组1 [1], “-”, )
数组3 ＝ 分割文本 (数组1 [2], “:”, )

返回 (数组2 [1] ＋ “年” ＋ 数组2 [2] ＋ “月” ＋ 数组2 [3] ＋ “日” ＋ 数组3 [1] ＋ “时” ＋ 数组3 [2] ＋ “分” ＋ 数组3 [3] ＋ “秒”)