求助各位师兄弟!电脑版的按键精灵如何实现多点找色子程....

872349669

师兄弟大家好 紫猫老师好 在此想求助一下,电脑版按键精灵如何实现区域多点找色的函数化正常的多点找色如下面:

XY=Plugin.Color.FindMultiColor(0,0,1024,768,"7ABCE0","1|0|71AFCD,2|0|34535F,5|0|394F4D,6|0|455F5C,14|0|375966",1)
ZB = InStr(XY,"|")
X = Clng(Left(XY, ZB - 1)): Y = Clng(Right(XY, Len(XY) - ZB))



我把代码修改为:
物品1= Array("7ABCE0","1|0|71AFCD,2|0|34535F,5|0|394F4D,6|0|455F5C,14|0|375966")

call 多点找色(物品1)

Function 多点找色(特征码)
XY=Plugin.Color.FindMultiColor(0, 0, 1024, 768,特征码,1)
ZB = InStr(XY,"|")
X = Clng(Left(XY, ZB - 1)): Y = Clng(Right(XY, Len(XY) - ZB))
End Function


执行起来就提示错误:
脚本 测试10.6.Q ，第10行：类型不匹配: 'COLOR.FINDMULTICOLOR',
脚本 测试10.6.Q ，第12行：无效的过程调用或参数: 'LEFT',
脚本 测试10.6.Q ，第12行：类型不匹配: 'CLNG',

因为电脑版本的多点找色函数封装找不到思路和教程 特意论坛请教一下,希望老师和各位师兄弟们能指教一二,谢谢

灵猫

物品1= Array("7ABCE0","1|0|71AFCD,2|0|34535F,5|0|394F4D,6|0|455F5C,14|0|375966")

call 多点找色(物品1)

Function 多点找色(特征码)
XY=Plugin.Color.FindMultiColor(0, 0, 1024, 768,特征码(0),特征码(1),1)
ZB = InStr(XY,"|")
X = Clng(Left(XY, ZB - 1)): Y = Clng(Right(XY, Len(XY) - ZB))
End Function

872349669

灵猫 发表于 2021-10-7 11:07
物品1= Array("7ABCE0","1|0|71AFCD,2|0|34535F,5|0|394F4D,6|0|455F5C,14|0|375966")

call 多点找色(物品 ...

非常感谢,我昨晚也解决了
代码都是差不多的
Dim 物品(2)
物品(0)= Array("7ABCE0","1|0|71AFCD,2|0|34535F,5|0|394F4D,6|0|455F5C,14|0|375966")
物品(1)= Array("7ABCE0","1|0|71AFCD,2|0|34535F,5|0|394F4D,6|0|455F5C,14|0|375966")
物品(2)= Array("7ABCE0","1|0|71AFCD,2|0|34535F,5|0|394F4D,6|0|455F5C,14|0|375966")
    For i = 0 To UBound(物品)
        Do
            XY = Plugin.Color.FindMultiColor(345,358,660,530,物品(i)(0),物品(i)(1), 1)
            ZB = InStr(XY,"|")
            X = Clng(Left(XY, ZB - 1)) : Y = Clng(Right(XY, Len(XY) - ZB))
            If X > 0 and Y > 0 Then
                MoveTo X,Y
                RightClick 2
                    Delay 100
                    KeyPress "Enter", 1
            Else
                    Delay 100
                Exit Do
            End If
            Delay 100
        Loop
    Next

不过还是非常感谢的 这个代码我想想停停思考了一个星期♪(^∇^*)就是想漏了另外一个参数

搞装修的

872349669 发表于 2021-10-7 20:37
非常感谢,我昨晚也解决了
代码都是差不多的
Dim 物品(2)

很好，你这种写法启发了我，。也解决了我一直想的问题。

872349669

搞装修的 发表于 2021-10-10 21:48
很好，你这种写法启发了我，。也解决了我一直想的问题。

一起学习,一起进步♪(^∇^*)