FindColor 区域找色

区域找色(不支持win2000以下系统)

参数1 整数型，窗口句柄
参数2 整数型，窗口左上角X坐标
参数3 整数型，窗口左上角Y坐标
参数4 整数型，窗口右下角X坐标
参数5 整数型，窗口右下角Y坐标
参数6 字符串型，16进制颜色值

字符串型，颜色位置坐标

//下面这句按从左到右，从上到下的顺序查找窗口句柄(变量：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 

//下面这句按从左到右，从上到下的顺序查找窗口句柄(变量：Hwnd)窗口的指定矩形区域内指定颜色
Plugin XY = Bkgnd.FindColor(Hwnd, 0, 0, 20, 20, "FFFFFF")
//下面这句用于分割字符串,将横坐标和纵坐标分成两个字符串
MyArray = Split(XY, "|")
//下面这句将字符串转换成数值
X = Clng(MyArray(0)): Y = Clng(MyArray(1)) Msgbox "后台窗口颜色X坐标="& X & " Y坐标=" & Y