• 按键公众号 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:2021-12-03

按键精灵安卓版
立即下载

软件版本:3.7.2
软件大小:46.2M
更新时间:2023-05-10

按键精灵iOS版
立即下载

软件版本:1.8.0
软件大小:29.2M
更新时间:2023-03-21

按键手机助手
立即下载

软件版本:3.8.0
软件大小:262M
更新时间:2023-05-30

快捷导航

登录 后使用快捷导航
没有帐号? 注册

发新话题 回复该主题

[江中游] 【江中游异次元-未来的夏娃】第10课 adb免root鼠标操作 [复制链接]

1#

江中游电脑版按键论坛教学总录:http://bbs.anjian.com/showtopic-697741-1.aspx

江中游安卓手机系统教学总录: http://bbs.anjian.com/showtopic-699643-1.aspx

江中游异次元

未来的夏娃

第10课 adb鼠标操作

鼠标操作有:均为免root操作

点击

滑动

长按

一、鼠标点击操作

adb鼠标操作原型命令为:

  1. shell input tap
复制代码

adbini文件书写建议:

  1. 鼠标点击= shell input tap
复制代码

按键代码要求:

adb点击大家主要注意xy坐标之间要有空格,否则点击不会成功,按键代码如下:

  1. Dim adb,设备数组,包类数组
  2. adb = "C:\adb\adb.exe "
  3. adbs = "C:\adb\adb.exe -s "
  4. adbcmd = "C:\adb\adb.ini"
  5. Call 启动服务()
  6. 设备数组 = 获取设备ID群()
  7. TracePrint 设备数组(0)
  8. Call 鼠标点击(设备数组(0), 444,915)
  9. Function 鼠标点击(设备ID, x, y)'免root,mode为0时代表覆盖,为1时代表追加
  10. Dim 命令, adbret
  11. 命令 = Plugin.File.ReadINI("adb", "鼠标点击", adbcmd)'读取保存在ini文件中的命令
  12. adbret = Plugin.JzyCommand.Command(adbs & 设备ID & 命令 & x & " " & y, 1000)'使用我的插件来获取连接的设备
  13. TracePrint Plugin.JzyCommand.U8toAn(adbret)
  14. End Function
  15. Function 启动服务
  16. Dim 命令,adbret
  17. 命令 =Plugin.File.ReadINI("adb", "启动服务", adbcmd)'读取保存在ini文件中的命令
  18. TracePrint 命令
  19. adbret = Plugin.JzyCommand.Command(adb & 命令, 1000)'使用我的插件来获取连接的设备
  20. End Function
  21. Function 获取设备ID群()
  22. Dim 获取设备, 转化数组, ii, 命令, adbret
  23. 命令 = Plugin.File.ReadINI("adb", "获取设备", adbcmd)'读取保存在ini文件中的命令
  24. adbret = Plugin.JzyCommand.Command(adb & 命令, 1000)'使用我的插件来获取连接的设备
  25. TracePrint adbret
  26. 'adbret返回结果如有连接则是:List of devices attached|000002f52fbb092edevice|emulator-5554device|emulator-5556device|11904|,List of devices attached无论是否获取到也是必须出现的字符,但是当adb服务没有启动,这串字符就不会出现了所以我们要用如果来判断一下
  27. If instr(1, adbret, "List of devices attached") >= 1 Then
  28. adbret = Replace(adbret, "List of devices attached|", "")'过滤一下注意最后要有一个中隔线
  29. 转化数组 = split(adbret, "|")'在dos中的每一行我这里使用中隔线"|"代表
  30. 设备ID = array()'按键的bug,重新定义数组不要加dim
  31. ReDim 设备ID(UBound(转化数组))'按键的bug,重新定义数组不要加dim
  32. For i = 0 To UBound(转化数组)
  33. If Right(转化数组(i), 6) = "device" Then '这一行中如有device字符代表是已经连接的设备
  34. 设备ID(ii) = Replace(转化数组(i), "device", "")'过滤一下
  35. ii = ii + 1
  36. End If
  37. Next
  38. Else
  39. 获取设备ID群=array()
  40. End If
  41. 获取设备ID群 = 设备ID
  42. End Function
复制代码

鼠标滑动:

鼠标滑动命令也非常简单,adb原型命令为:

  1. shell input swipe
复制代码

adbini文本记录建议:

  1. 鼠标拖动= shell input swipe
复制代码

按键代码建议:本命令看似简单,但参数多,一共有5个,即起点坐标及终点坐标,然后还有一个为延时,此延时为毫秒级

  1. Dim adb,设备数组,包类数组
  2. adb = "C:\adb\adb.exe "
  3. adbs = "C:\adb\adb.exe -s "
  4. adbcmd = "C:\adb\adb.ini"
  5. Call 启动服务()
  6. 设备数组 = 获取设备ID群()
  7. TracePrint 设备数组(0)
  8. Call 鼠标拖动(设备数组(0), 312,2359, 312,500,5000)
  9. Function 鼠标拖动(设备ID, x1, y1, x2, y2, times)'免root,mode为0时代表覆盖,为1时代表追加
  10. Dim 命令, adbret
  11. 命令 = Plugin.File.ReadINI("adb", "鼠标拖动", adbcmd)'读取保存在ini文件中的命令
  12. TracePrint adbs & 设备ID & 命令 & x1 & " " & y1 & " " & x2 & " " & y2 & " " & times
  13. adbret = Plugin.JzyCommand.Command(adbs & 设备ID & 命令 & x1 & " " & y1 & " " & x2 & " " & y2 & " " & times, 1000)'使用我的插件来获取连接的设备
  14. TracePrint Plugin.JzyCommand.U8toAn(adbret)
  15. End Function
  16. Function 启动服务
  17. Dim 命令,adbret
  18. 命令 =Plugin.File.ReadINI("adb", "启动服务", adbcmd)'读取保存在ini文件中的命令
  19. TracePrint 命令
  20. adbret = Plugin.JzyCommand.Command(adb & 命令, 1000)'使用我的插件来获取连接的设备
  21. End Function
  22. Function 获取设备ID群()
  23. Dim 获取设备, 转化数组, ii, 命令, adbret
  24. 命令 = Plugin.File.ReadINI("adb", "获取设备", adbcmd)'读取保存在ini文件中的命令
  25. adbret = Plugin.JzyCommand.Command(adb & 命令, 1000)'使用我的插件来获取连接的设备
  26. TracePrint adbret
  27. 'adbret返回结果如有连接则是:List of devices attached|000002f52fbb092edevice|emulator-5554device|emulator-5556device|11904|,List of devices attached无论是否获取到也是必须出现的字符,但是当adb服务没有启动,这串字符就不会出现了所以我们要用如果来判断一下
  28. If instr(1, adbret, "List of devices attached") >= 1 Then
  29. adbret = Replace(adbret, "List of devices attached|", "")'过滤一下注意最后要有一个中隔线
  30. 转化数组 = split(adbret, "|")'在dos中的每一行我这里使用中隔线"|"代表
  31. 设备ID = array()'按键的bug,重新定义数组不要加dim
  32. ReDim 设备ID(UBound(转化数组))'按键的bug,重新定义数组不要加dim
  33. For i = 0 To UBound(转化数组)
  34. If Right(转化数组(i), 6) = "device" Then '这一行中如有device字符代表是已经连接的设备
  35. 设备ID(ii) = Replace(转化数组(i), "device", "")'过滤一下
  36. ii = ii + 1
  37. End If
  38. Next
  39. Else
  40. 获取设备ID群=array()
  41. End If
  42. 获取设备ID群 = 设备ID
  43. End Function
复制代码
三、鼠标长按:其实,鼠标长按就是鼠标拖动的命令,为什么呢?
拖动是针对两个点操作的,但如果把这两个点坐标都改成为一个点就是针对一个点的坐标操作了,然后我们把后面的延时加大,比如3000毫秒,即可实现鼠标长按的效果了,,当然你可以把拖动的函数改成长按即可,我给大家修改如下 :
  1. Call 鼠标长按(设备数组(0), 312, 1359, 5000)
  2. Function 鼠标长按(设备ID, x, y, times)'免root
  3. Dim 命令, adbret
  4. 命令 = Plugin.File.ReadINI("adb", "鼠标拖动", adbcmd)'读取保存在ini文件中的命令
  5. TracePrint adbs & 设备ID & 命令 & x1 & " " & y1 & " " & x2 & " " & y2 & " " & times
  6. adbret = Plugin.JzyCommand.Command(adbs & 设备ID & 命令 & x & " " & y & " " & x & " " & y & " " & times, 1000)'使用我的插件来获取连接的设备
  7. TracePrint Plugin.JzyCommand.U8toAn(adbret)
  8. End Function
复制代码
ADB下载:
adb.rar (, 下载次数:220)




最后编辑江中游 最后编辑于 2022-05-20 09:52:19
江中游老师拥有国内外近6000人内部VIP会员,上百万次的支持率,史上最全面、最详细、最易懂的全方位一体化终极教学
江中游QQ:2025177703;390941087;2426410388
江中游微信号:390941087;bauuia
更多更全面教学请关注江中游抖音号:32135374718;快手号:1398558462

2#

haohaoxuexid d da

3#

adb免root鼠标操作

4#

学习

5#

学习了

6#

666666

7#

第10课 adb免root鼠标操作

[url=http://bbs.anjian.com/thread-576954-1-1.html]<strong><font size="4">按键精灵14周年庆典火热进行中!点击领奖[
8#

第10课 adb免root鼠标操作

9#

学习学习~

10#

感谢老师

11#

感谢分享!!!!!

12#

6666666666666666666

13#

666666666666666

14#

看监控摸摸

15#

试试

16#

666666666666666666666

17#


谢谢分享,欣赏了。。。

18#

谢谢分享,

19#

加油!!!

加油!!!加油!!!加油!!!加油!!!

20#

顶一个看下哦

发新话题 回复该主题