大家好，我是公众号3分钟学堂的郭立员，今天继续我们安卓按键的学习。

这一期我们来学一下如何用按键实现图片旋转和图片缩小，这两个功能可能在对接打码平台时会用到。

讲这个之前需要强调一点，以下代码都是在安卓app3.3.8版本使用。

按键精灵手机助手上面的命令是：

如果你的版本比较低，可能没有这些功能，自行升级版本。

这个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/pictures/1.jpg"
Dim Path2 = "/sdcard/pictures/2.jpg"
Dim PixelData = Image.SetRotation(Path1, 90)  
Image.SavePixelData(PixelData, Path2)

图片旋转的逻辑是这样的：

①读取图片数据

②顺时针旋转90度对应的数据替换

③把图像数据生成图片

（二）图片的缩小

有时候由于手机的分辨率很大，截图得到的图片超过了打码平台要求的图片尺寸大小，导致无法上传。

下面我们说一下缩小图片的思路：假设我们缩小n倍。

①获取原图的图像数据

②每隔n个位置从图像数据中提取一个数据，组成新的图像数据，得到数据是原来的n分之一。

③把新的图像数据生成图片

代码如下：

Dim Path = "/sdcard/pictures/f.jpg"
Dim NewPath = "/sdcard/pictures/f1.jpg"
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

效果展示：

代码里面有个缩放倍数变量，你可以直接修改成你需要的倍数，原本想把截图缩放也写一下，后来想想，那不就是先截图保存下来，然后在把图片缩放吗，原理都一样，就没必要写了。