易语言怎么做一个QQ号规定使用软件次数1天减一次最好给我一个源码 5

最好给我一个写好的传上来啊大神们悬赏很高哦... 最好给我一个写好的传上来啊大神们悬赏很高哦展开

 我来答

1个回答

#热议# 普通体检能查出癌症吗？

微尘不足道
2014-12-10 · TA获得超过174个赞

知道答主

回答量：27

采纳率：0%

帮助的人：6万

我也去答题访问个人页

关注

展开全部

那就要写配置项了。

.版本 2

.程序集窗口程序集1

.子程序 __启动窗口_创建完毕
.局部变量次数, 整数型, , , 允许登录的天数
.局部变量日期, 文本型
.局部变量对比日期, , , , 配置项保存日期

日期＝到文本 (取日期 (取现行时间 ()))
次数＝到数值 (读配置项 (取运行目录 () ＋ “\pz.ini”, “pz”, “cs”, “999999”))
.判断开始 (次数＝ 999999) ' 如果次数是一个较大的数，说明是第一次使用，写配置项
写配置项 (取运行目录 () ＋ “\pz.ini”, “pz”, “cs”, “10”)
写配置项 (取运行目录 () ＋ “\pz.ini”, “pz”, “rq”, 日期)
.判断 (次数＝ 0) ' 如果次数为0，销毁
信息框 (“你的使用次数已用完！请联系****购买。”, 0, )
销毁 ()
.默认

.判断结束
对比日期＝读配置项 (取运行目录 () ＋ “\pz.ini”, “pz”, “rq”, )
.如果真 (日期 ≠ 对比日期) ' 只要不是同一天打开的，次数就减去1
次数＝次数－ 1
写配置项 (取运行目录 () ＋ “\pz.ini”, “pz”, “cs”, 到文本 (次数))
写配置项 (取运行目录 () ＋ “\pz.ini”, “pz”, “rq”, 日期)

.如果真结束
' 为了防止别人修改配置项，配置项文件你可以写到其他盘里，比如C盘的摸个秘密位置。

更多追问追答

追问

错误(10044): 不能将“文本型”数据转换到“整数型”数据。

追答

（对不起，有一点错误，已经修改，并且进一步完善了功能）

提示：请在窗口里建个“编辑框1”
然后写下面代码：

.版本 2

.程序集 窗口程序集1
.程序集变量 QH, 文本型, , , qq号码

.子程序 __启动窗口_创建完毕
.局部变量 次数, 整数型, , , 允许登录的天数
.局部变量 日期, 文本型
.局部变量 对比日期, 文本型, , , 配置项保存日期

QH ＝ 编辑框1.内容
日期 ＝ 到文本 (取日期 (取现行时间 ()))
次数 ＝ 到数值 (读配置项 (取运行目录 () ＋ “\pz.ini”, QH, “cs”, “999999”))
.判断开始 (次数 ＝ 999999)  ' 如果次数是一个较大的数，说明是第一次使用，写配置项
    写配置项 (取运行目录 () ＋ “\pz.ini”, QH, “cs”, “10”)
    写配置项 (取运行目录 () ＋ “\pz.ini”, QH, “rq”, 日期)
.判断 (次数 ＝ 0)  ' 如果次数为0，销毁
    信息框 (“你的使用次数已用完！请联系****购买。”, 0, )
    销毁 ()
.默认

.判断结束
对比日期 ＝ 读配置项 (取运行目录 () ＋ “\pz.ini”, QH, “rq”, )
.如果真 (日期 ≠ 对比日期)  ' 只要不是同一天打开的，次数就减去1
    次数 ＝ 次数 － 1
    写配置项 (取运行目录 () ＋ “\pz.ini”, QH, “cs”, 到文本 (次数))
    写配置项 (取运行目录 () ＋ “\pz.ini”, QH, “rq”, 日期)

.如果真结束

本回答由网友推荐

已赞过 已踩过<

评论收起

推荐律师服务：若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询

易语言怎么做一个QQ号规定使用软件次数1天减一次最好给我一个源码 5

其他类似问题

为你推荐：