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

872349669 · 发表于 2021-10-6 17:27:00

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

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

×

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

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',

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

灵猫 · 发表于 2021-10-7 11:07:10

物品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 20:37:26

灵猫发表于 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

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

搞装修的 · 发表于 2021-10-10 21:48:37

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

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

872349669 · 发表于 2021-10-12 18:13:01

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

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

		自动登录	找回密码
密码			立即注册


奖 10 猫粮	回复本帖可获得 1 猫粮奖励! 每人限 1 次(中奖概率 50%)

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

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