主题:  限定程序使用次数的脚本语言 格式,急呀

aibooo

职务:普通成员
等级:3
金币:1.0
发贴:768
注册:2003/6/1 21:32:26
#12003/8/16 11:39:14
--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
TextText



滨滨

职务:版主
等级:4
金币:13.0
发贴:1931
注册:2000/11/4 21:26:33
#22003/8/18 14:10:42
?



aibooo

职务:普通成员
等级:3
金币:1.0
发贴:768
注册:2003/6/1 21:32:26
#32003/8/18 14:48:20
times是自定义变量怎么的格式呀。。。。。。。。



滨滨

职务:版主
等级:4
金币:13.0
发贴:1931
注册:2000/11/4 21:26:33
#42003/8/18 17:22:03
AW中的变量没有类型之分,在需要的地方会自动转为需要的格式,比如a=3
你用b:="a="^a
那么a自动变为字符串与"a="连接
用b:=a+1
那么b就为4
你的times是从文本文件中读入的,按理是字符串,但只要你作算术运算它就自动转为数字了,除非文件中是非法数字,会变为0。
当文件不存在时,该脚本自动新建此文件并写入初值1
WriteExtFile(RecordsLocation^"times.txt","1")