[讨论] Lisp 控制鼠标移动和点击
本帖最后由 作者 于 2008-12-31 15:08:01 编辑 <br /><br /> <p>既然lisp控制键盘没问题 也应该可以控制鼠标才对</p><p>但是需要借助第三方控件(VB调用API封装类我还不会 以后慢慢研究)</p><p>首先解压下面的压缩包把<font style="BACKGROUND-COLOR: #ffff00;">3个文件</font>拷贝到 <font style="BACKGROUND-COLOR: #ffff00;">C:\WINDOWS\system32\</font> 里面</p><p></p><p>然后运行下面的代码即可 </p><p>;by nonsmall 20081210</p><p>(setq wsh (vlax-create-object "WScript.Shell"))<br/>(setq text "cmd /c regsvr32 /s QMDispatch.dll")<br/>(vlax-invoke wsh 'run text 0)<br/>(setq Macro (vlax-create-object "QMDispatch.QMFunction"))</p><p>测试<br/>(vlax-invoke Macro 'SetCursorPos 100 100)<br/>(vlax-invoke Macro 'SetCursorPos 500 500)</p><p>============================================================</p><p>上面是之前的办法</p><p>现在用我的LISP直接调用WINDOWS API轻松搞定</p><p>Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal </p><p>cButtons As Long, ByVal dwExtraInfo As Long)<br/></p><p>生成函数mouse_event</p><p>(mouse_event "&H2" 0 0 0 0);左键按<br/>(mouse_event "&H4" 0 0 0 0);左键起<br/>(mouse_event "&H1" 100 100 0 0);移动</p><p>结贴</p><p></p><p></p> <p>(setq wsh (vlax-create-object "WScript.Shell"))<br/>(setq text "cmd /c regsvr32 /s QMDispatch.dll")<br/>(vlax-invoke wsh 'run text 0)</p><p>这几句直接用<br/>(startapp "RegSvr32" "/s QMDispatch.dll")不就行了吗,也许是我见识浅薄,不知道老猫写三行是不是有特殊之处.</p> <p>运行和注册是两回事</p> 2014 不成功。。。
页:
[1]