给软件增加试用时间 - 精易论坛

子程序名	返回值类型	公开	备注
软件试用时间

变量名	类型	静态	数组	备注
配置信息	文本型
到期时间	文本型
当前时间	日期时间型
剩余试用时长	文本型
文件号	整数型
延时时长	整数型

如果 (文件是否存在 (取运行目录 () ＋ “\切勿删除.dat”)) ' 判断配置文件是否存在

配置信息＝文本_解密c (读入文件 (取运行目录 () ＋ “\切勿删除.dat”), “密码”)

编辑框2.内容＝到文本 (配置信息)

到期时间＝文本_取出中间文本 (配置信息, “[到期时间：”, “]”, , 真)

当前时间＝时间_取北京时间 ()

如果真 (到期时间 ≠ “” 且取时间间隔 (到时间 (到期时间), 当前时间, #秒 ) ＜ 0)

时钟1.时钟周期＝ 0

信息框 (“对不起，您的试用时间已结束，如果想继续使用本软件，请联系作者QQ：350508236”, 0, “试用结束”, )

销毁 ()

时钟1.时钟周期＝ 0

信息框 (“对不起，您的试用时间已结束，如果想继续使用本软件，请联系作者QQ：350508236”, 0, “试用结束”, )

销毁 ()

' 文件号＝打开文件 (取运行目录 () ＋ “\切勿删除.dat”, #重写, ) 该段代码用以检测“切勿删除”如果不存在的话，新建一个文档，并将到期时间赋值，漏洞是，如果每次到期后，将该文档删除，将再次获得试用时间。。。。

' 当前时间＝时间_取北京时间 ()

' 到期时间＝时间到文本 (增减时间 (当前时间, #分钟, 1), )

' 写到文件 (取运行目录 () ＋ “\切勿删除.dat”, 文本_加密c (“[到期时间：” ＋到期时间＋ “]”, “peiqi”))

' 关闭文件 (文件号)

子程序名	返回值类型	公开	备注
检测剩余时间

变量名	类型	静态	数组	备注
配置信息	文本型
到期时间	文本型
当前时间	日期时间型
剩余时间	文本型

如果真 (文件是否存在 (取运行目录 () ＋ “\切勿删除.dat”))

配置信息＝文本_解密c (读入文件 (取运行目录 () ＋ “\切勿删除.dat”), “密码”)

到期时间＝文本_取出中间文本 (配置信息, “[到期时间：”, “]”, , 真)

当前时间＝时间_取北京时间 ()

如果真 (到期时间＝ “”) ' 判断到期时间

到期时间＝时间到文本 (增减时间 (当前时间, #分钟, 1), ) ' 1可以改为任意数，即试用时长，单位为分钟

写到文件 (取运行目录 () ＋ “\切勿删除.dat”, 文本_加密c (“[到期时间：” ＋到期时间＋ “]”, “密码”))

时钟检测到期时间.时钟周期＝ 0

信息框 (“您的试用时间为5分钟，到期时间为” ＋到期时间, 0, “提示”, )

时钟检测到期时间.时钟周期＝ 1000

如果真 (取时间间隔 (到时间 (到期时间), 当前时间, #秒 ) ＞ 0 且取时间间隔 (到时间 (到期时间), 当前时间, #秒 ) ≤ 60)

剩余时间＝到文本 (取时间间隔 (到时间 (到期时间), 当前时间, #秒 ))

时钟检测到期时间.时钟周期＝ 0

信息框 (“您的试用到期时间为” ＋到期时间＋ #换行符＋ “当前试用剩余时长” ＋剩余时间＋ “秒”, 0, , )

子程序名	返回值类型	公开	备注
_按钮1_被单击

时钟1.时钟周期＝ 1000

子程序名	返回值类型	公开	备注
_时钟检测到期时间_周期事件

检测剩余时间 ()

子程序名	返回值类型	公开	备注
_时钟1_周期事件

软件试用时间 ()

子程序名	返回值类型	公开	备注
_按钮2_被单击

变量名	类型	静态	数组	备注
到期时间	文本型

到期时间＝时间到文本 (增减时间 (取现行时间 (), #分钟, 到整数 (编辑框2.内容)), ) ' 编辑框2可以填写任意数，即试用时长，单位为分钟
写到文件 (取运行目录 () ＋ “\切勿删除.dat”, 文本_加密c (“[到期时间：” ＋到期时间＋ “]”, “密码”))

.版本 2<br />
<br />
<br />
<br />
.子程序 软件试用时间<br />
.局部变量 配置信息, 文本型<br />
.局部变量 到期时间, 文本型<br />
.局部变量 当前时间, 日期时间型<br />
.局部变量 剩余试用时长, 文本型<br />
.局部变量 文件号, 整数型<br />
.局部变量 延时时长, 整数型<br />
<br />
.如果 (文件是否存在 (取运行目录 () ＋ “\切勿删除.dat”))  ' 判断配置文件是否存在<br />
    配置信息 ＝ 文本_解密c (读入文件 (取运行目录 () ＋ “\切勿删除.dat”), “密码”)<br />
    编辑框2.内容 ＝ 到文本 (配置信息)<br />
    到期时间 ＝ 文本_取出中间文本 (配置信息, “[到期时间：”, “]”, , 真)<br />
    当前时间 ＝ 时间_取北京时间 ()<br />
    .如果真 (到期时间 ≠ “” 且 取时间间隔 (到时间 (到期时间), 当前时间, #秒) ＜ 0)<br />
        时钟1.时钟周期 ＝ 0<br />
        信息框 (“对不起，您的试用时间已结束，如果想继续使用本软件，请联系作者QQ：350508236”, 0, “试用结束”, )<br />
        销毁 ()<br />
    .如果真结束<br />
<br />
.否则<br />
    时钟1.时钟周期 ＝ 0<br />
    信息框 (“对不起，您的试用时间已结束，如果想继续使用本软件，请联系作者QQ：350508236”, 0, “试用结束”, )<br />
    销毁 ()<br />
<br />
    ' 文件号 ＝ 打开文件 (取运行目录 () ＋ “\切勿删除.dat”, #重写, )   该段代码用以检测“切勿删除”如果不存在的话，新建一个文档，并将到期时间赋值，漏洞是，如果每次到期后，将该文档删除，将再次获得试用时间。。。。<br />
    ' 当前时间 ＝ 时间_取北京时间 ()<br />
    ' 到期时间 ＝ 时间到文本 (增减时间 (当前时间, #分钟, 1), )<br />
    ' 写到文件 (取运行目录 () ＋ “\切勿删除.dat”, 文本_加密c (“[到期时间：” ＋ 到期时间 ＋ “]”, “peiqi”))<br />
    ' 关闭文件 (文件号)<br />
.如果结束<br />
<br />
<br />
.子程序 检测剩余时间<br />
.局部变量 配置信息, 文本型<br />
.局部变量 到期时间, 文本型<br />
.局部变量 当前时间, 日期时间型<br />
.局部变量 剩余时间, 文本型<br />
<br />
.如果真 (文件是否存在 (取运行目录 () ＋ “\切勿删除.dat”))<br />
    配置信息 ＝ 文本_解密c (读入文件 (取运行目录 () ＋ “\切勿删除.dat”), “密码”)<br />
    到期时间 ＝ 文本_取出中间文本 (配置信息, “[到期时间：”, “]”, , 真)<br />
    当前时间 ＝ 时间_取北京时间 ()<br />
    .如果真 (到期时间 ＝ “”)  ' 判断到期时间<br />
        到期时间 ＝ 时间到文本 (增减时间 (当前时间, #分钟, 1), )  ' 1可以改为任意数，即试用时长，单位为分钟<br />
        写到文件 (取运行目录 () ＋ “\切勿删除.dat”, 文本_加密c (“[到期时间：” ＋ 到期时间 ＋ “]”, “密码”))<br />
        时钟检测到期时间.时钟周期 ＝ 0<br />
        信息框 (“您的试用时间为5分钟，到期时间为” ＋ 到期时间, 0, “提示”, )<br />
        时钟检测到期时间.时钟周期 ＝ 1000<br />
    .如果真结束<br />
    .如果真 (取时间间隔 (到时间 (到期时间), 当前时间, #秒) ＞ 0 且 取时间间隔 (到时间 (到期时间), 当前时间, #秒) ≤ 60)<br />
        剩余时间 ＝ 到文本 (取时间间隔 (到时间 (到期时间), 当前时间, #秒))<br />
        时钟检测到期时间.时钟周期 ＝ 0<br />
        信息框 (“您的试用到期时间为” ＋ 到期时间 ＋ #换行符 ＋ “当前试用剩余时长” ＋ 剩余时间 ＋ “秒”, 0, , )<br />
<br />
    .如果真结束<br />
<br />
.如果真结束<br />
<br />
<br />
.子程序 _按钮1_被单击<br />
<br />
时钟1.时钟周期 ＝ 1000<br />
<br />
.子程序 _时钟检测到期时间_周期事件<br />
<br />
检测剩余时间 ()<br />
<br />
.子程序 _时钟1_周期事件<br />
<br />
软件试用时间 ()<br />
<br />
.子程序 _按钮2_被单击<br />
.局部变量 到期时间, 文本型<br />
<br />
到期时间 ＝ 时间到文本 (增减时间 (取现行时间 (), #分钟, 到整数 (编辑框2.内容)), )  ' 编辑框2可以填写任意数，即试用时长，单位为分钟<br />
写到文件 (取运行目录 () ＋ “\切勿删除.dat”, 文本_加密c (“[到期时间：” ＋ 到期时间 ＋ “]”, “密码”))