用户名  找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 7720|回复: 6

[教程源码] 新同学福利,一个函数封装图色!仅供参考哦

[复制链接]

6

主题

13

回帖

30

积分

按键电脑&手机班学员

鲜花
0
猫粮
220
QQ
发表于 2018-9-3 11:35:21 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?立即注册

×
[按键精灵] 纯文本查看 复制代码
01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
//____给不熟悉封装的学弟一个我自己早期用的函数,为了方便理解我做了精简,去掉了是否点击一类的功能,抛砖引玉
//____有兴趣的小伙伴可以拿去自己编辑,实现自己所需要的功能,如果有错误,欢迎指正!
 
 
Dim intX,intY
Dim 测试找按键精灵 = {"按键精灵" ,3 , 255, 165, 434, 371, "按键精灵","000000",0,0.9}// 数组第二个元素的值是3  代表找图
 
If isExist(测试找按键精灵) Then
End If
 
Function isExist(tb)
    Dim Sret = False
    Select Case tb[2]                //tb[2]这个值非常重要,它相当于一个开关,0 代表找色,1 代表比色,2 代表多点找色,3 代表找图
    Case 0
        FindColor tb[3], tb[4], tb[5], tb[6], tb[7], tb[8], tb[9], intX, intY
        If intX > -1 And intY > -1 Then
            TracePrint "找色识别 : " & tb[1] & "--坐标 : " & intX & "--" & intY
            Sret = True
        End If
    Case 1
        If CmpColorEx(tb[3], tb[4]) = 1 Then
            TracePrint "比色识别 : " & tb[1]
            Sret = True
        End If
    Case 2
        FindMultiColor tb[3], tb[4], tb[5], tb[6], tb[7], tb[8], tb[9], tb[10], intX, intY
        If intX > -1 And intY > -1 Then
            TracePrint "多点找色 : " & tb[1] & "--坐标 : " & intX & "--" & intY
            Sret = True
        End If
    Case 3
        FindPic tb[3], tb[4], tb[5], tb[6], "Attachment:" & tb[1] & ".png", tb[7], tb[8], tb[9], intX, intY
        If intX > -1 And intY > -1 Then
            TracePrint "找图识别 : " & tb[1] & "--坐标 : " & intX & "--" & intY 
            Sret = True
        End If
    End Select
    isExist = Sret
End Function

调试例子

调试例子
楼主热帖
  • 打卡等级:武林至尊

1087

主题

2145

回帖

4339

积分

院长

鲜花
9
猫粮
7598
QQ
发表于 2018-9-3 14:33:21 | 显示全部楼层
不错, 不过建议排版优化下, 参考下面这个
[美化帖子] 发帖必备技巧之一、代码高亮功能
https://zimaoxy.com/b/t-98-1-1.html
(出处: 紫猫学院社区)
  • 打卡等级:无名新人

1

主题

19

回帖

21

积分

按键电脑&手机班学员

鲜花
0
猫粮
55
发表于 2018-9-19 17:06:54 | 显示全部楼层
感谢大大无私奉献

0

主题

13

回帖

13

积分

学前班

鲜花
0
猫粮
376
发表于 2018-9-22 12:44:11 | 显示全部楼层
谢谢分享 拿走~

0

主题

1

回帖

1

积分

学前班

鲜花
0
猫粮
0
发表于 2018-9-26 00:16:31 | 显示全部楼层
谢谢分享 拿走~
  • 打卡等级:江湖新秀

0

主题

110

回帖

110

积分

小学生

鲜花
0
猫粮
744
发表于 2020-12-8 21:00:25 | 显示全部楼层
        很给力!
  • 打卡等级:江湖新秀

0

主题

110

回帖

110

积分

小学生

鲜花
0
猫粮
744
发表于 2020-12-18 18:59:34 | 显示全部楼层
♪(^∇^*)♪(^∇^*)♪(^∇^*)♪(^∇^*)♪(^∇^*)♪(^∇^*)♪(^∇^*)
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|小黑屋|紫猫编程学园

GMT+8, 2025-1-12 02:35

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

快速回复 返回顶部 返回列表