Dim 第一字符, 第二字符, 地址, 最新版本, 当前版本'定义变量，无需多说
Call Plugin.Web.ClearTemp()'清除浏览器缓存，这个非常重要，不然每次获取到的网页内容都是第一次获取到的内容
Delay 300
返回值 = Lib.网络.获得网页源文件_增强版("这里的网址我就不发了，因为加进去就不能发帖了", "utf-8")
'网页编码有两种，如果出现乱码那就换一种("utf-8"和"gbk")
'获取版本号
第一字符 = instr(返回值, "版本号：")'返回某字符串在另一字符串中第一次出现的位置。
第一字符 = 第一字符 + 4'由于获取的是字符串开头的位置，要把“版本号：”这4个字符给忽略，所以加4
最新版本 = Mid(返回值, 第一字符, 4)'这样就能获取到“版本号：”后面4个字
当前版本 = 1.01
If CSng(最新版本) > 当前版本 Then
'获取下载地址
第二字符 = instr(返回值, "结束")'你得知道下载地址的尾部在什么地方，所以特地在尾部写上一个结束来表明
第一字符 = 第一字符 + 9
地址 = Mid(返回值, 第一字符, 第二字符 - 第一字符)
MessageBox "有新版本，请前往下载" & Chr(10) & "最新版本号为：" & 最新版本 & " 最新版下载地址为：" & 地址
RunApp 地址
EndScript
Else
MessageBox "当前已是最新版本"
End If

这个6

获取下载地址 不要封装就直接写中文？ 返回值不用定义吗

这不一样

您好，网页端应该怎么写呢？我是菜鸟求教~

你好，我已经研究出来了，请问我想加个进度条有没有人帮忙解答的

厉害了

检测更新这个功能挺实用的

多学习学习吧

666，学习了，感谢大佬分享~~

支持一把~~