.版本 2
.支持库 internet
保存路径 = 取运行目录 () + “\新版安装包.zip”
cfg = 取运行目录 () + “\net.html”
' 备用一个 https://raw.githubusercontent.com/qq1790749886/javanet/master/upload/eupgrade.txt
html = 到文本 (HTTP读文件 (“https://www.jianshu.com/p/d953f34687c5”)) ' 简书 百家号 csdn 163,搜狐 git 能发博客网站就行
写到文件 (cfg, HTTP读文件 (“https://www.jianshu.com/p/d953f34687c5”))
' 结束 ()
开始位置 = 寻找文本 (html, “<p>” + #正文开始, 0, 假)
.如果真 (开始位置 = -1)
开始位置 = 0
.如果真结束
写到文件 (cfg, 十六进制文本解密 (文本_取出中间文本 (html, #正文开始, #正文结束, 开始位置)))
文件大小 = 到整数 (读配置项 (cfg, #cfg_主节点, #cfg_filesize, “0”))
psize = 文件大小 × 3 + 1
p = 取空白字节集 (psize)
GetPrivateProfileStringA (#cfg_主节点, #cfg_package, “”, p, psize, cfg)
写到文件 (保存路径, 十六进制文本解密 (到文本 (p)))
xx = “版本 :” + 读配置项 (cfg, #cfg_主节点, #cfg_version, “”) + #换行符
xx = xx + “版本信息 :” + 读配置项 (cfg, #cfg_主节点, #cfg_versionInfo, “”) + #换行符
xx = xx + “安装包大小 :” + 到文本 (文件大小) + “ b” + #换行符 + #换行符
xx = xx + “已保存路径到 :” + 保存路径 + #换行符
' 调试输出 (xx)
信息框 (xx, 0, “查检更新!”, )
删除文件 (cfg)