鲁达 大家好，我是公众号3分钟学堂的郭立员，今天继续我们安卓按键的学习。
这一期我们来学一下如何用按键实现图片旋转和图片缩小，这两个功能可能在对接打码平台时会用到。
讲这个之前需要强调一点，以下代码都是在安卓a版本使用。
按键精灵手机助手上面的命令是：
如果你的版本比较低，可能没有这些功能，自行升级版本。
这个Image 图像命令组涉及到一个知识点，以前没有用到过。
知识点：【图像数据】
那么什么是图像数据，它的格式是什么样的呢？
我们用一个命令演示一下：
我们先来“获取指定屏幕范围内图像数据 ”，这个命令有4个参数，查找区域的4个坐标值，和我们截图命令、找图命令的坐标范围是完全一样的。那么这个命令的重点是什么呢？它的返回值，以键值表形式返回所有颜色数据。
对于一个陌生的键值表，我们怎么知道它的格式呢？我来教大家一个方法：
“把键值表转成json”，然后用traceprint调试输出json。
下面看一下这个命令返回值的键值表格式：
Dim PixelData = Image.GetScreenData(0,0,5,5) Dim json=encode.TableToJson(PixelData) TracePrint json返回值：
当前脚本第3行：[[[225,131,59],[225,131,59],[225,131,59],[225,131,59],[225,131,59],[225,131,59]],[[225,131,59],[225,131,59],[225,131,59],[225,131,59],[225,131,59],[225,131,59]],[[225,131,59],[225,131,59],[225,131,59],[225,131,59],[225,131,59],[225,131,59]],[[225,131,59],[225,131,59],[225,131,59],[225,131,59],[225,131,59],[225,131,59]],[[225,131,59],[225,131,59],[225,131,59],[225,131,59],[225,131,59],[225,131,59]],[[225,131,59],[225,131,59],[225,131,59],[225,131,59],[225,131,59],[225,131,59]]]把返回值用在线格式化工具处理一下：
[ [ [225, 131, 59], [225, 131, 59], [225, 131, 59], [225, 131, 59], [225, 131, 59], [225, 131, 59] ], [ [225, 131, 59], [225, 131, 59], [225, 131, 59], [225, 131, 59], [225, 131, 59], [225, 131, 59] ], [ [225, 131, 59], [225, 131, 59], [225, 131, 59], [225, 131, 59], [225, 131, 59], [225, 131, 59] ], [ [225, 131, 59], [225, 131, 59], [225, 131, 59], [225, 131, 59], [225, 131, 59], [225, 131, 59] ], [ [225, 131, 59], [225, 131, 59], [225, 131, 59], [225, 131, 59], [225, 131, 59], [225, 131, 59] ], [ [225, 131, 59], [225, 131, 59], [225, 131, 59], [225, 131, 59], [225, 131, 59], [225, 131, 59] ] ]通过处理完的格式，可以看出返回值是三维数组。
数组的最大下标：三维数组(5,5,2)
搞清楚了这个以后，我们就开始今天的主题了。
（一）图片旋转（顺时针90度）。
Dim Path1 = "/sdcard/picture; Dim Path2 = "/sdcard/picture; Dim PixelData = Image.SetRotation(Path1, 90) Image.SavePixelData(PixelData, Path2)图片旋转的逻辑是这样的：
①读取图片数据
②顺时针旋转90度对应的数据替换
③把图像数据生成图片
（二）图片的缩小
有时候由于手机的分辨率很大，截图得到的图片超过了打码平台要求的图片尺寸大小，导致无法上传。
下面我们说一下缩小图片的思路：假设我们缩小n倍。
①获取原图的图像数据
②每隔n个位置从图像数据中提取一个数据，组成新的图像数据，得到数据是原来的n分之一。
③把新的图像数据生成图片
代码如下：
Dim Path = "/sdcard/picture; Dim NewPath = "/sdcard/picture; dim PicSize = Image.Size(Path) Dim x=PicSize[1] Dim y=PicSize[2] Dim n=5 //缩放倍数 Dim PixelData =Image.GetPicData(Path) Dim NewPixelData= Image.GetScreenData(1,1,int(x/n),int(y/n)) For j = 1 To int(x/n) For i = 1 To int(y/n) For k = 1 To 3 NewPixelData[j][i][k]=PixelData[j*5][i*5][k] Next Next Next Image.SavePixelData NewPixelData, NewPath效果展示：
代码里面有个缩放倍数变量，你可以直接修改成你需要的倍数，原本想把截图缩放也写一下，后来想想，那不就是先截图保存下来，然后在把图片缩放吗，原理都一样，就没必要写了。