VB代码:监控系统鼠标指针的变化

Private Declare Function GetCursorInfo Lib "user32 " (pci As CURSORINFO) As Long'获取系统内当前鼠标的信息Private Type POINTAPI     '代表鼠标指针当前位置的一个结构    X As Long    Y As LongEnd TypeDim lastcur As LongPrivate Type CURSORINFO       '获得鼠标信息内容cbSize   As Long         '本结构大小flags   As Long           '附加参数hCursor   As Long       '获取的鼠标句丙ptScreenPos   As POINTAPI     '鼠标当前的坐标End TypePrivate Sub Timer1_Timer()Dim CursorPar     As CURSORINFOCursorPar.cbSize = Len(CursorPar)GetCursorInfo CursorParText1.Text = CursorPar.hCursorEnd Sub