
易语言如何给自己的软件设置到期时间、就是到那个时间 软件就不能用了、跪求 10
3个回答
展开全部
给你个思路:
启动窗口的时候加载百度空间文章的信息,如果文章里写的是“允许”那程序就继续运行,等到期了你到空间里面修改文章,写“禁止”,下次软件再打开,加载到的文章内容就是“禁止”,你写个判断,如果是真,就结束程序
以下是加载百度空间文章的例子:
.版本 2
.支持库 internet
.程序集 窗口程序集1
.程序集变量 当前版本, 文本型
.子程序 __启动窗口_创建完毕
当前版本 = “1.0”
_时钟1_周期事件 ()
时钟1.时钟周期 = 10000
.子程序 取指定内容, 文本型
.参数 完整内容, 文本型
.参数 左边文本, 文本型
.参数 右边文本, 文本型
.局部变量 临时位置, 整数型
.局部变量 总长度, 整数型
.局部变量 临时文本, 文本型
总长度 = 取文本长度 (完整内容)
临时位置 = 寻找文本 (完整内容, 左边文本, , 假) + 取文本长度 (左边文本)
临时文本 = 取文本中间 (完整内容, 临时位置, 总长度)
总长度 = 取文本长度 (临时文本)
临时位置 = 寻找文本 (临时文本, 右边文本, , 假) - 1
临时文本 = 取文本中间 (临时文本, 1, 临时位置)
返回 (临时文本)
.子程序 _时钟1_周期事件
.局部变量 返回文本, 文本型
.局部变量 最新版, 文本型
.局部变量 内容, 文本型
处理事件 ()
返回文本 = 到文本 (HTTP读文件 (“‘百度空间文章的地址”))
输出调试文本 (返回文本)
返回文本 = 取指定内容 (返回文本, “////开始”, “////结束”)
最新版 = 取指定内容 (返回文本, “最新版=”, “</p>”)
内容 = 取指定内容 (返回文本, “内容=”, “</p>”)
编辑框1.内容 = 内容
标签1.标题 = “当前版本:” + 当前版本
.如果真 (到数值 (最新版) > 到数值 (当前版本))
标签2.标题 = “ 检测到最新版”
.如果真结束
启动窗口的时候加载百度空间文章的信息,如果文章里写的是“允许”那程序就继续运行,等到期了你到空间里面修改文章,写“禁止”,下次软件再打开,加载到的文章内容就是“禁止”,你写个判断,如果是真,就结束程序
以下是加载百度空间文章的例子:
.版本 2
.支持库 internet
.程序集 窗口程序集1
.程序集变量 当前版本, 文本型
.子程序 __启动窗口_创建完毕
当前版本 = “1.0”
_时钟1_周期事件 ()
时钟1.时钟周期 = 10000
.子程序 取指定内容, 文本型
.参数 完整内容, 文本型
.参数 左边文本, 文本型
.参数 右边文本, 文本型
.局部变量 临时位置, 整数型
.局部变量 总长度, 整数型
.局部变量 临时文本, 文本型
总长度 = 取文本长度 (完整内容)
临时位置 = 寻找文本 (完整内容, 左边文本, , 假) + 取文本长度 (左边文本)
临时文本 = 取文本中间 (完整内容, 临时位置, 总长度)
总长度 = 取文本长度 (临时文本)
临时位置 = 寻找文本 (临时文本, 右边文本, , 假) - 1
临时文本 = 取文本中间 (临时文本, 1, 临时位置)
返回 (临时文本)
.子程序 _时钟1_周期事件
.局部变量 返回文本, 文本型
.局部变量 最新版, 文本型
.局部变量 内容, 文本型
处理事件 ()
返回文本 = 到文本 (HTTP读文件 (“‘百度空间文章的地址”))
输出调试文本 (返回文本)
返回文本 = 取指定内容 (返回文本, “////开始”, “////结束”)
最新版 = 取指定内容 (返回文本, “最新版=”, “</p>”)
内容 = 取指定内容 (返回文本, “内容=”, “</p>”)
编辑框1.内容 = 内容
标签1.标题 = “当前版本:” + 当前版本
.如果真 (到数值 (最新版) > 到数值 (当前版本))
标签2.标题 = “ 检测到最新版”
.如果真结束
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?

2024-12-11 广告
上海亚远景信息科技有限公司是国内汽车行业咨询及评估领军机构之一,深耕于ASPICE、敏捷SPICE、ISO26262功能安全、ISO21434车辆网络安全领域,拥有20年以上的行业经验,专精于培训、咨询及评估服务,广受全球车厂及供应商赞誉,...
点击进入详情页
本回答由亚远景信息科技提供
展开全部
这么高深的问题?
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
,,.,.......................................
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询