【教程】如何给自己写的脚本加入检测更新

无名

检测更新这个功能是很重要的，如果脚本更新了，你得让用户及时的更新，你又不可能给每个用户都发一遍，所以这个功能是每个脚本作者都必须要做的
原理很简单，得到网页内容，网页里面写了版本号和下载地址，然后判断版本号和当前版本号
首先你得有一个自己的网站，我推荐“凡科建站”具体的我就不多说了，自己百度吧，另外不要用自己空间做更新提示的地方，没用的，访问会被拒绝。
=================================分割================================
Dim 第一字符, 第二字符, 地址, 最新版本, 当前版本'定义变量，无需多说
Call Plugin.Web.ClearTemp()'清除浏览器缓存，这个非常重要，不然每次获取到的网页内容都是第一次获取到的内容
Delay 300
返回值 = Lib.网络.获得网页源文件_增强版("ht和谐

本帖隐藏的内容需要【资源会员】才可浏览，您需要升级才可浏览，点击这里升级【资源会员】

和谐39.ic和谐oc.cc/nd.jsp?id=6&_np=2_307", "utf-8")
'网页编码有两种，如果出现乱码那就换一种("utf-8"和"gbk")。由于网址不能发，所以我加了字进去，调试的时候把“和谐”两个字删除就好
'Form1.InputBox1.Text = 返回值
'获取版本号
第一字符 = instr(返回值, "版本号：")'返回某字符串在另一字符串中第一次出现的位置。
第一字符 = 第一字符 + 4'由于获取的是字符串开头的位置，要把“版本号：”这4个字符给忽略，所以加4
最新版本 = Mid(返回值, 第一字符, 4)'这样就能获取到“版本号：”后面4个字
当前版本 = 1.01
If CSng(最新版本) > 当前版本 Then
'获取下载地址
第二字符 = instr(返回值, "结束")'你得知道下载地址的尾部在什么地方，所以特地在尾部写上一个结束来表明
第一字符 = 第一字符 + 9
地址 = Mid(返回值, 第一字符, 第二字符 - 第一字符)
MessageBox "有新版本，请前往下载" & Chr(10) & "最新版本号为：" & 最新版本 & " 最新版下载地址为：" & 地址
RunApp 地址
EndScript
Else
MessageBox "当前已是最新版本"
End If
=================================分割===============================#【易语言】批处理编辑编译器##开发者六级认证刚刚通过~#