|
回复 8楼zc1835429的帖子
代码贴上,效果:程序每次运行时试用一分钟,你可以做一些修改,每天试用也是可以弄出来了
功能 逻辑型 计时()
字符型 时间,计时,路径="c:\\计时.txt"
字符型[] 容器=字符型[6]
整型 时,文件句柄
如果(文件.是否存在(路径))
计时=文件.读文件(路径)
否则
文件句柄=文件.创建(路径,"读写")
时间=系统.时间(2)
字符串.分割(时间,"|",容器)
文件.写入(文件句柄,容器[4])
文件.关闭(文件句柄)
计时=文件.读文件(路径)
如果结束
循环(真)
时间=系统.时间(2)
字符串.分割(时间,"|",容器)
时=转换.字符型转整型(容器[4])
如果(时-转换.字符型转整型(计时)>=1)
辅助.消息框("你的试用时间已到,请购买后再使用")
跳出
如果结束
辅助.等待(5000)
循环结束
返回 真
功能结束 |

|