- 按键认证导师
- 374328
- 1577
- 42
- 3800 朵
- 4196 个
- 1116 个
- 104560
- 2010-03-19
|
1#
t
T
发表于 2022-05-15 11:41
|
|只看楼主
江中游电脑版按键论坛教学总录:http://bbs.anjian.com/showtopic-697741-1.aspx 江中游安卓手机系统教学总录: http://bbs.anjian.com/showtopic-699643-1.aspx 江中游异次元 未来的夏娃 第10课 adb鼠标操作 鼠标操作有:均为免root操作 点击 滑动 长按 一、鼠标点击操作 adb鼠标操作原型命令为: adbini文件书写建议: 按键代码要求: adb点击大家主要注意xy坐标之间要有空格,否则点击不会成功,按键代码如下: - Dim adb,设备数组,包类数组
- adb = "C:\adb\adb.exe "
- adbs = "C:\adb\adb.exe -s "
- adbcmd = "C:\adb\adb.ini"
- Call 启动服务()
- 设备数组 = 获取设备ID群()
- TracePrint 设备数组(0)
- Call 鼠标点击(设备数组(0), 444,915)
- Function 鼠标点击(设备ID, x, y)'免root,mode为0时代表覆盖,为1时代表追加
- Dim 命令, adbret
- 命令 = Plugin.File.ReadINI("adb", "鼠标点击", adbcmd)'读取保存在ini文件中的命令
- adbret = Plugin.JzyCommand.Command(adbs & 设备ID & 命令 & x & " " & y, 1000)'使用我的插件来获取连接的设备
- TracePrint Plugin.JzyCommand.U8toAn(adbret)
- End Function
- Function 启动服务
- Dim 命令,adbret
- 命令 =Plugin.File.ReadINI("adb", "启动服务", adbcmd)'读取保存在ini文件中的命令
- TracePrint 命令
- adbret = Plugin.JzyCommand.Command(adb & 命令, 1000)'使用我的插件来获取连接的设备
- End Function
- Function 获取设备ID群()
- Dim 获取设备, 转化数组, ii, 命令, adbret
- 命令 = Plugin.File.ReadINI("adb", "获取设备", adbcmd)'读取保存在ini文件中的命令
- adbret = Plugin.JzyCommand.Command(adb & 命令, 1000)'使用我的插件来获取连接的设备
- TracePrint adbret
- 'adbret返回结果如有连接则是:List of devices attached|000002f52fbb092edevice|emulator-5554device|emulator-5556device|11904|,List of devices attached无论是否获取到也是必须出现的字符,但是当adb服务没有启动,这串字符就不会出现了所以我们要用如果来判断一下
- If instr(1, adbret, "List of devices attached") >= 1 Then
- adbret = Replace(adbret, "List of devices attached|", "")'过滤一下注意最后要有一个中隔线
- 转化数组 = split(adbret, "|")'在dos中的每一行我这里使用中隔线"|"代表
- 设备ID = array()'按键的bug,重新定义数组不要加dim
- ReDim 设备ID(UBound(转化数组))'按键的bug,重新定义数组不要加dim
- For i = 0 To UBound(转化数组)
- If Right(转化数组(i), 6) = "device" Then '这一行中如有device字符代表是已经连接的设备
- 设备ID(ii) = Replace(转化数组(i), "device", "")'过滤一下
- ii = ii + 1
- End If
- Next
- Else
- 获取设备ID群=array()
- End If
- 获取设备ID群 = 设备ID
- End Function
复制代码鼠标滑动: 鼠标滑动命令也非常简单,adb原型命令为: adbini文本记录建议: 按键代码建议:本命令看似简单,但参数多,一共有5个,即起点坐标及终点坐标,然后还有一个为延时,此延时为毫秒级 - Dim adb,设备数组,包类数组
- adb = "C:\adb\adb.exe "
- adbs = "C:\adb\adb.exe -s "
- adbcmd = "C:\adb\adb.ini"
- Call 启动服务()
- 设备数组 = 获取设备ID群()
- TracePrint 设备数组(0)
- Call 鼠标拖动(设备数组(0), 312,2359, 312,500,5000)
- Function 鼠标拖动(设备ID, x1, y1, x2, y2, times)'免root,mode为0时代表覆盖,为1时代表追加
- Dim 命令, adbret
- 命令 = Plugin.File.ReadINI("adb", "鼠标拖动", adbcmd)'读取保存在ini文件中的命令
- TracePrint adbs & 设备ID & 命令 & x1 & " " & y1 & " " & x2 & " " & y2 & " " & times
- adbret = Plugin.JzyCommand.Command(adbs & 设备ID & 命令 & x1 & " " & y1 & " " & x2 & " " & y2 & " " & times, 1000)'使用我的插件来获取连接的设备
- TracePrint Plugin.JzyCommand.U8toAn(adbret)
- End Function
- Function 启动服务
- Dim 命令,adbret
- 命令 =Plugin.File.ReadINI("adb", "启动服务", adbcmd)'读取保存在ini文件中的命令
- TracePrint 命令
- adbret = Plugin.JzyCommand.Command(adb & 命令, 1000)'使用我的插件来获取连接的设备
- End Function
- Function 获取设备ID群()
- Dim 获取设备, 转化数组, ii, 命令, adbret
- 命令 = Plugin.File.ReadINI("adb", "获取设备", adbcmd)'读取保存在ini文件中的命令
- adbret = Plugin.JzyCommand.Command(adb & 命令, 1000)'使用我的插件来获取连接的设备
- TracePrint adbret
- 'adbret返回结果如有连接则是:List of devices attached|000002f52fbb092edevice|emulator-5554device|emulator-5556device|11904|,List of devices attached无论是否获取到也是必须出现的字符,但是当adb服务没有启动,这串字符就不会出现了所以我们要用如果来判断一下
- If instr(1, adbret, "List of devices attached") >= 1 Then
- adbret = Replace(adbret, "List of devices attached|", "")'过滤一下注意最后要有一个中隔线
- 转化数组 = split(adbret, "|")'在dos中的每一行我这里使用中隔线"|"代表
- 设备ID = array()'按键的bug,重新定义数组不要加dim
- ReDim 设备ID(UBound(转化数组))'按键的bug,重新定义数组不要加dim
- For i = 0 To UBound(转化数组)
- If Right(转化数组(i), 6) = "device" Then '这一行中如有device字符代表是已经连接的设备
- 设备ID(ii) = Replace(转化数组(i), "device", "")'过滤一下
- ii = ii + 1
- End If
- Next
- Else
- 获取设备ID群=array()
- End If
- 获取设备ID群 = 设备ID
- End Function
复制代码 三、鼠标长按:其实,鼠标长按就是鼠标拖动的命令,为什么呢?拖动是针对两个点操作的,但如果把这两个点坐标都改成为一个点就是针对一个点的坐标操作了,然后我们把后面的延时加大,比如3000毫秒,即可实现鼠标长按的效果了,,当然你可以把拖动的函数改成长按即可,我给大家修改如下 :- Call 鼠标长按(设备数组(0), 312, 1359, 5000)
- Function 鼠标长按(设备ID, x, y, times)'免root
- Dim 命令, adbret
- 命令 = Plugin.File.ReadINI("adb", "鼠标拖动", adbcmd)'读取保存在ini文件中的命令
- TracePrint adbs & 设备ID & 命令 & x1 & " " & y1 & " " & x2 & " " & y2 & " " & times
- adbret = Plugin.JzyCommand.Command(adbs & 设备ID & 命令 & x & " " & y & " " & x & " " & y & " " & times, 1000)'使用我的插件来获取连接的设备
- TracePrint Plugin.JzyCommand.U8toAn(adbret)
- End Function
复制代码 ADB下载: - adb.rar (, 下载次数:220)
、
|