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

软件版本：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

快捷导航

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

登录 注册
返回列表
发新话题 回复该主题
查看: 3704|回复: 3

电脑版按键精灵如何实现区域多点找色的函数化 [复制链接]

872349669
头像

Vip猫灬猫

  • 初中二年级
  • 1474323
  • 272
  • 0
  • 145 朵
  • 199 个
  • 163 个
  • 60
  • 2012-12-08
图灵勋章黄金之翼按键精灵开发者1级
1#
t T
发表于 2021-11-12 21:07 | |只看楼主
支持按键精灵重回巅峰,人多才热闹,分享早一段时间在研究的代码,实现区域多点找色函数化,方便需要找多图的伙伴使用.


代码如下:
  1. Dim 物品(2)
  2. 物品(0)= Array("7ABCE0","1|0|71AFCD,2|0|34535F,5|0|394F4D,6|0|455F5C,14|0|375966")//区域多点找色的特征码
  3. 物品(1)= Array("7ABCE0","1|0|71AFCD,2|0|34535F,5|0|394F4D,6|0|455F5C,14|0|375966")
  4. 物品(2)= Array("7ABCE0","1|0|71AFCD,2|0|34535F,5|0|394F4D,6|0|455F5C,14|0|375966")
  5. For i = 0 To UBound(物品)
  6. Do
  7. XY = Plugin.Color.FindMultiColor(345,358,660,530,物品(i)(0),物品(i)(1), 1)
  8. ZB = InStr(XY,"|")
  9. X = Clng(Left(XY, ZB - 1)) : Y = Clng(Right(XY, Len(XY) - ZB))
  10. If X > 0 and Y > 0 Then
  11. MoveTo X,Y
  12. RightClick 2
  13. Delay 100
  14. KeyPress "Enter", 1
  15. Else
  16. Delay 100
  17. Exit Do
  18. End If
  19. Delay 100
  20. Loop
  21. Next
复制代码

点评

果壳王子  阔以.  发表于 2021/11/15 12:10:14

点赞
喜欢学习
回顶部
872349669
头像

Vip猫灬猫

  • 初中二年级
  • 1474323
  • 272
  • 0
  • 145 朵
  • 199 个
  • 163 个
  • 60
  • 2012-12-08
图灵勋章黄金之翼按键精灵开发者1级
2#
t T
发表于 2021-11-15 17:16 | |只看楼主

感谢：果壳王子大大的点评，我会继续学习下去 早日成为大大这样的存在

喜欢学习
回顶部
toto_71
头像

toto_71

  • 小学一年级
  • 8691731
  • 5
  • 0
  • 23 朵
  • 14 个
  • 9 个
  • 0
  • 2022-04-08
3#
t T
发表于 2022-04-11 20:36 | |只看该用户

看了半天 才发现是电脑版..

回顶部
872349669
头像

Vip猫灬猫

  • 初中二年级
  • 1474323
  • 272
  • 0
  • 145 朵
  • 199 个
  • 163 个
  • 60
  • 2012-12-08
图灵勋章黄金之翼按键精灵开发者1级
4#
t T
发表于 2022-04-11 22:18 | |只看楼主

,

手机有其他的插件 这个是我刚回来接触按键想的

喜欢学习
回顶部
上一主题| 下一主题
返回列表
发新话题 回复该主题
高级编辑器高级编辑器