按键精灵手机版增加更新检测功能

前言

按键精灵如果没有检测更新功能，当脚本有改动就无法及时通知到用户，所以这篇文章就介绍一下如何为脚本增加检测更新功能

介绍

增加检测更新功能需要一个稳定的网页来放置更新信息，这个网页所在的网站并不一定非要是你的，如果能保证贴吧帖子不被删，在贴吧开个帖子也能用

当然如果自己有一个网站当然是最好的，我这里就直接在本站开了一个页面，专门用来放置更新信息https://www.wmjrc.com/quickmacro_update.html

下面是检测更新部分的代码

Import "ShanHai.lua"
Dim x,vnew,vnow,code,ScreenX,ScreenY
ScreenX = GetScreenX()
ScreenY = GetScreenY()

vnow = 1.09
code = URL.Get("https://www.wmjrc.com/quickmacro_update.html")

x = InStr(1,code,"最新版本号：")
x = x + 18
vnew = Mid(code, x, 6)

If CSng(vnew) > vnow Then 
	ShowMessage "有新版本，请前往下载", 3000, ((ScreenX / 2) - 200), (ScreenY / 2)
	Delay 2000
	ShanHai.openweb("www.wmjrc.com/quickmacro_update.html")  
Else 
	ShowMessage "当前已是最新版本", 3000, ((ScreenX / 2) - 200), (ScreenY / 2)
	Delay 2000
End If

然后是包含注释的代码截图

代码原理就是在一个网页上放置更新信息，然后获取网页源码，再通过字符串搜索找出最新版本号，所以说在贴吧发帖放置更新信息也是可行的

这段代码还是挺简单的，最关键最容易出错的地方就是从网页获取最新版本并比较当前版本，需要算好字符串的长度，否则后面转换为浮点数时会出现返回 null 的情况

考虑更新日志放到网页上更方便，所以这段代码没有做成直接下载文件的形式，而是访问网页，然后由用户点击下载，当然你也可以改成直接下载

4 月 14 日更新

发现上面代码没有考虑到更新网页故障的情况，当网页打不开时最新版本返回为空，这样再去和当前版本比较就会报错

所以我们还需要增加一个判断语句，判断最新版本返回值是否为空，然后再去比较

IF 语句修改如下

vnew = Csng(vnew)
If vnew = null Then 
	ShowMessage "当前已是最新版本", 3000, ((ScreenX / 2) - 200), (ScreenY / 2)
	Delay 2000
	
ElseIf vnew > vnow  Then
	ShowMessage "有新版本，正在前往下载", 3000, ((ScreenX / 2) - 200), (ScreenY / 2)
	Delay 2000
	ShanHai.openweb("www.wmjrc.com/quickmacro_update.html")
Else 
	ShowMessage "当前已是最新版本", 3000, ((ScreenX / 2) - 200), (ScreenY / 2)
	Delay 2000
End If

喜欢 (5)赏

[]

分享 (0)