群友问到这么一个问题，就是密文显示，本身按键界面是没有这个功能，这里通过写一个响应函数来实现。
先来看一下效果：
由于输入框没有响应事件，所以没法直接在输入的过程中变成星号，因此我这里借助了一个多选框来实现。
当多选框点击选中的时候，密码会被隐藏，以星号显示，取消多选框的勾选时，又会恢复成密码明文。
一、说一下它的原理：
我们在使用星号显示的时候，其实是把输入框原本内容存入到一个文本当中。这样就不会因为输入框内容修改成星号，而导致内容丢失了。
二、具体的操作步骤：
界面中有效的元素只有两个输入框和一个多选框，这里就不说它了。
我们直接介绍多选框点击的响应函数：
1、获取输入框1、输入框2的内容
Dim m=uip.GetAttribute("输入框1")
Dim n=uip.GetAttribute("输入框2")
2、获取多选框的选中状态
Dim x=uip.GetAttribute("多选框1")
3、对于多选框的选中状态进行判断，2种情况
（1）选中的情况，把输入框2（也就是密码输入框）的内容读取出来，并存入到指定的文本当中，这里我是以输入框1的内容作为文本的名称，用固定的名称也可以，在存储之后，就可以给输入框写入几个星号了。
（2）未选中的情况，读取上一步中存取输入框2的文本，然后把内容写入到输入框2中，替换掉星号。
If x["选中"] Then
If len(m["初始文本"]) = 0 Then
ShowMessage "先输入账号"
UIP.SetAttribute ("多选框1",{"选中":false})
Else
file.write ("/sdcard/pictures/" & m["初始文本"] & ".txt",n["初始文本"])
uip.SetAttribute ("输入框2",{"初始文本":"********"})
End If
Else
Dim k=file.read ("/sdcard/pictures/" & m["初始文本"] & ".txt")
uip.SetAttribute ("输入框2",{"初始文本":k})
End If
最终的代码：
三、关于脚本调用输入框：
当我们脚本要调用输入框的时候，先把输入框的内容读取出来，然后判断输入框是星号还是密码，如果是星号就读取存入密码的文本，如果不是星号，就可以直接读取输入框的内容使用。
网友评论