Question

vb 寻找某点颜色的坐标？

比如颜色设置为#ffffff 要在屏幕上寻找它的坐标值，怎么做？
请给完整代码，谢谢

Answer 1

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

Private Sub Command1_Click()
h = GetDC(0) '取得整个屏幕的DC
dim x,y
for x=0 to 1028
for y=0 to 1024
Colr = GetPixel(h, x, y) '取颜色
ReleaseDC 0, hdc '释放hDC
If Colr = &Hffffff Then print x & "," & y
next y
next x
End Sub