O(∩_∩)O~，不知道VB能不能实现这样的功能呢，就是启动程序，程序最小化后，当点击一次鼠标，鼠标指针就由屏幕中心位置自动下滑，松开即可停止，下滑速度的X和Y轴由键盘的+和-来控制。不知道有没有人回答，只好抱着试试看的心情来问问了。 谢谢大家。没有分了，还望大家不要介意哦。。。用API SetCursorPos 设置鼠标指针的位置 Option Explicit Private Type POINTAPI '定义点(Point)结构 X As Long '点在X坐标(横坐标)上的坐标值 Y As Long '点在Y坐标(纵坐标)上的坐标值 End Type ' Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Private Sub Command1_Click() Dim l As Long Dim MyPointapi As POINTAPI l = GetCursorPos(MyPointapi) SetCursorPos MyPointapi.X, MyPointapi.Y + 100 End Sub
