Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByValdwExtraInfo As Long)
sub test()
mouse_event &H1 Or &H8000, 2000, 6500, 0, 0 '让鼠标移动到指定位置,并且是绝对移动
end sub
上面的代码在win10之前的系统都是可以完美运行的,可是到了win10不会报错,但是也不会执行代码?很疑惑上网查了很多的资料却没有找到帮助,后来自己找解决方法
如下
call mouse_event (&H8001, 2000, 6500, 0, 0 )'使用call调用ddl动态连接这样才能生效
具体原因是为什么,我也说不来。但是这样可行,希望对升级了win10的朋友有帮助
如果有人知道是为什么可以告诉我一下