Question

按键精灵后台找色

窗口h里按下一个按键，然后在区域内模糊找色，如果找到的两个颜色X坐标相同，则松开按键。现在问题就是按键不松开，不知道代码哪里出问题了，谢谢大佬debug
call Plugin.Bkgnd.KeyDown(h,96)
Do While q = 0
ab = Plugin.Bkgnd.FindColorEX(h, 843, 570, 1133, 716, "5079BD", 0, 0.7)
iZB = InStr(ab, "|")
a = CLng(Left(ab, iZB - 1))

cd = Plugin.Bkgnd.FindColorEX(h, 843, 570, 1133, 716, "8E8DD9", 0, 0.7)
iZB = InStr(cd, "|")
c = CLng(Left(cd, iZB - 1))

If a = c and a>0 Then
q=1
End If
Loop
Call Plugin.Bkgnd.KeyUp(h, 96)

Answer 1

//下面这句按从左到右，从上到下的顺序查找窗口句柄(变量：Hwnd)窗口的指定矩形区域内指定颜色 XY = Plugin.Bkgnd.FindColor(Hwnd, 0, 0, 20, 20, "FFFFFF") //下面这句用于分割字符串,将横坐标和纵坐标分成两个字符串 dim MyArray MyArray = Split(XY, "|") //下面这句将字符串转换成数值 X = Clng(MyArray(0)): Y = Clng(MyArray(1)) Msgbox "后台窗口颜色X坐标="& X & " Y坐标=" & Y 后台找色还是很方便的，如未找到颜色，X，Y为0，这就可以用if x>0 then 来判断是否找到指定颜色了。如果是多区域多点的话，在then 后面加一句 i1 = 1 Else i1 =0 End If 这样就可以用多个找色语句分别对各区域进行找色了。