InputText输入不进去或者输入法老是跳出来

'此函数用紫猫插件方法,插件下载地址 https://zimaoxy.com/b/t-77-1-1.html  

'下载后请解压所有文件到按键精灵安装目录的Plugin文件夹中。

Import "zm.luae" //导入插件,只需执行一次

zm.Init  //初始化插件,只需执行一次

'例子1 连接模拟器或者手机时测试调用

Call setIme("")  '调试时可写可不写此命令

'例子2 打包时调用

Dim 设备的输入法=getNowIme()    '获取当前输入法,把没有设置输入法前的输入法保存下来

Call setIme("cishidejiaoben") '设置小精灵输入法,填写的参数必须是作者自己打包时的包名

Delay 200

Tap X,Y                       '激活输入框 必须调用 setIme 函数 再激活输入框(因为点击输入框时输入法会激活,要提前设置好输入法)

Delay 500

InputText "测试输入"            '向输入框输入内容 

Delay 500

call installtypewriting(设备的输入法) '把之前没有设置输入法前的输入法设置回来,此命令可配合OnScriptExit使用

'参数:packageName 是辅助自身包名  作者打包时填写的包名

'使用模拟器连接小精灵测试时辅助包名为com.cyjh.mobileanjian(此包名是安卓按键APK的,调试需要的)

'测试时可以用 call setIme("") 方式做测试 填写空字符串 默认用调试的包名com.cyjh.mobileanjian

'打包时请记得使用 call setIme("此处填写打包时填写的包名") 方式打包  

'设置脚本输入法

Function setIme(packageName)

        Dim nowPackage,packageNameIme

        If packageName="" Then 

                packageName="com.cyjh.mobileanjian"

        End If

        nowPackage = zm.Execute("settings get secure default_input_method|grep "&packageName)

        If nowPackage = "" Then 

                packageNameIme = zm.Execute("ime list -s -a |grep " & packageName & "|head -n 1")

                If packageNameIme = "" Then 

                        ShowMessage "获取输入法失败，包名可能错误"

                Else 

                        zm.Execute("settings put secure default_input_method "&packageNameIme)

                End If        

        End If

        TracePrint packageName                 //当前辅助包名

        TracePrint nowPackage                //当前输入法是否为辅助输入法

        TracePrint packageNameIme        //辅助输入法        

End Function

//获取当前输入法

Function getNowIme()

        getNowIme = zm.Execute("settings get secure default_input_method")

End Function

//获取脚本输入法

Function getNowPackageIme(packageName)

        getNowPackageIme = zm.Execute("ime list -s -a |grep " & packageName & "|head -n 1")

End Function

//设置输入法

Function installtypewriting(typewriting)

        zm.Execute("settings put secure default_input_method "&typewriting)

End Function

编写kepress_input函数代替系统的inputtxt

在使用按键精灵手机助手的InputText函数的时候，经常是我们在调试的时候万无一失，可一到了用户那里，就各种奇葩的问题出现。

比如输入不了，或者和用户设备里面原有的输入法打架， 总之各种异常。

今天教大家一个方法，就是用下面的这个函数，利用KeyPress模拟按下键盘来完成输入

-------------------------------

--通过按键输入

--s： 要输入的文本,不能有中文

--t: [可选]每输入一个字符停顿的时间(毫秒)

function KeyPress_Input(s,t)

    if s==nil then

        print("【警告】KeyPress_Input：没有输入内容")

    else

        local str = s..""

        local i = 0

        local x = 0

        --根据数据的长度截取key的前几个字符

        for i = 0, #str, 1 do

            if (string.sub(str, x, x))==" " then --如果有空格

                LuaAuxLib.KeyPress("Space")--按下空格

            else

                LuaAuxLib.KeyPress((string.sub(str, x, x)))

            end

            delay(t)

            x=x+1

        end

    end

end

QMPlugin.KeyPress_Input=KeyPress_Input

将上面的函数加到自己的LUA文件里面就可以调用啦。

调用方法如下

//输入密码

InputText ""//关闭第三方输入法

Delay 100    //等待第三方输入法消失

InputText ""//确保关闭第三方输入法

[LUAname].KeyPress_Input "CSDN is the best website in China"

InputText ""//短时间内不让第三方输入法重启,防止影响上面的输入

Delay 100

InputText ""//短时间内不让第三方输入法重启

Delay 1000

上面的[LUAname]要换成你存放函数的Lua文件的名称。

有点可惜的是这个函数并不能输入中文，不过用来自动输入账号和密码之类没有在中文的字符串绰绰有余。

root环境下，建议启用按键精灵输入法。