以下内容仅适合小白学习大牛勿喷,如有不足欢迎指出
如有侵权请联系作者删除 邮箱:[email protected]
扫码微信公众号
为保证软件的长期可用性倒计时从网络获取
页面倒计时内容来自:天气网高考倒计时
超文本浏览框
透明标签
1.将 超文本浏览框 地址设置为https://wannianli.tianqi.com/jishiqi/gaokaodaojishi.html
可停留焦点设置为 假 (防止自动获取焦点滑动鼠标滚轮改变内容)
允许设计时浏览属性改为 真
2.将 透明标签 覆盖在超文本浏览框上面 (阻止用户使用鼠标改变页面内容)
3.调整位置以及大小如图
双击窗口标题进入代码编辑页面
检查本程序是否联网
.如果真 (取反 (是否与互联网连接 ()))
信息框 (“当前没有检测到网络连接,请检查网络后重试”, 0, , )
结束 ()
设置 窗口创建完毕局部变量及类型代码如下
.版本 2
.局部变量 当前版本号, 文本型
.局部变量 网络版本号, 文本型
当前版本号 = “2.0”
获取网络版本号
‘代码部分内容需替换
网络版本号 = 取指定文本 (到文本 (HTTP读文件 (“'网页链接”)), “版本头”, “版本尾”)
代码示例
新建子程序将网页内容中的版本号剥离
.版本 2
.子程序 取指定文本, 文本型
.参数 完整文本, 文本型
.参数 起始文本, 文本型
.参数 终止文本, 文本型
.局部变量 待取文本总长度
.局部变量 中间文本, 文本型
.局部变量 取得文本
.局部变量 最终文本, 文本型
待取文本总长度 = 取文本长度 (完整文本)
取得文本 = 寻找文本 (完整文本, 起始文本, , 假) + 取文本长度 (起始文本)
中间文本 = 取文本中间 (完整文本, 取得文本, 待取文本总长度)
待取文本总长度 = 取文本长度 (中间文本)
取得文本 = 寻找文本 (中间文本, 终止文本, , 假) - 1
最终文本 = 取文本中间 (中间文本, 1, 取得文本)
返回 (最终文本)
.版本 2
.支持库 eAPI
.判断开始 (当前版本号 < 网络版本号)
.如果真 (信息框 (“为了优化您的体验请下载最新版使用”, #是否钮, , ) = #是钮)
打开指定网址 (“输入网址”)
结束 ()
.版本 2
.支持库 eAPI
.支持库 internet
.程序集 窗口程序集_启动窗口
.子程序 __启动窗口_创建完毕
.局部变量 当前版本号, 文本型
.局部变量 网络版本号, 文本型
' 设置程序版本号
当前版本号 = “2.0”
' 检查网络连接
.如果真 (取反 (是否与互联网连接 ()))
信息框 (“当前没有检测到网络连接,请检查网络后重试”, 0, , )
结束 ()
.如果真结束
' 检查软件版本更新
' '获取网络版本号
网络版本号 = 取指定文本 (到文本 (HTTP读文件 (“输入网址”)), “起始标签”, “结束标签”)
.判断开始 (当前版本号 < 网络版本号)
.如果真 (信息框 (“为了优化您的体验请下载最新版使用”, #是否钮, , ) = #是钮)
打开指定网址 (“输入网址”)
结束 ()
.如果真结束
.默认
.判断结束
.子程序 取指定文本, 文本型
.参数 完整文本, 文本型
.参数 起始文本, 文本型
.参数 终止文本, 文本型
.局部变量 待取文本总长度
.局部变量 中间文本, 文本型
.局部变量 取得文本
.局部变量 最终文本, 文本型
待取文本总长度 = 取文本长度 (完整文本)
取得文本 = 寻找文本 (完整文本, 起始文本, , 假) + 取文本长度 (起始文本)
中间文本 = 取文本中间 (完整文本, 取得文本, 待取文本总长度)
待取文本总长度 = 取文本长度 (中间文本)
取得文本 = 寻找文本 (中间文本, 终止文本, , 假) - 1
最终文本 = 取文本中间 (中间文本, 1, 取得文本)
返回 (最终文本)