无标题文章

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

©著作权归作者所有,转载或内容合作请联系作者
平台声明:文章内容(如有图片或视频亦包括在内)由作者上传并发布,文章内容仅代表作者本人观点,简书系信息发布平台,仅提供信息存储服务。

推荐阅读更多精彩内容