Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
用这个api函数。
参数 类型及说明 
dwFlags Long,下述标志的一个组合 
MOUSEEVENTF_ABSOLUTE dx和dy指定鼠标坐标系统中的一个绝对位置。在鼠标坐标系统中,屏幕在水平和垂直方向上均匀分割成65535×65535个单元 
MOUSEEVENTF_MOVE 移动鼠标 
MOUSEEVENTF_LEFTDOWN 模拟鼠标左键按下 
MOUSEEVENTF_LEFTUP 模拟鼠标左键抬起 
MOUSEEVENTF_RIGHTDOWN 模拟鼠标右键按下 
MOUSEEVENTF_RIGHTUP 模拟鼠标右键按下 
MOUSEEVENTF_MIDDLEDOWN 模拟鼠标中键按下 
MOUSEEVENTF_MIDDLEUP 模拟鼠标中键按下 
dx Long,根据是否指定了MOUSEEVENTF_ABSOLUTE标志,指定水平方向的绝对位置或相对运动 
dy Long,根据是否指定了MOUSEEVENTF_ABSOLUTE标志,指定垂直方向的绝对位置或相对运动 
cButtons Long,未使用 
dwExtraInfo Long,通常未用的一个值。用GetMessageExtraInfo函数可取得这个值。可用的值取决于特定的驱动程序 

解决方案 »

  1.   

    ClipCursor, ClipCursorBynum VB声明 
    Declare Function ClipCursor& Lib "user32" (lpRect As RECT)
    Declare Function ClipCursorBynum& Lib "user32" Alias "ClipCursor" (ByVal lpRect As Long) 
    说明 
    将指针限制到指定区域。ClipCursorBynum是一个别名,允许我们清除以前设置的指针剪切区域 
    返回值 
    Long,非零表示成功,零表示失败。会设置GetLastError 
    参数表 
    参数 类型及说明 
    lpRect RECT,指定一个矩形,用像素屏幕坐标系统表示。鼠标指针必须在这个区域内运动。如使用函数的ClipCursorBynum形式,则可将参数设为Long值,用它传递一个0,禁止指针剪切,恢复常规运作状态 
    注解 
    指针剪切后,按Ctrl+Alt+Del可简单的清除剪切区域