Rem 1
WaitKey o
//KeyPress 8,1
If o=81
    VBSCall su=GetCursorShape(0)
    VBSCall Call GetCursorPos(x,y)
    VBSCall Call GetCursorPos(x,y)
    Plugin Hwnd = Window.Foreground()
    color=GetPixelColor(x,y)
    MessageBox "X坐标为  "&x&"  Y坐标为  "&y&"  颜色为  "&color&"  句柄为  "&Hwnd&"  鼠标形状为 "&su
    Delay 100
    Goto 1
Else 
    Goto 1
EndIf