[讨论] Lisp 控制鼠标移动和点击

nonsmall

既然lisp控制键盘没问题 也应该可以控制鼠标才对

但是需要借助第三方控件(VB调用API封装类我还不会 以后慢慢研究)

首先解压下面的压缩包把3个文件拷贝到 C:\WINDOWS\system32\ 里面

然后运行下面的代码即可

;by nonsmall 20081210

(setq wsh (vlax-create-object "WScript.Shell"))
(setq text "cmd /c regsvr32 /s QMDispatch.dll")
(vlax-invoke wsh 'run text 0)
(setq Macro (vlax-create-object "QMDispatch.QMFunction"))

测试
(vlax-invoke Macro 'SetCursorPos 100 100)
(vlax-invoke Macro 'SetCursorPos 500 500)

============================================================

上面是之前的办法

现在用我的LISP直接调用WINDOWS API轻松搞定

Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal

cButtons As Long, ByVal dwExtraInfo As Long)

生成函数mouse_event

(mouse_event "&H2" 0 0 0 0);左键按
(mouse_event "&H4" 0 0 0 0);左键起
(mouse_event "&H1" 100 100 0 0);移动

结贴

oyxx1023

(setq wsh (vlax-create-object "WScript.Shell"))
(setq text "cmd /c regsvr32 /s QMDispatch.dll")
(vlax-invoke wsh 'run text 0)

这几句直接用
(startapp "RegSvr32" "/s QMDispatch.dll")不就行了吗,也许是我见识浅薄,不知道老猫写三行是不是有特殊之处.

狂刀无痕

运行和注册是两回事