- 积分
- 3
- 阅读权限
- 100
- 鲜花
- 0
- 猫粮
- 18
- 在线时间
- 44 小时
- 精华
- 0
- 注册时间
- 2024-6-21
- 性别
- 保密
- 最后登录
- 2025-1-24
按键手机班学员
- 鲜花
- 0
- 猫粮
- 18
|
发表于 2025-1-20 01:50:58
|
显示全部楼层
感谢大神!
好多看不懂的,琢磨研究了半天,我精简成这样,看看对不对?
Import "zm.luae"
zm.Init
If ReadUIConfig("切换输入法") Then
Dim 切换输入法 = True
Dim 包名 = "com.XXX.XXX"
Dim 原始输入法 = zm.Execute("settings get secure default_input_method")
Dim 脚本输入法 = zm.Execute("ime list -s -a |grep " & 包名 & "|head -n 1")
End If
///////////////////////////////////
切输入法
Tap 100, 100
Delay 1000
InputText "测试文本"
还原输入法
///////////////////////////////////
Sub 切输入法
If 切换输入法 Then
zm.Execute ("settings put secure default_input_method " & 脚本输入法)
Else
Delay 50
End If
End Sub
Sub 还原输入法
If 切换输入法 Then
zm.Execute("settings put secure default_input_method "&原始输入法)
Else
Delay 50
End If
End Sub
|
|