.版本 2
.支持庫 internet
保存路徑 = 取運(yùn)行目錄 () + “\新版安裝包.zip”
cfg = 取運(yùn)行目錄 () + “\net.html”
' 備用一個(gè) https://raw.githubusercontent.com/qq1790749886/javanet/master/upload/eupgrade.txt
html = 到文本 (HTTP讀文件 (“http://www.reibang.com/p/d953f34687c5”))? ' 簡書 百家號(hào)? csdn 163矮嫉,搜狐 git? 能發(fā)博客網(wǎng)站就行
寫到文件 (cfg, HTTP讀文件 (“http://www.reibang.com/p/d953f34687c5”))
' 結(jié)束 ()
開始位置 = 尋找文本 (html, “<p>” + #正文開始, 0, 假)
.如果真 (開始位置 = -1)
? ? 開始位置 = 0
.如果真結(jié)束
寫到文件 (cfg, 十六進(jìn)制文本解密 (文本_取出中間文本 (html, #正文開始, #正文結(jié)束, 開始位置)))
文件大小 = 到整數(shù) (讀配置項(xiàng) (cfg, #cfg_主節(jié)點(diǎn), #cfg_filesize, “0”))
psize = 文件大小 × 3 + 1
p = 取空白字節(jié)集 (psize)
GetPrivateProfileStringA (#cfg_主節(jié)點(diǎn), #cfg_package, “”, p, psize, cfg)
寫到文件 (保存路徑, 十六進(jìn)制文本解密 (到文本 (p)))
xx = “版本 :” + 讀配置項(xiàng) (cfg, #cfg_主節(jié)點(diǎn), #cfg_version, “”) + #換行符
xx = xx + “版本信息 :” + 讀配置項(xiàng) (cfg, #cfg_主節(jié)點(diǎn), #cfg_versionInfo, “”) + #換行符
xx = xx + “安裝包大小 :” + 到文本 (文件大小) + “ b” + #換行符 + #換行符
xx = xx + “已保存路徑到 :” + 保存路徑 + #換行符
' 調(diào)試輸出 (xx)
信息框 (xx, 0, “查檢更新!”, )
刪除文件 (cfg)