无标题文章

.版本 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)