comezzt 发表于 2020-7-11 01:09:10

E4A在线更新app

变量 退出时间 为 长整数型

事件 主窗口.按下某键(键代码 为 整数型,传址 屏蔽 为 逻辑型)
        如果 键代码 = 返回键 则       
                如果 取启动时间() - 退出时间 > 2000 则
                       
                   
                        弹出提示("再按一次退出程序")
                        退出时间 = 取启动时间()
                否则
                        结束程序()
                结束 如果
        结束 如果
结束 事件


       

事件 主窗口.创建完毕()       
       

       
        判断 文件是否存在("/sdcard/seversfig.txt")
                     分支 真
                                            
                     分支 假
                             创建文件("/sdcard/seversfig.txt")
                               写出文本文件("/sdcard/seversfig.txt","192.168.0.63","GBK")               
                                     
        结束 判断
        serverIP=读入文本文件("/sdcard/seversfig.txt","GBK")


       

       
结束 事件
变量 serverIP 为 文本型

变量 最新版本号 为 文本型
变量 当前版本号 为 文本型

事件 下载器1.创建完毕()
        最新版本号=取网页源码2("http://"&serverIP &":8060/bbh.txt","UTF-8",5000)'这个地址是 文件的外链地址
   当前版本号=取应用版本("com.newapp")

        如果 到数值( 最新版本号) >        到数值(当前版本号 )则             '这个对比写自己的版本号，现在的程序包为1.0 所以与1.1 对比
                进度条1.可视=真
                进度条1.左边=0
                进度条1.顶边=取屏幕高度()-100
                进度条1.宽度=取屏幕宽度()               
                        弹出提示("开始更新！")
                        下载器1.开始下载("http://"&serverIP &":8060/xxxx.apk",根目录& "/xxxx.apk")
                               
        否则
                弹出提示("当前软件已是最新版本！")
        结束 如果
结束 事件


事件 下载器1.下载完毕(任务索引 为 整数型,下载结果 为 逻辑型)
        安装应用(根目录& "/xxxx.apk")       
结束 事件
事件 下载器1.进度改变(任务索引 为 整数型,文件总大小 为 整数型,已下载大小 为 整数型,下载进度 为 整数型)
        进度条1.位置=下载进度
结束 事件

comezzt 发表于 2020-7-11 01:10:33

已经在模拟器上测试

sdajhdjannda 发表于 2020-7-11 01:21:54

很给力。。。。很喜欢

浮生若梦 发表于 2020-7-11 01:33:15

这个好好支持一下

wwww 发表于 2020-7-11 01:44:36

这个不错，谢谢共享

企鹅6655 发表于 2020-7-11 01:55:58

抢楼了，前排第一次啊

NUNU 发表于 2020-7-11 02:07:19

必须支持。。。。。。。

尘封 发表于 2020-7-11 03:34:54

支持！！！！！！

物语 发表于 2020-7-11 05:02:30

学习了，这就去试试

光光 发表于 2020-7-11 06:30:05

很不错的哦，支持，加油
页: [1] 2 3 4 5 6 7
查看完整版本: E4A在线更新app