坐标颜色句柄鼠标

得出一些  经常用到的  信息 

运行后只要按下Q  就可以得出鼠标XY 鼠标当前指的颜色,窗可句柄和鼠标形状 

您好，我叫冷月無情，喜欢制作一写简单脚本。我的QQ是：793045864   欢迎各位和我交流 

运行环境：分辨率：1024x768 色深：32位 操作系统：Windows XP 按键精灵版本：7.00.4148

@qaz123tty    2009/8/24

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