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

复制代码
  1. GetCursorPos x,y  
  2. cr1=GetPixelColor(x,y)  
  3. MessageBox cr1   
  4. //得到当前点的颜色，并弹出对话框显示出来  

复制代码
  1. VBSCall GetCursorPos(x,y)  
  2. VBSCall color1=GetPixelColor(x,y)  
  3. MessageBox color1   
  4. //得到当前点的颜色，并弹出对话框显示出来