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

软件版本:2014.05
软件大小:21.6M
更新时间:07-04

按键精灵安卓版
立即下载

软件版本:3.3.0
软件大小:62.5M
更新时间:5-24

按键精灵iOS版
立即下载

软件版本:1.3.3
软件大小:29.2M
更新时间:06-14

按键精灵Mac版
立即下载

软件版本:1.1.0
软件大小:12.3M
更新时间:12-29

快捷导航

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

登录 注册
返回列表 12345678» / 24
发新话题 回复该主题

【处女作】后台多点找色函数,不愿意用插件的可以用这个 [复制链接]

1#
本帖最后由 ycxgkl 于 2012-11-18 15:51 编辑

本人不喜欢用插件,又没有水平自己写插件,苦恼了很久自学了函数写了一个后台多点找色的函数,写好后自觉很有成就感,(大家不要笑我)想跟大家分享一下本人的喜悦。
写的不好,请大家多多指点,
本函数只能范围找色,不能全屏找色,支持多色,
第一次发帖,不想沉得太快而受打击,设了隐藏,请大家多多体谅
补充:第一次发帖,只能小范围找色,就是要找到的第一个色一定要是你小范围里要找的色的左上第一个点,不知道这样说大家能不能理解。
下面是源码
//请在下面写上您的子程序或函数
//写完保存后,在任一命令库上点击右键并选择“刷新”即可
Function 后台多点找色(窗口句柄, 左上X, 左上Y, 右下X, 右下Y, 颜色字符串, 偏移点阵特征串, 向下移)
Dim 特征串数组, 特征串个数, MyArray, iiiii, 偏移点, 找到点的数量, aaaaa, 返回X坐标, 返回Y坐标, bbbbb
特征串数组 = Split(偏移点阵特征串, ",")
特征串个数 = ubound(特征串数组)
bbbbb = 0
Do
XY = Plugin.Bkgnd.FindColor(窗口句柄, 左上X, 左上Y, 右下X, 右下Y, 颜色字符串)
MyArray = Split(XY, "|")
X = Clng(MyArray(0)): Y = Clng(MyArray(1))
If X > 0 and Y > 0 Then
找到点的数量=0
For iiiii = 0 To 特征串个数 - 1
偏移点 = Split(特征串数组(iiiii), "|")
GetColor = Plugin.Bkgnd.GetPixelColor(窗口句柄, X + Clng(偏移点(0)), Y + Clng(偏移点(1)))
If GetColor = 偏移点(2) Then
aaaaa = 1
Else
左上Y = 左上Y + 向下移
Exit For
End If
找到点的数量 = 找到点的数量 + aaaaa
Delay 20
Next
End If
If Clng(找到点的数量) = 特征串个数 Then
返回X坐标 = X : 返回Y坐标 = Y
Exit Do
ElseIf 左上Y > 右下Y Then
返回X坐标 = - 1 : 返回Y坐标 = - 1
Exit Do
ElseIf bbbbb >= 10 Then
返回X坐标 = - 1 : 返回Y坐标 = - 1
Exit Do
End If
Delay 20
bbbbb = bbbbb + 1
Loop
后台多点找色=返回X坐标&"|"&返回Y坐标
End Function

    已有16评分我要评分查看所有评分

    本主题由 版主 深度映像 于 2017/12/14 10:54:35 执行 审核主题 操作
    QQ530720089
    2#

    我是来学习学习的...哈哈

    3#

    吃苦头

    4#

    11111111111111111111111111

    5#

    dddddd

    6#

    菜鸟表示 感谢分享 !!!!!!!!!

    7#

    Your support is the greatest impetus for us.If the problem still exists, would you mind taking a picture of the Print Test Page and the Nozzle Test Page?

    8#

    卡卡卡卡卡卡卡卡了

    9#

    3333333QQQQQQQ..................

    10#


    下面我们一条一条的来分析代码:

    11#

    法恩莎的非官方

    12#

    学习学习下

    13#

    虽然有点迟,但是毕竟没旷课啊

    14#

    fdfdsfsdfdf

    15#

    后台多点找色函数,不愿意用插件的可以用这

    16#

    学习,留着备用

    17#

    11111111111111111111111111

    18#

    正需要,学习

    19#

    尔特让他

    20#


    发新话题 回复该主题