打开脚本时跳出公告弹窗，公告内容及是否弹窗远程可控

[按键精灵小Q]

作者：郭立员

 

大家好，我是公众号3分钟学堂的郭立员~

 

今天内容是公告弹窗，用于脚本更新后的提示，如下图：

 

 

 

实现这个功能的原理有这么几个：

 

①下拉框能够自动执行选择响应的函数

 

这一点是前提条件，就是说打开脚本后，如果有界面有下拉框，那么下拉框写的选择响应函数代码会自动执行，无需手动点击触发，这样能达到自动弹窗的效果。

 

②读取服务器文本

 

通过url.get命令获取服务器上的文本内容，在内容中包含指定控制的字符，或者对应的键值对，还有公告信息内容

 

③“解析”文本内容中的控制字符（键值对）

 

这一步是代码的核心内容，通过解析文本内容来控公告弹窗的状态

 

④弹窗命令

 

Dialog.MsgBox

 

⑤本地存储来判断是否首次弹窗

 

原理就是这些，说一下实现步骤

 

①在界面加一个下拉框，用于自动弹窗代码的启动

 

②准备一个文本，内容如下

 

{"onoff":true,"first":true,"msg":"v1.003版本更新内容：\n\n 1.增加了公告弹窗\n 2.公告内容可以远程控制"}

 

包含3组键值对，分别是控制是否弹窗、相同公告是否只弹出一次、公告的内容。

 

这个文本放到服务器上，每次只需要修改文本内容，就可以控制脚本弹窗。

 

③服务器文本内容的解析

 

读取内容onoff 如果是true，说明脚本运行弹窗

 

first，如果是true，代表每次更新内容，公告弹窗只弹出一次

 

msg是公告更新的内容

 

④判断是否弹窗过

 

这一步是基于同一更新内容弹窗弹出次数的，如果是只弹出一次，那么就需要设备在本地记录一下，已经弹出过了。

 

下面直接放我的范例代码：

 

 

Function 函数名1()

Dim path="/sdcard/pictures/msg.txt"

Dim json=url.get("http://192.168.1.4/notice.txt")

Dim table=encode.jsontotable(json)

If table["onoff"] Then

If table["first"] Then

If Dir.Exist(path) = 0 Then

file.write path, table["msg"]

Dialog.MsgBox(table["msg"],0)

Else

If file.read(path) <> table["msg"] Then

file.write path, table["msg"]

Dialog.MsgBox(table["msg"],0)

End If

End If

Else

Dialog.MsgBox(table["msg"],0)

End If

 

End If

End Function
 

 

 

我们公告内容通常都是包含汉字的，但是由于utf8编码的汉字，如果直接用文本保存会有bom头，在读取时会在内容开始位置多一个问号，这个问题会导致读取键值的错误。

 

解决方法2个思路：

 

①使用第三方的文本编辑器，比如notepad+

 

②去掉多出来的问号，比如正则匹配，只保留{}内的东西，或者用删除命令删除首个字符。

 

还有关于没有服务器的问题，免费的在线文档也行，比如石墨文档、腾讯文档等等，

 

这期文章主要给大家提供一个“云控”的思路。

 

好了，内容就这些，又多了一个花里胡哨的功能，如果觉得还行帮忙点个赞~

 

原文地址： http://bbs.anjian.com/showtopic-701531-1.aspx