江中游电脑版按键论坛教学总录：http://bbs.anjian.com/showtopic-697741-1.aspx
江中游安卓手机系统教学总录： http://bbs.anjian.com/showtopic-699643-1.aspx
江中游异次元
未来的夏娃
第9课 adb文件读写
本课命令有：
上传文件 免root
写出文件 免root
读取文件 免root
一、上传文件
在截屏时我们学了文件下载，而文件上传也是使用pull命令：
adbini文件写入建议是：
按键的代码也很简单，通常我也加了注释，具体代码如下 ：
- Call 上传文件(设备数组(0), "d:\账号密码.txt", "/sdcard/账号密码.txt")
- Function 上传文件(设备ID, 本地路径, 安卓路径)'免root
- Dim 命令, adbret,追加
- 命令 = Plugin.File.ReadINI("adb", "上传文件", adbcmd)'读取保存在ini文件中的命令
- //说明一下，如果写入有换行的，在安卓系统换行为/n这里我就不多加判断了
- TracePrint adbs & 设备ID & 命令 &本地路径 & 安卓路径
- adbret = Plugin.JzyCommand.Command(adbs & 设备ID & 命令 &本地路径 &" "& 安卓路径, 1000)'使用我的插件来获取连接的设备
- TracePrint adbret
- End Function
二、写出文件
写出文件指的是写文本内容到文本文件，即记事本：
此命令使用后如果路径中没有文本则会自动创建这个文本
此命令如“>”为覆盖，">>"为追加
具体代码如下：
- Call 写出文件(设备数组(0), " 找打？", "/sdcard/jzy.txt", 0)
- Function 写出文件(设备ID, 内容, 路径, mode)'免root，mode为0时代表覆盖，为1时代表追加
- Dim 命令, adbret,追加
- 命令 = Plugin.File.ReadINI("adb", "写出文件", adbcmd)'读取保存在ini文件中的命令
- TracePrint adbs & 设备ID & 命令 & 内容 & 路径
- If mode = 0 Then
- 追加 = " > "
- ElseIf mode = 1 Then
- 追加 = " >> "
- End If
- adbret = Plugin.JzyCommand.Command(adbs & 设备ID & 命令, 内容, 追加, 路径, 1000)'使用我的插件来获取连接的设备
- TracePrint Plugin.JzyCommand.U8toAn(adbret)
- End Function
三、文件读取：
adb并没有文件读取的命令，所以大家要综合学过的命令，即下载文件到本地磁盘及按键自带的读取文件命令即可
比如使用我们上面的第一个命令上传的账号密码来做测试，这里大家一定要注意，从安卓系统下载的文件，必须先要在本地磁盘创建一个放置的目录，但不支持根目录
- Call 下载文件(设备ID,"/sdcard/zhmm.txt","d:/jzy/账号密码.txt")'空格
- Function 下载文件(设备ID,安卓路径,本地路径)
- Dim 命令, adbret
- 命令 = Plugin.File.ReadINI("adb", "文件到电脑", adbcmd)'读取保存在ini文件中的命令
- TracePrint adbs & 设备ID & 命令 & 安卓路径 & " " & 本地路径
- adbret = Plugin.JzyCommand.Command(adbs & 设备ID & 命令 & 安卓路径 & " " & 本地路径, 1000)'使用我的插件来获取连接的设备
- If instr(1, adbret, "/s") > 0 Then '从安卓下载文件特征是有/s
- If Plugin.File.IsFileExist(本地路径) Then '判断文件是否存在
- Text = Plugin.File.ReadFileEx(本地路径)'读取这个记事本
- TracePrint text
- End If
- End If
- TracePrint adbret'返回字符中带有MB/s即代表成功，这是传输文件的速度
- End Function
ADB下载
- adb.rar (, 下载次数:200)
闽公网安备 35010002000112号