Question

易语言，按下左键，键盘就会按下Q。如何实现？

Answer 1

楼上的回答太专业了。

根据楼主的要求，步骤如下（附截图）：

新建"Windows窗口程序"，选择启动窗口的“鼠标左键被按下”事件，跳转到如下子程序界面。

好了，代码写好了。。。

追问

w 我一开始就是这样写的 但没效果啊

追答

这个就跟你直接按下Q键一样，是看不出效果的。

Answer 2

.版本 2

.DLL命令 api_设置系统钩子, 整数型, "user32.dll", "SetWindowsHookExA", , , SetWindowsHookEx
.参数 钩子类型, 整数型, , idHook
.参数 回调函数地址, 整数型, , lpfn
.参数 实例句柄, 整数型, , hmod
.参数 线程ID, 整数型, , dwThreadId

.DLL命令 api_呼叫下一钩子, 整数型, "user32.dll", "CallNextHookEx", , , CallNextHookEx
.参数 钩子句柄, 整数型, , hHook
.参数 回调函数参数1, 整数型, , ncode
.参数 回调函数参数2, 整数型, , wParam
.参数 回调函数参数3, 整数型, , lParam

.DLL命令 api_释放系统钩子, 整数型, "user32.dll", "UnhookWindowsHookEx", , , UnhookWindowsHookEx
.参数 钩子句柄, 整数型, , hHook

.DLL命令 api_取实例句柄, 整数型, , "GetModuleHandleA", , ,
.参数 程序名, 整数型

.DLL命令 api_拷贝内存, 整数型, "kernel32", "RtlMoveMemory", , , RtlMoveMemory
.参数 回调结构, 鼠标结构, , lpvDest
.参数 钩子回调函数参数3, 整数型, , lpvSource
.参数 尺寸, 整数型, , cbCopy
.版本 2
.支持库 spec
.支持库 eAPI

.程序集 窗口程序集1
.程序集变量 钩子句柄, 整数型

.子程序 __启动窗口_创建完毕

.子程序 _按钮1_被单击

钩子句柄 ＝ api_设置系统钩子 (14, 取子程序地址 (&鼠标钩子回调函数), api_取实例句柄 (0), 0)

.子程序 鼠标钩子回调函数, 整数型
.参数 参数1
.参数 参数2
.参数 参数3
.局部变量 鼠标信息, 鼠标结构
.局部变量 坐标z, 坐标结构

.判断开始 (参数2 ＝ 513)
_启动窗口.标题 ＝ “你按下了鼠标左键”
模拟按键 (#B键, , )
.默认

.判断结束
.判断开始 (参数2 ＝ 514)
_启动窗口.标题 ＝ “你放开了鼠标左键”
.默认

.判断结束
.判断开始 (参数2 ＝ 516)
_启动窗口.标题 ＝ “你按下了鼠标右键”
.默认

.判断结束
.判断开始 (参数2 ＝ 517)
_启动窗口.标题 ＝ “你放开了鼠标右键”
.默认

.判断结束

.如果真 (参数2 ＝ 512)
api_拷贝内存 (鼠标信息, 参数3, 10)
坐标z ＝ 鼠标信息.成员2

输出调试文本 (“x=” ＋ 到文本 (坐标z.x))
输出调试文本 (“y=” ＋ 到文本 (坐标z.x))
.如果真结束

返回 (api_呼叫下一钩子 (钩子句柄, 参数1, 参数2, 参数3))

.子程序 _按钮2_被单击

api_释放系统钩子 (钩子句柄)

追问

错误(30): 找不到指定的变量名称“钩子句柄”。
编译现行易程序失败或被中止!

我对这个还不大懂 能不能帮忙让它可以直接编译就可以用呀 万分感谢