各位高手：如何获得指定屏幕坐标处色彩，并对两处色彩进行比较模糊的对比,请举一例，谢谢！

Question

各位高手：如何获得指定屏幕坐标处色彩，并对两处色彩进行比较模糊的对比,请举一例，谢谢！

Answer 1

use API: GetPixel VB声明 
Declare Function GetPixel Lib "gdi32" Alias "GetPixel" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long 
说明 
在指定的设备场景中取得一个像素的RGB值 
返回值 
Long，指定点的RGB颜色。如指定的点位于设备场景的剪切区之外，则返回CLR_INVALID 
参数表 
参数 类型及说明 
hdc Long，一个设备场景的句柄 
x,y Long，逻辑坐标中要检查的点 

Answer 2

Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Private Sub Command1_Click()
Me.ScaleMode = 3
PSet (100, 100), vbBlue 'SET COLOR
PSet (100, 50), vbBlue
PSet (50, 50), vbRed
MsgBox Hex(GetPixel(Me.hdc, 100, 100)) 'VBBLUE
MsgBox Hex(GetPixel(Me.hdc, 50, 50)) 'VBRED
MsgBox GetPixel(Me.hdc, 50, 50) = GetPixel(Me.hdc, 100, 50) 'DIFFERENT COLOR
MsgBox GetPixel(Me.hdc, 100, 100) = GetPixel(Me.hdc, 100, 50) ' SAME COLOR
End Sub

Answer 3

关于模糊比较，一下算法只是我个人的想法，并非正规算法，但我觉得比较可行
函数的返回值是一个平均色差，你可以设定返回值小于某个限定值，则为相同颜色。
function compareColor(color1 as long,color2 as long) as double
dim red1,green1,blue1,red2,green2,blue2
red1=color1 and &hff
geen1=cint(color1/&h100) and &hff
blue1=cint(color1/&h10000) and &hffred2=color2 and &hff
geen2=cint(color2/&h100) and &hff
blue2=cint(color2/&h10000) and &hff
compareColor=(((red1-red2)^2+(green1-green2)^2+(blue1-blue2)^2)/3)^0.5
end function

Answer 4

用API
1.根据坐标x,y和函数WindowFromPoint 获取该坐标窗体
2.GetDC获取窗体hDC
3.ScreenToClient 获取该坐标在窗体中的相对坐标，cx,cy
4.用GetPixel（hdx,cx,cy)

Answer 5

point函数可以得到指定坐标的颜色

Answer 6

point只能取VB自己窗体上的吧,是form对象或者picturebox对象的成员函数

Answer 7

DemonXHunter (恶魔猎手)  的思路很好，但我现在自己一直调试不好，比如：
    所求点在全屏的   （10，200 ）  处，
 请给个完整的程序，谢谢！！  

Answer 8

API函数声明自己用API函数浏览器找
dim pt as POINT
dim hWnd as LONG
dim hDC as LONG
dim color1 as long
pt.x=10:pt.y=200
hWnd=WindowFromPoint(pt)
hDC=GetDC(hWnd)
ScreenToClient(hWnd,pt)
color1=GetPixel(hDC,pt.x,pt.y)

Answer 9

其实不用那么复杂了，因为可以直接从屏幕DC读取象素，如下
         dim clr as long
dim hdc as Long
hdc = GetDC(0)
clr=GetPixel(hdc,10,20)