GetPixelColor 得到指定点颜色
得到指定位置的点的颜色
参数1 整数型，屏幕X坐标
参数2 整数型，屏幕Y坐标
字符串型，得到的颜色16进制值
 

GetCursorPos x,y
cr1=GetPixelColor(x,y)
MessageBox cr1 
//得到当前点的颜色，并弹出对话框显示出来
 

VBSCall GetCursorPos(x,y)
VBSCall color1=GetPixelColor(x,y)
MessageBox color1 
//得到当前点的颜色，并弹出对话框显示出来