怎样知道屏幕内某点颜色的RGB值？

Question

要用一些API：
GetCursorPos：取得鼠标位置
GetDC：取得窗口DC
GetPixel：取点色
ReleaseDC：释放窗口DC

Answer 1

    Dim hTempDC As Long
    Dim TempP As POINTAPI
    Dim TempC As Long
    
    hTempDC = GetDC(0)
    
    Call GetCursorPos(TempP)
    TempC = GetPixel(hTempDC, TempP.X, TempP.Y)
    
    Call ReleaseDC(0, hTempDC)
    
    TxtC.Text = "&H" + Hex$(TempC)
    TxtX.Text = TempP.X
    TxtY.Text = TempP.Y
    

Answer 2

一个不好的方法：
把屏幕拷下
在用point

Answer 3

If 纯粹无聊 Then
    “分啊！分啊！好多分啊！”（仿 罗森.《风姿物语》.韩特）
    我觉得我该改名为：逐“分”猎人
    
End If

Answer 4

R=Color And &HFF
G=(Color And &HFF00&)\&h100
B=(Color And &HFF0000)\&h10000