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

　　大家好，我是公众号3分钟学堂的郭立员~
　　今天内容是公告弹窗，用于脚本更新后的提示，如下图：
　　实现这个功能的原理有这么几个：
　　①下拉框能够自动执行选择响应的函数
　　这一点是前提条件，就是说打开脚本后，如果有界面有下拉框，那么下拉框写的选择响应函数代码会自动执行，无需手动点击触发，这样能达到自动弹窗的效果。
　　②读取服务器文本
　　通过url.get命令获取服务器上的文本内容，在内容中包含指定控制的字符，或者对应的键值对，还有公告信息内容
　　③＂解析＂文本内容中的控制字符（键值对）
　　这一步是代码的核心内容，通过解析文本内容来控公告弹窗的状态
　　④弹窗命令
　　Dialog.MsgBox
　　⑤本地存储来判断是否首次弹窗
　　原理就是这些，说一下实现步骤
　　①在界面加一个下拉框，用于自动弹窗代码的启动
　　②准备一个文本，内容如下
　　{＂onoff＂:true,＂first＂:true,＂msg＂:＂v1.003版本更新内容：   1.增加了公告弹窗  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 IfEnd Function
　　需要注意的地方：
　　我们公告内容通常都是包含汉字的，但是由于utf8编码的汉字，如果直接用文本保存会有bom头，在读取时会在内容开始位置多一个问号，这个问题会导致读取键值的错误。
　　解决方法2个思路：
　　①使用第三方的文本编辑器，比如notepad+
　　②去掉多出来的问号，比如正则匹配，只保留{}内的东西，或者用删除命令删除首个字符。
　　还有关于没有服务器的问题，免费的在线文档也行，比如石墨文档、腾讯文档等等，
　　这期文章主要给大家提供一个＂云控＂的思路。
　　好了，内容就这些，又多了一个花里胡哨的功能，如果觉得还行帮忙点个赞~
　　=正文完=