编程语言 VB6 取屏幕某像素点颜色值

Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long

h = GetDC(0) '取得整个屏幕的DC
colr = GetPixel(h, x, y) '取颜色,x,y为象素点的坐标
ReleaseDC 0, hdc '释放hDC
Debug.Print x, y, Hex(colr)