限定程序使用次数的脚本语言

来源： 作者： 出处：巧巧读书 2006-09-09 进入讨论组

• 关 键 词：
• window

　　[解答] （虚竹）

--以下脚本语句无需改动，立即可用，呵呵！希望对大家有用
--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

--你复制到一个新的文件试试，马上搞定，呵呵！！
--当然你可以把这个记录文件藏的更好一点！打开： http://www.qqread.com/authorware/z238708.html 更多内容请看脚本攻击和防范专题，或进入讨论组讨论。

【收藏此文】【大 中 小】【打印】【关闭】

较早的文章：下载的插件Killer Transfer Xtra软件包不能使用?

较新的文章：新版Authorware7:导入PPT制作交互式文件