用户组 
易积分549
热心0
好评0

|
发表于 2018-9-8 22:01:49
|
显示全部楼层
- 变量 计数 为 文本型
- 事件 主窗口.创建完毕()
- 时钟1.时钟周期 = 1000
- 计数 = 5
-
- 友盟统计1.初始化("5b8e7d998f4a9d48b6000017","Ala盒子")
- 友盟统计1.开始统计("主窗口")
- 保存对象("友盟统计1",友盟统计1)
-
- 保存窗口("主窗口",本对象)
- 结束 事件
- 事件 时钟1.周期事件()
- 计数 = 计数 - 1
- 判断 计数
- 分支 4
- 标签计时.标题 = "Jump " & 计数 & "s"
-
- 分支 3
- 标签计时.标题 = "Jump " & 计数 & "s"
- '可以在此处初始化一些东西
- 分支 2
- 标签计时.标题 = "Jump " & 计数 & "s"
- '可以在此处初始化一些东西
- 分支 1
- 标签计时.标题 = "Jump " & 计数 & "s"
- '可以在此处初始化一些东西
- 分支 0
- 时钟1.时钟周期 = 0
- 如果 读取窗口("live")=空 则
- 保存窗口("live",创建 live)
- 结束 如果
- 切换窗口(读取窗口("live"))
- 结束 判断
- 结束 事件
- 事件 多线程1.取网页源码2完毕(源码 为 文本型)
- 公用模块.公告=取指定文本2(源码,"<gg>","</gg>")
- 公用模块.版本号=取指定文本2(源码,"<bbh>","</bbh>")
- 公用模块.下载地址=取指定文本2(源码,"<xzdz>","</xzsz>")
- 公用模块.更新说明=取指定文本2(源码,"<gxsm>","</gxsm>")
- 公用模块.广告1=取指定文本2(源码,"<ggw1>","</ggw1>")
- 公用模块.广告2=取指定文本2(源码,"<ggw2>","</ggw2>")
- 公用模块.广告3=取指定文本2(源码,"<ggw3>","</ggw3>")
- 公用模块.广告4=取指定文本2(源码,"<ggw4>","</ggw4>")
- 公用模块.广告链接1=取指定文本2(源码,"<ggwlj1>","</ggwlj1>")
- 公用模块.广告链接2=取指定文本2(源码,"<ggwlj2>","</ggwlj2>")
- 公用模块.广告链接3=取指定文本2(源码,"<ggwlj3>","</ggwlj3>")
- 公用模块.广告链接4=取指定文本2(源码,"<ggwlj4>","</ggwlj4>")
- 公用模块.弹出公告=取指定文本2(源码,"<tcgg>","</tcgg>")
- 公用模块.弹出按钮=取指定文本2(源码,"<tcan>","</tcan>")
- 公用模块.弹出链接=取指定文本2(源码,"<tclj>","</tclj>")
- 公用模块.QQ群=取指定文本2(源码,"<qqun>","</qqun>")
- 变量 当前版本 为 双精度小数型 = 到数值(取应用版本("com.alahz.yangshao"))
- 变量 最新版本 为 双精度小数型 = 公用模块.版本号
- 变量 更新地址 为 文本型
- 变量 更新内容 为 文本型
- 如果 当前版本 >= 最新版本 则
- 保存窗口("live",创建 live)
- 时钟1.时钟周期 = 1000
- 否则
- 更新地址 = 公用模块.下载地址
- 更新内容 = 公用模块.更新说明
- 如果 信息框2("发现新版本",更新内容,"立即更新","取消") = 0 则
- 显示进度对话框2("正在下载","总大小:0M 已下载:0M",假)
- 下载器1.开始下载(更新地址,取存储卡路径() & "/alahz.apk")
- '打开指定网址(更新地址)
- 否则
- 结束程序()
- 结束 如果
- 结束 如果
- 结束 事件
- 事件 下载器1.进度改变(任务索引 为 整数型,文件总大小 为 整数型,已下载大小 为 整数型,下载进度 为 整数型)
- 设置进度对话框进度(下载进度)
- 设置进度对话框信息("总大小:" & 四舍五入(文件总大小/1024/1024,2) & "M 已下载:" & 四舍五入(已下载大小/1024/1024,2) & "M")
- 结束 事件
- 事件 下载器1.下载完毕(任务索引 为 整数型,下载结果 为 逻辑型)
- 如果 下载结果 = 真 则
- 打开文件(取存储卡路径() & "/alahz.apk")
- 否则
- 弹出提示("更新失败,请重试!")
- 结束 如果
- 结束 事件
- 事件 标签计时.被单击()
- 时钟1.时钟周期 = 0
- 如果 读取窗口("live")=空 则
- 保存窗口("live",创建 live)
- 结束 如果
- 切换窗口(读取窗口("live"))
- 结束 事件
复制代码
为什么我这样写留在主窗口不动 |
|