使用PERL发送adb命令

Question

让我们举一个简单的例子。

我的android真正的设备是通过USB和亚行连接到PC上的。

我用过

 D:\Test>adb shell input keyevent 29 

进入A

我想为此实现一个PERL脚本，并希望使用

C:\Perl\bin>perl t.pl

我试过：

t.pl内容：

 system("adb shell input keyevent 29");

它说亚行不是公认的指挥官。

Answer 1

您编写的代码应该可以工作，除非您的ADB配置在环境变量中。使用您的android设备id尝试脚本。

配置完亚行的环境变量后，执行以下操作。

D:\Test>adb器件

获得设备ID后，在perl脚本中尝试以下代码。

system("adb -s <device id> shell input keyevent 10");   

P.S:，我试着用10键事件来检查在数字10中按哪个键，它从拨号板上按3号键。