ZIP热更代码

1. 
   
2. Function zip热更(包名,token)
   
3.         Dim 数据=zm.HttpGet("https://api.kstore.space/api/v1/file/list/0?access_token="&token)
   
4. 数据 = Encode.JsonToTable(数据)
   
5. If 数据["status"] = 200 Then
   
6.     dim 键值表 = Encode.TableToJson(数据)
   
7.     dim 版本号链接=Split(键值表,"download.kstore.space/download/zip")
   
8.     版本号链接 = Split(版本号链接(1), ".md5")
   
9.     TracePrint 版本号链接(0)
   
10.     dim 版本号= zm.HttpGet("https://download.kstore.space/download"&版本号链接(0)&".md5")
    
11.     TracePrint 版本号
    
12.     dim 本地版本号=File.Read("data/data/"&包名&"/file/assets/script.md5")       
    
13.     If 本地版本号 <> 版本号 Then
    
14.           ShowMessage "开始热更"
    
15.           TracePrint "开始热更"
    
16.         zm.HttpDownload "https://download.kstore.space/download"&版本号链接(0)&".zip", "/sdcard/"&包名&"/rg.zip"
    
17.         zm.Execute ("chmod  777 /data/data/"& 包名 & "/file/assets")
    
18.         zm.Execute ("chmod  777 /data/data/"& 包名 & "/file")
    
19.         解压文件("/sdcard/"&包名&"/rg.zip", "/sdcard/" & 包名 & "/rg")
    
20.        
    
21.         Dim 文件名={"script.lc","script.atc","script.rtd","script.uip","script.uis","script.md5"}
    
22.         For i = 0 To 4
    
23.                 zm.DirCopy "/sdcard/" & 包名 & "/rg/" & 文件名(i), "/data/data/" & 包名 & "/files/assets/" & 文件名(i)
    
24.                 zm.DirCopy "/sdcard/" & 包名 & "/rg/" & 文件名(i), "/data/data/" & 包名 & "/files/" & 文件名(i)
    
25.         Next
    
26.         zm.Execute ("chmod  771 /data/data/" & 包名 & "/file")
    
27.        
    
28.    zm.Execute ("chown  root:root /data/data/"& 包名 &"/files/")
    
29.    zm.Execute ("chown  root:root /data/data/"& 包名 &"/files/script.info")
    
30.    zm.Execute ("chown  root:root /data/data/"& 包名 &"/files/script.lc")
    
31.    zm.Execute ("chown  root:root /data/data/"& 包名 &"/files/script.atc")
    
32.    zm.Execute ("chown  root:root /data/data/"& 包名 &"/files/script.uip")
    
33.    zm.Execute ("chown  root:root /data/data/"& 包名 &"/files/script.uis")
    
34.    zm.Execute ("chown  root:root /data/data/"& 包名 &"/files/script.rtd")
    
35.    
    
36.    zm.Execute ("chmod  0664 /data/data/"& 包名 &"/files/script.info")
    
37.    zm.Execute ("chmod  0664 /data/data/"& 包名 &"/files/script.lc")
    
38.    zm.Execute ("chmod  0664 /data/data/"& 包名 &"/files/script.atc")
    
39.    zm.Execute ("chmod  0664 /data/data/"& 包名 &"/files/script.uip")
    
40.    zm.Execute ("chmod  0664 /data/data/"& 包名 &"/files/script.uis")
    
41.    zm.Execute ("chmod  0664 /data/data/"& 包名 &"/files/script.rtd")
    
42. 
    
43.     End If       
    
44. End If
    
45. End Function
    
46. 
    
47. Function 解压文件(目标文件, 解压目录)
    
48.     If Dir.Exist(解压目录)<>2 Then
    
49.         If Dir.Create(解压目录) Then
    
50.             TracePrint "创建文件夹成功"
    
51.         End If
    
52.     End If
    
53.    zm.Execute("unzip -o "&目标文件&" -d "&解压目录)
    
54. End Function

复制代码