Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd 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 Type POINTAPI
    x As Long
    y As Long
End Type
Private Sub tmp2()
Debug.Print Hex(pixcolour)
End Sub
Public Function pixcolour() As Long
    Dim pt As POINTAPI
    GetCursorPos pt
    Dim Dc: Dc = GetDC(0)
    pixcolour = GetPixel(Dc, pt.x, pt.y)
End Function
vbs：
"Private Declare Function GetDC Lib ""user32"" (ByVal hwnd As Long) As Long"                                                         & vbCrLf & _
"Private Declare Function GetPixel Lib ""gdi32"" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long"          & vbCrLf & _
" Public Function pixcolour() As Long"        & vbCrLf & _
"Dim pt As POINTAPI: GetCursorPos pt"        & vbCrLf & _
"Dim Dc:Dc = GetDC(0)"                       & vbCrLf & _
"pixcolour = GetPixel(Dc, pt.X, pt.Y)"       & vbCrLf & _
"End Function"                              & vbCrLf & _
复制代码