Question

VB控制鼠标指针移动

O(∩_∩)O~，不知道VB能不能实现这样的功能呢，就是启动程序，程序最小化后，当点击鼠标，鼠标指针就由屏幕中心位置自动下滑，松开即可停止，下滑速度的X和Y轴由键盘的+和-来控制。不知道有没有人回答，只好抱着试试看的心情来问问了。谢谢大家。
可是怎么在程序最小化的时候，依然能实现呢？也就是说，当鼠标单击的时候，已经不是单击窗体或者任何按钮了，是在打开别的程序的时候，在别的程序窗口里面单击，依然能把鼠标下划呀。

Answer 1

自动下滑，用timer可以实现。
松开即可停止，这个不是很清楚。
下滑的速度有+-控制，需要热键，
网上查一下估计可以实现。
给我个邮箱。
----------------------
针对补充的问题，最小化了之后，所以才使用热键的。热键可以实现的。 用热键控制timer的时间。

Answer 2

可以，要用到API函数setcursorpro好像，记不清了，你搜索一下这个函数就行了

Answer 3

Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

MouseX=MouseX+1
MouseY=MouseY+1
'设置指针的位置
SetCursorPos MouseX, MouseY

给你个参考，其他的你应该会做的吧

Answer 4

呵呵，这里热心人很多呢 (*^__^*) 嘻嘻……

用WinAPI函数SetCursorPos即可，注意要把Public换成Private，然后把声明语句放到代码最上面即可。（如果用Public的话必须放到模块里才行）

Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

使用很简单，VB如下代码即可
SetCursorPos 111,222 '意思是把鼠标指针设定在x是111，y是222的像素位置。

另外还有配套的GetCursorPos函数可以用来获取鼠标指针的位置

Answer 5

键盘 鼠标钩子.