关于判断坐标颜色

[kidvnet]

如何判断某坐标的颜色变为红色 自动执行某命令？？ 求详细代码 小弟感激不尽

[SYSSZ]

如果是固定点就更简单:

Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long

Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Sub Command1_Click()
Dim a As Long
ret = GetDC(0)
a = GetPixel(ret, 300, 300)
If (a > 250 And a <= 255) Then 'A对应的范围自己用查一下,a > 250 And a <= 255只是一个例子,色阶上很多都算红色
'…………
End If
End Sub

[SYSSZ]

'获取鼠标处颜色

Private Type POINTAPI
X As Long
Y As Long
End Type
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Dim z As POINTAPI
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Sub Command1_Click()
End
End Sub

Private Sub Timer1_Timer()
Dim a, b, c, d As Long
GetCursorPos z'这个坐标你也用别的方法赋给 GetPixel
ret = GetDC(0)
a = GetPixel(ret, z.X, z.Y)
Label5.Caption = "点的十进制颜色值：" & a
Label1.Caption = "点的位置：" & z.X & "," & z.Y
b = a And &HFF
c = (a And 65280) \ 256
d = (a And &HFF0000) \ 65356
Label2.Caption = "点的RGB(" & b & "," & c & "," & d & ")"
Label3.Caption = "16进制色：" & "Ox" & Hex(a)
Label4.Caption = "网页的颜色：#" & Hex(a)
Picture1.BackColor = RGB(b, c, d)
End Sub