[按键精灵安卓版] 用找图来实现多分辨率适配的技巧-【201510期】 [复制链接]

回复，下载看看

这个可以学习看看啦~

小白路过

3123124141

我要快快快的啊

谢谢楼主分享？？

。。。。。

不错，不知道有什么好的解决方案

学习学习

再看一次

学学这个学学那个忙的不得了

谢谢分享!

好东西啊

感谢分享

Dim 当前分辨率,x,y,开发分辨率
x = GetScreenX()
y = GetScreenY()
当前分辨率 = x & y

Dim 特征1,特征2,特征3

Call 屏幕缩放()
Call 主数据()
Call 兼容数据() '把无法兼容的新的图色数据进行覆盖

TracePrint 多点找色(特征1, 0)
TracePrint 多点找色(特征1, 480800) '能够兼容480*854以及480*800两种分辨率图色数据
TracePrint 多点找色(特征2, 0)
TracePrint 多点找色(特征3, 0)

Function 主数据
特征1 = Array(349, 241, 450, 337, "FAFAFA", "17|-11|201C1C,-7|-48|201C1C,-17|-15|1733EC,-20|-5|1430E9")
特征2 = Array(149, 231, 235, 321, "CBB41E", "-33|-43|E4DEA3,1|-44|E0E06B,-30|7|B9A971,-56|12|AE690A")
特征3 = Array(343, 525, 458, 625, "0DD100", "-15|40|FFFFFF,-33|55|0CBB00,-40|22|FFFFFF,-105|12|00C3FF")
End Function

Function 兼容数据
If 当前分辨率 = 480800 Then '分辨率480*800 下的数据
特征1 = Array(249,239,342,323,"05B802","-20|17|FFFFFF,-48|25|D69C00,-19|41|272BDD,-33|-7|00D0EA")
End If
End Function

Function 屏幕缩放
Dim scrX,scrY
'这里设置成开发的分辨率
scrX = 480
scrY = 854
SetScreenScale scrX, scrY
开发分辨率 = scrX & scrY
End Function

Function 多点找色(颜色特征, 兼容分辨率)
'当当前的分辨率和兼容分辨率参数一致时，就取消缩放，直接用兼容分辨率下的特征来进行找色
If InStr(1, 兼容分辨率, 当前分辨率) > 0 and 当前分辩率 <> 开发分辩率 Then
ResetScreenScale
End If
FindMultiColor 颜色特征(0), 颜色特征(1), 颜色特征(2), 颜色特征(3), 颜色特征(4), 颜色特征(5), 2, 0.9, intX, intY
If intX > -1 Then
多点找色 = True
Else
多点找色 = False
End If
'找色完成后重新缩放屏幕
If InStr(1, 兼容分辨率, 当前分辨率) > 0 and 当前分辩率 <> 开发分辩率 Then
Call 屏幕缩放()
End If
End Function

支持楼主

rdddddddddddd

看看如何可以做到！！！！！