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

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

按键精灵安卓版
立即下载

软件版本:3.5.3
软件大小:46.2M
更新时间:03-02

按键精灵iOS版
立即下载

软件版本:1.7.3
软件大小:29.2M
更新时间:12-06

最新企业版UiBot
立即下载

软件版本:3.3
软件大小:282M
更新时间:08-06

快捷导航

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

发新话题 回复该主题

[讨论] 循环找色 调色没报错,赐教 [复制链接]

1#
Dim 人物,战斗,关闭
人物 = "674|1108|545158,636|1110|898896,588|1109|5D5C66,703|1136|1B1C1C,686|1276|211F1D,443|915|01016A"
战斗 = "401|1155|C3C3C3,372|1156|A0B1B8,386|1171|6B6969,365|1173|7AB3CB,368|1187|74919D,443|915|01016A"
关闭 = "476|900|1E1EBC,464|903|1A728D,450|898|4D4DAC,456|910|1B7699,471|918|01019B,443|915|01016A"
sub 主函数

Do

If 通用检测(人物) Then 发现人物

If 通用检测(战斗) Then 开始战斗

If 通用检测(关闭) Then 关闭世界

Delay 1000

Loop
End Sub
Function 通用检测(对象)

If CmpColorEx(对象, 0.9) = 1 Then

通用检测=true

End If
End Function
Sub 发现人物
Dim intX,intY
FindColor 1077,1,1279,180,"00FFFF",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
tap 279,1001
End If
End Sub
Sub 开始战斗
tap 385,1169
End Sub

Sub 关闭世界
tap 284,705
End Sub
主函数

2#

那个大神帮我改改

3#

那个老师 大神帮我弄弄

发新话题 回复该主题