觅风论坛

标题: E4A在线更新app [打印本页]

作者: comezzt    时间: 2020-7-11 01:09
标题: 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
已经在模拟器上测试
作者: sdajhdjannda    时间: 2020-7-11 01:21
很给力。。。。很喜欢
作者: 浮生若梦    时间: 2020-7-11 01:33
这个好好支持一下
作者: wwww    时间: 2020-7-11 01:44
这个不错,谢谢共享
作者: 企鹅6655    时间: 2020-7-11 01:55
抢楼了,前排第一次啊
作者: NUNU    时间: 2020-7-11 02:07
必须支持。。。。。。。
作者: 尘封    时间: 2020-7-11 03:34
支持!!!!!!
作者: 物语    时间: 2020-7-11 05:02
学习了,这就去试试
作者: 光光    时间: 2020-7-11 06:30
很不错的哦,支持,加油
作者: 360403967    时间: 2020-7-11 07:57
前来围观,LZ好样的!
作者: 找找找    时间: 2020-7-11 09:25
感觉不错
作者: 海绵老爹    时间: 2020-7-11 09:33
嘻嘻不错支持一个
作者: 骑着蚂蚁兜风    时间: 2020-7-11 09:42
很给力。。。。很喜欢
作者: 骑着蚂蚁兜风    时间: 2020-7-11 09:50
还是看不懂,复杂
作者: fghjgfkjhgk    时间: 2020-7-11 09:59
不错不错 支持下
作者: 2098817979    时间: 2020-7-11 10:07
藕是来打酱油滴...
作者: 好萌哦    时间: 2020-7-11 10:53
学习了!!!!
作者: 216341564213    时间: 2020-7-11 11:39
前来支持~~~~~~~~~~~~~~~~~~~
作者: 哦美国    时间: 2020-7-11 12:25
学习了,这就去试试
作者: hy507669673    时间: 2020-7-11 13:12
这个好好支持一下
作者: 13778890079    时间: 2020-7-11 13:58
顶起  很好的帖
作者: 莫天浩    时间: 2020-7-11 14:18
谢谢楼主的辛苦分享
作者: luoyunjie    时间: 2020-7-11 14:37
提示: 作者被禁止或删除 内容自动屏蔽
作者: luoyunjie    时间: 2020-7-11 14:57
提示: 作者被禁止或删除 内容自动屏蔽
作者: zdf517593902    时间: 2020-7-11 15:17
赞一个!
作者: 13778890079    时间: 2020-7-11 15:37
感觉不错
作者: 阿运    时间: 2020-7-11 16:25
前来支持~~~~~~~~~~~~~~~~~~~
作者: qazqaz    时间: 2020-7-11 17:13
不错不错 支持下
作者: 阿运    时间: 2020-7-11 18:02
顶起  很好的帖
作者: haobaba45    时间: 2020-7-11 18:50
支持!!!!前排!!!!
作者: lijianan12300    时间: 2020-7-11 19:39
感觉不错
作者: fghjgfkjhgk    时间: 2020-7-11 20:03
嘻嘻不错支持一个
作者: 尘封    时间: 2020-7-11 20:28
还是看不懂,复杂
作者: 光光    时间: 2020-7-11 20:52
不错不错 支持下
作者: 5555    时间: 2020-7-11 21:17
非常不错,感谢分享!
作者: hy507669673    时间: 2020-7-11 21:41
支持!!!!前排!!!!
作者: 2675835142    时间: 2020-7-11 22:04
谢谢楼主的辛苦分享
作者: wwww    时间: 2020-7-11 22:26
支持你们一下下哈
作者: yu1616    时间: 2020-7-11 22:48
不错哦  喜欢 嘿嘿
作者: luoyunjie    时间: 2020-7-11 23:11
提示: 作者被禁止或删除 内容自动屏蔽
作者: 啦啦啦啦啦啦    时间: 2020-7-11 23:33
我表示压力很大
作者: Hacker    时间: 2020-7-11 23:35
学习了!!!!
作者: lsz    时间: 2020-7-11 23:37
好像还不错!
作者: qq2556906318    时间: 2020-7-11 23:39
不错!顶LZ
作者: 光光    时间: 2020-7-11 23:40
学习了,这就去试试
作者: 2098817979    时间: 2020-7-11 23:42
期待中......
作者: 1378409920    时间: 2020-7-12 00:11
不错不错 支持下
作者: 你大爷    时间: 2020-7-12 00:41
支持一下,期待更多东西
作者: a491198538    时间: 2020-7-12 01:10
顶一个了
作者: 5555    时间: 2020-7-12 01:39
很不错的哦,支持,加油
作者: 骑着蚂蚁兜风    时间: 2020-7-12 02:08
我表示压力很大
作者: huang19781029    时间: 2022-7-24 09:38
66666666666666666666




欢迎光临 觅风论坛 (https://www.eyyba.com/) Powered by Discuz! X3.4