vb 用mouse_event 模拟鼠标拖动文件
SetCursorPos 622, 134 '鼠标移动到
mouse_event MOUSEEVENTF_LEFTDOWN, 0&, 0&, 0&, 0& '左键按下
mw = x / SW * 65535
mh = y / SH * 65535
mouse_event MOUSEEVENTF_ABSOLUTE + MOUSEEVENTF_MOVE, mw, mh, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
————————————————
我的源码是这样的,已经可以拖动文件到指定的位置,但是鼠标总是不放开。就是鼠标左键按住文件,然后拖动到指定位置,就是不执行鼠标松开的操作。不知道啥原因,求助!
[解决办法]
本帖最后由 bcrun 于 2012-09-19 10:58:23 编辑
SetCursorPos 622, 134 '鼠标移动到
mouse_event MOUSEEVENTF_LEFTDOWN, 0&, 0&, 0&, 0& '左键按下
mw = x / SW * 65535
mh = y / SH * 65535
sleep 100
mouse_event MOUSEEVENTF_ABSOLUTE + MOUSEEVENTF_MOVE, mw, mh, 0, 0
sleep 100
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0