Question

vb6.0 如何移动鼠标

vb6.0 如何移动鼠标
还有sendkeys是模拟键盘按键 怎么模拟鼠标点左键或右键
我找了很久都没找到... 会加分的放心吧

Answer 1

模拟一次鼠标事件

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)

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 ------------- 根据是否指定了MOUSEEVENTF_ABSOLUTE标志，指定垂直方向的绝对位置或相对运动

cButtons ------- 1，2，3
dwExtraInfo ---- 通常未用的一个值。用GetMessageExtraInfo函数可取得这个值。可用的值取决于特定的驱动程序进行相对运动的时候，由SystemParametersInfo函数规定的系统鼠标轨迹速度会应用于鼠标运行的速度

Answer 2

http://tech.163.com/special/000915SN/vbgreat.html
很全的教程
希望能帮助你，O(∩_∩)O~~

Answer 3

用手移动鼠标