在win10 中excel vba 无法直接使用ddl声明的函数,如无法使用mouse_event事件

来源:互联网 发布:罗麦品质365商城淘宝网 编辑:程序博客网 时间:2024/05/19 13:17

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的朋友有帮助

如果有人知道是为什么可以告诉我一下

原创粉丝点击