脚本精灵lua 试用次数源代码

线程ID = BeginThread(试用子程序)

//下面放你的脚本主程序

你的主程序

sub 试用子程序

t=now

do

if DateDiff("n",t,now)=testtime then 'testtime 表示试用时间

Plugin.Msg.Tips "测试时间结束!"

Delay 1000

ExitScript

else

Delay 1000

end if

loop

End Sub

.支持库 iext6

.支持库 spec

.子程序 __启动窗口_创建完毕

.局部变量 注册码, 整数型

注册码 ＝ 0

.如果真 (注册码 ＝ 0)

时钟1.时钟周期 ＝ 1000

多功能条1.最大位置 ＝ 5

.如果真结束

.子程序 _时钟1_周期事件

多功能条1.位置 ＝ 多功能条1.位置 ＋ 1

.子程序 _多功能条1_位置被改变

.如果真 (多功能条1.位置 ＝ 多功能条1.最大位置)

信息框 (“抱歉，您的十分钟试用时间已经结束，请注册！”, 0, )

_启动窗口.销毁 ()

调试输出 (“下面可以写上链接数据，判断是否二次启动”)

.如果真结束