大家好，我是公众号3分钟学堂的郭立员~，接下来我们就来聊聊关于按键精灵怎么判断有没有弹出?以下内容大家不妨参考一二希望能帮到您!
按键精灵怎么判断有没有弹出
大家好，我是公众号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
②去掉多出来的问号，比如正则匹配，只保留{}内的东西，或者用删除命令删除首个字符。
还有关于没有服务器的问题，免费的在线文档也行，比如石墨文档、腾讯文档等等，
这期文章主要给大家提供一个“云控”的思路。
好了，内容就这些，又多了一个花里胡哨的功能，如果觉得还行帮忙点个赞~
=正文完=
