按键精灵

按键精灵安卓界面输入框密文显示(用*隐藏密码)

2020-02-11  本文已影响0人  3分钟学堂郭立员

群友问到这么一个问题,就是密文显示,本身按键界面是没有这个功能,这里通过写一个响应函数来实现。

先来看一下效果:

由于输入框没有响应事件,所以没法直接在输入的过程中变成星号,因此我这里借助了一个多选框来实现。

当多选框点击选中的时候,密码会被隐藏,以星号显示,取消多选框的勾选时,又会恢复成密码明文。

一、说一下它的原理:

我们在使用星号显示的时候,其实是把输入框原本内容存入到一个文本当中。这样就不会因为输入框内容修改成星号,而导致内容丢失了。

二、具体的操作步骤:

界面中有效的元素只有两个输入框和一个多选框,这里就不说它了。

我们直接介绍多选框点击的响应函数:

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

最终的代码:

三、关于脚本调用输入框:

当我们脚本要调用输入框的时候,先把输入框的内容读取出来,然后判断输入框是星号还是密码,如果是星号就读取存入密码的文本,如果不是星号,就可以直接读取输入框的内容使用。

上一篇 下一篇

猜你喜欢

热点阅读