#12002/8/4 21:44:49
--以下脚本语句无需改动，立即可用，呵呵！希望对大家有用
--times是自定义变量，记录程序使用的次数
--times.txt是外部记录文件
if FileType (RecordsLocation^"times.txt")=0 then
WriteExtFile(RecordsLocation^"times.txt","1")
MessageBox(WindowHandle,"您是第一次使用本软件","提醒" ,49)
else
times:=ReadExtFile(RecordsLocation^"times.txt")
if times>3 then
MessageBox(WindowHandle,"使用次数已满，您不能再使用本软件","提醒" ,49)
Quit()
else
MessageBox(WindowHandle,"您还可以使用本软件的次数是" ^3-times,"提醒" ,49)
WriteExtFile(RecordsLocation^"times.txt",times+1)
end if
end if
--你复制到一个新的文件试试，马上搞定，呵呵！！
--当然你可以把这个记录文件藏的更好一点！
真正的光明绝不是永没有黑暗的时间，只是永不被黑暗所湮没罢了；真正的英雄绝不是永没有卑下的情操，只是永不被卑下的情操所屈服罢了。
