• 按键公众号 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:2021-12-03

按键精灵安卓版
立即下载

软件版本:3.7.2
软件大小:46.2M
更新时间:2023-05-10

按键精灵iOS版
立即下载

软件版本:1.8.0
软件大小:29.2M
更新时间:2023-03-21

按键手机助手
立即下载

软件版本:3.8.0
软件大小:262M
更新时间:2023-05-30

快捷导航

登录 后使用快捷导航
没有帐号? 注册

返回列表 «4567891011» / 121
发新话题 回复该主题

[技术交流] 【院刊】-【201507期】安卓实战——让脚本适应多种分辨率 [复制链接]

141#

回复看看。。。。。。。。。。。。。。

142#

板凳

143#

学习

144#

学习了 谢谢

145#

;kjllllllllllllllllllllllllll

146#

Function 对战积分
Call 点击(切换模式)
Delay 500
Call 点击(经典模式)
Do
If 找多点(对战, 1) Then
TracePrint "K对战"
ElseIf 找多点(世界对战, 1) Then
TracePrint "点击世界对战"
ElseIf 找多点(入场, 1) Then
TracePrint "点击入场"
Delay 1000
Call 点击(开始游戏)
ElseIf 找多点(进入游戏, 0) Then
TracePrint "进入游戏"
call 游戏()
ElseIf 找多点(爱心不足, 1) Then
TracePrint "爱心不足,脚本停止"
ShowMessage "爱心不足,脚本停止"
EndScript
ElseIf 找多点(返回, 1) Then
TracePrint "点击返回"
ElseIf 找多点(确认, 1) Then
TracePrint "点击确定"
End If
Delay 300
Loop
End Function

Function 游戏
Do
If 找多点(再来一局, 1) = True Then
TracePrint "再来一局"
ElseIf 找多点(返回, 1) = True Then
TracePrint "返回"
Exit do
Else
点击 跳跃
Delay 300
点击 跳跃
End If
Delay 100
Loop
End Function

Function 点击(数组)
Dim arr
arr = 数组
Tap arr(0),arr(1)
End Function

Function 找多点(数组,模式)
找多点 = False
Dim arr,intX,intY
arr = 数组
FindMultiColor arr(0), arr(1), arr(2), arr(3), arr(4), arr(5), 0, 0.9, intX, intY
If intX > -1 Then
找多点 = True
If 模式 = 1 Then
Tap intX, intY
End If
End If
End FunctionFunction 对战积分
Call 点击(切换模式)
Delay 500
Call 点击(经典模式)
Do
If 找多点(对战, 1) Then
TracePrint "K对战"
ElseIf 找多点(世界对战, 1) Then
TracePrint "点击世界对战"
ElseIf 找多点(入场, 1) Then
TracePrint "点击入场"
Delay 1000
Call 点击(开始游戏)
ElseIf 找多点(进入游戏, 0) Then
TracePrint "进入游戏"
call 游戏()
ElseIf 找多点(爱心不足, 1) Then
TracePrint "爱心不足,脚本停止"
ShowMessage "爱心不足,脚本停止"
EndScript
ElseIf 找多点(返回, 1) Then
TracePrint "点击返回"
ElseIf 找多点(确认, 1) Then
TracePrint "点击确定"
End If
Delay 300
Loop
End Function

Function 游戏
Do
If 找多点(再来一局, 1) = True Then
TracePrint "再来一局"
ElseIf 找多点(返回, 1) = True Then
TracePrint "返回"
Exit do
Else
点击 跳跃
Delay 300
点击 跳跃
End If
Delay 100
Loop
End Function

Function 点击(数组)
Dim arr
arr = 数组
Tap arr(0),arr(1)
End Function

Function 找多点(数组,模式)
找多点 = False
Dim arr,intX,intY
arr = 数组
FindMultiColor arr(0), arr(1), arr(2), arr(3), arr(4), arr(5), 0, 0.9, intX, intY
If intX > -1 Then
找多点 = True
If 模式 = 1 Then
Tap intX, intY
End If
End If
End Function

147#

asddddddddddddddddddd

148#

akljalak

149#

学习

150#

感谢。学习一下

151#

看上去很不错的样子

152#

好好学习,天天向上

153#

加油

154#

SetScreenScale

155#

142124141241241241

156#

是大法官水电费功夫大使馆

157#

支持下!!

158#


159#

布局图

160#

对脚本进行多分辨率适配是有一定的前提条件的,并且有一些需要注意的地方。
1、这里介绍的两种适配的方法前提是,脚本中不能使用找图的方式。可以使用 多点找色、多点比色、范围找色、指定点找色之类的命令
2、在取坐标和颜色点的时候需要注意:取点的时候尽量取周围有相同或者相近颜色的点,尽量不要取边缘化的点。
因为在在分辨率转换的时候有可能会出现一些像素点的偏移,如果取的点的周围颜色差异大,那就会出现识别不到的情况

发新话题 回复该主题