新手求助

longtxiao

错误(37): 找不到指定的命令／子程序／Dll命令调用名称“如果真结束”。
错误(37): 找不到指定的命令／子程序／Dll命令调用名称“否则”。
516 ' 右键按下 错误(25): 不能为参数数据，必须为命令。

是永乐哟

longtxiao 发表于 2026-4-29 23:03
是啊  我不会写 我想做个 组合快捷键使用程序 用ai弄得 结果不行  哈哈

直接调用了精易模块，应该不许要我发你模块吧
原理和ai给你生成的是一样的，都是调用系统api
模块给封装好了，直接调用就行

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
钩子	类_钩子
键盘句柄	整数型
鼠标句柄	整数型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

键盘句柄 ＝ 钩子.安装钩子_键盘 (_启动窗口.取窗口句柄 (), &键盘回调, )
鼠标句柄 ＝ 钩子.安装钩子_鼠标 (_启动窗口.取窗口句柄 (), &鼠标回调, )
判断 (键盘句柄 ＝ 0)
调试输出 (“键盘钩子安装失败”)
结束 ()
调试输出 (“键盘钩子安装成功”)

判断 (鼠标句柄 ＝ 0)
调试输出 (“鼠标钩子安装失败”)
结束 ()
调试输出 (“鼠标钩子安装成功”)

子程序名	返回值类型	公开	备 注
键盘回调
参数名	类 型	参考	可空	数组	备 注
按键状态	整数型
键代码	整数型

调试输出 (“键盘键代码”, 按键状态)
调试输出 (“键盘按键状态”, 键代码)
如果真 (键代码 ＝ 13 且 按键状态 ＝ 256)  ' 256是按下，13是回车
结束 ()  ' 检测到热键直接结束软件运行
' 注意添加一个这这结束的，不然调试的时候容易卡住
' 导致键盘鼠标失灵，只能物理重启电脑（强制关机来关闭软件）

如果真 (键代码 ＝ 32 且 按键状态 ＝ 257)  ' 32是空格,257是松开
信息框 (“你松开了空格”, 0, , )

' 13是回车，32代码空格
' 这些是虚拟键码
' 直接问ai就能给你列表
' 鼠标的原理和键盘一样，自己按照自己需求改就行

子程序名	返回值类型	公开	备 注
鼠标回调
参数名	类 型	参考	可空	数组	备 注
消息标识	整数型
水平坐标	整数型
垂直坐标	整数型
附加数据	整数型

调试输出 (“鼠标消息标识”, 消息标识)
调试输出 (“鼠标水平坐标”, 水平坐标)
调试输出 (“鼠标垂直坐标”, 垂直坐标)
调试输出 (“鼠标附加数据”, 附加数据)

子程序名	返回值类型	公开	备 注
__启动窗口_将被销毁

判断 (钩子.卸载 (键盘句柄))
调试输出 (“键盘钩子卸载成功”)
调试输出 (“键盘钩子卸载失败”)
返回 ()

判断 (钩子.卸载 (鼠标句柄))
调试输出 (“鼠标钩子卸载成功”)
调试输出 (“鼠标钩子卸载失败”)
返回 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 钩子, 类_钩子<br /> .程序集变量 键盘句柄, 整数型<br /> .程序集变量 鼠标句柄, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 键盘句柄 ＝ 钩子.安装钩子_键盘 (_启动窗口.取窗口句柄 (), &键盘回调, )<br /> 鼠标句柄 ＝ 钩子.安装钩子_鼠标 (_启动窗口.取窗口句柄 (), &鼠标回调, )<br /> <br /> .判断开始 (键盘句柄 ＝ 0)<br />     调试输出 (“键盘钩子安装失败”)<br />     结束 ()<br /> .默认<br />     调试输出 (“键盘钩子安装成功”)<br /> .判断结束<br /> <br /> .判断开始 (鼠标句柄 ＝ 0)<br />     调试输出 (“鼠标钩子安装失败”)<br />     结束 ()<br /> .默认<br />     调试输出 (“鼠标钩子安装成功”)<br /> .判断结束<br /> <br /> <br /> <br /> .子程序 键盘回调<br /> .参数 按键状态, 整数型<br /> .参数 键代码, 整数型<br /> <br /> <br /> 调试输出 (“键盘键代码”, 按键状态)<br /> 调试输出 (“键盘按键状态”, 键代码)<br /> <br /> .如果真 (键代码 ＝ 13 且 按键状态 ＝ 256)  ' 256是按下，13是回车<br />     结束 ()  ' 检测到热键直接结束软件运行<br />     ' 注意添加一个这这结束的，不然调试的时候容易卡住<br />     ' 导致键盘鼠标失灵，只能物理重启电脑（强制关机来关闭软件）<br /> .如果真结束<br /> <br /> <br /> .如果真 (键代码 ＝ 32 且 按键状态 ＝ 257)  ' 32是空格,257是松开<br />     信息框 (“你松开了空格”, 0, , )<br /> .如果真结束<br /> <br /> <br /> ' 13是回车，32代码空格<br /> ' 这些是虚拟键码<br /> ' 直接问ai就能给你列表<br /> ' 鼠标的原理和键盘一样，自己按照自己需求改就行<br /> <br /> <br /> .子程序 鼠标回调<br /> .参数 消息标识, 整数型<br /> .参数 水平坐标, 整数型<br /> .参数 垂直坐标, 整数型<br /> .参数 附加数据, 整数型<br /> <br /> <br /> 调试输出 (“鼠标消息标识”, 消息标识)<br /> 调试输出 (“鼠标水平坐标”, 水平坐标)<br /> 调试输出 (“鼠标垂直坐标”, 垂直坐标)<br /> 调试输出 (“鼠标附加数据”, 附加数据)<br /> <br /> <br /> <br /> .子程序 __启动窗口_将被销毁<br /> <br /> .判断开始 (钩子.卸载 (键盘句柄))<br />     调试输出 (“键盘钩子卸载成功”)<br /> .默认<br />     调试输出 (“键盘钩子卸载失败”)<br />     返回 ()<br /> .判断结束<br /> <br /> .判断开始 (钩子.卸载 (鼠标句柄))<br />     调试输出 (“鼠标钩子卸载成功”)<br /> .默认<br />     调试输出 (“鼠标钩子卸载失败”)<br />     返回 ()<br /> .判断结束

列子.e (960.1 KB, 下载次数: 0)

前天 00:09 上传

点击文件名下载附件
源码

是永乐哟

代码贴出来啊。。。。

是永乐哟

ai生成的吧

是永乐哟

ai生成易语言代码序号带否则，正常不要的，我给你写一个列子

是永乐哟

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

' 这个是正确的调用
如果 (1 ＝ 1)  ' 判断1等于1，等于是真，不等于是加
' 真执行
调试输出 (“1等于1”)


' 这里是假执行的
调试输出 (“1不等于1”)

' 如果是ai生成的他会这样
如果 (1 ＝ 1)  ' 判断1等于1，等于是真，不等于是加
' 真执行
调试输出 (“1等于1”)
否是
' 这里是假执行的,ai在别的语言需要写否则，但是易语言不需要
调试输出 (“1不等于1”)
如果结束   ’其他语言需要写这个，但是易语言不需要写，删除就行
错误 (37): 找不到指定的命令／子程序／Dll命令调用名称“如果结束”。

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> ' 这个是正确的调用<br /> .如果 (1 ＝ 1)  ' 判断1等于1，等于是真，不等于是加<br />     ' 真执行<br />     调试输出 (“1等于1”)<br /> .否则<br /> <br />     ' 这里是假执行的<br />     调试输出 (“1不等于1”)<br /> <br /> .如果结束<br /> <br /> ' 如果是ai生成的他会这样<br /> .如果 (1 ＝ 1)  ' 判断1等于1，等于是真，不等于是加<br />     ' 真执行<br />     调试输出 (“1等于1”)<br /> .否则<br />     否是<br />     ' 这里是假执行的,ai在别的语言需要写否则，但是易语言不需要<br />     调试输出 (“1不等于1”)<br /> <br /> .如果结束<br /> 如果结束   ’其他语言需要写这个，但是易语言不需要写，删除就行<br /> 错误(37): 找不到指定的命令／子程序／Dll命令调用名称“如果结束”。

补充内容 (2026-4-28 22:53):
如果看不懂的话需要去看基础课程了，bibi搜易语言基础语法：如果、判断、如果真

longtxiao

是永乐哟 发表于 2026-4-28 22:48
代码贴出来啊。。。。

  

窗口一代码

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
延坐标	坐标组	6
偏坐标	坐标组	6
全局确认X	整数型
全局确认Y	整数型
鼠标钩子句柄	整数型
键盘钩子句柄	整数型
右键按下	逻辑型
左键按下	逻辑型
组合已触发	逻辑型
当前类型	文本型
当前方向	文本型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

全局确认X ＝ 0
全局确认Y ＝ 0
标签_状态.标题 ＝ “状态：未启用钩子”

子程序名	返回值类型	公开	备 注
__启动窗口_将被销毁

如果真 (鼠标钩子句柄 ≠ 0)
UnhookWindowsHookEx (鼠标钩子句柄)
如果真 (键盘钩子句柄 ≠ 0)
UnhookWindowsHookEx (键盘钩子句柄)

子程序名	返回值类型	公开	备 注
_按钮_设置坐标_被单击

载入 (窗口_坐标设置, , 假)

子程序名	返回值类型	公开	备 注
_按钮_安装钩子_被单击

鼠标钩子句柄 ＝ SetWindowsHookExA (14, &鼠标回调, GetModuleHandle (0), 0)
键盘钩子句柄 ＝ SetWindowsHookExA (13, &键盘回调, GetModuleHandle (0), 0)
标签_状态.标题 ＝ “状态：钩子已启用”

子程序名	返回值类型	公开	备 注
_按钮_卸载钩子_被单击

如果真 (鼠标钩子句柄 ≠ 0)
UnhookWindowsHookEx (鼠标钩子句柄)
鼠标钩子句柄 ＝ 0
如果真 (键盘钩子句柄 ≠ 0)
UnhookWindowsHookEx (键盘钩子句柄)
键盘钩子句柄 ＝ 0
标签_状态.标题 ＝ “状态：钩子已卸载”

子程序名	返回值类型	公开	备 注
鼠标回调	整数型
参数名	类 型	参考	可空	数组	备 注
nCode	整数型
wParam	整数型
lParam	整数型

如果真 (nCode ＝ 0)
如果真 (wParam ＝ 516)  ' 右键按下
右键按下 ＝ 真
组合已触发 ＝ 假
如果真 (wParam ＝ 517)  ' 右键弹起
如果真 (右键按下)
如果 (组合已触发)



右键按下 ＝ 假
返回 (1)
右键按下 ＝ 假
如果真 (wParam ＝ 513)  ' 左键按下
左键按下 ＝ 真
组合已触发 ＝ 假
如果真 (wParam ＝ 514)  ' 左键弹起
如果真 (左键按下)
如果 (组合已触发)



左键按下 ＝ 假
返回 (1)
左键按下 ＝ 假
返回 (CallNextHookEx (鼠标钩子句柄, nCode, wParam, lParam))

子程序名	返回值类型	公开	备 注
键盘回调	整数型
参数名	类 型	参考	可空	数组	备 注
nCode	整数型
wParam	整数型
lParam	整数型

变量名	类 型	静态	数组	备 注
键值	整数型
方向	文本型
类型	文本型

如果真 (nCode ＝ 0)
键值 ＝ 取字节集数据 (指针到字节集 (lParam, 1), 3, )
如果真 (wParam ＝ 256)  ' WM_KEYDOWN
方向 ＝ “”
类型 ＝ “”
' 使用如果真分别处理每个键
如果真 (键值 ＝ #W键 )
如果真 (右键按下)
类型 ＝ “延”
如果真 (左键按下)
类型 ＝ “偏”
方向 ＝ “上”
如果真 (键值 ＝ #S键 )
如果真 (右键按下)
类型 ＝ “延”
如果真 (左键按下)
类型 ＝ “偏”
方向 ＝ “下”
如果真 (键值 ＝ #A键 )
如果真 (右键按下)
类型 ＝ “延”
如果真 (左键按下)
类型 ＝ “偏”
方向 ＝ “左”
如果真 (键值 ＝ #D键 )
如果真 (右键按下)
类型 ＝ “延”
如果真 (左键按下)
类型 ＝ “偏”
方向 ＝ “右”
如果真 (键值 ＝ #Q键 )
如果真 (右键按下)
类型 ＝ “延”
如果真 (左键按下)
类型 ＝ “偏”
方向 ＝ “前”
如果真 (键值 ＝ #E键 )
如果真 (右键按下)
类型 ＝ “延”
如果真 (左键按下)
类型 ＝ “偏”
方向 ＝ “后”
' 如果类型有效且本轮未触发过
如果真 (类型 ≠ “” 且 组合已触发 ＝ 假)
组合已触发 ＝ 真
当前类型 ＝ 类型
当前方向 ＝ 方向
载入 (窗口_输入, , 真)
返回 (1)
返回 (CallNextHookEx (键盘钩子句柄, nCode, wParam, lParam))

子程序名	返回值类型	公开	备 注
执行填表
参数名	类 型	参考	可空	数组	备 注
数值	文本型
类型	文本型
方向	文本型

变量名	类 型	静态	数组	备 注
序号	整数型
ix	整数型
iy	整数型
标题	文本型
句柄	整数型

序号 ＝ 0
' 用如果真替代判断
如果真 (方向 ＝ “上”)
序号 ＝ 1
如果真 (方向 ＝ “下”)
序号 ＝ 2
如果真 (方向 ＝ “左”)
序号 ＝ 3
如果真 (方向 ＝ “右”)
序号 ＝ 4
如果真 (方向 ＝ “前”)
序号 ＝ 5
如果真 (方向 ＝ “后”)
序号 ＝ 6
如果真 (序号 ＝ 0)
返回 ()
' 类型判断也用如果真
如果真 (类型 ＝ “延”)
ix ＝ 延坐标 [序号].输入框X
iy ＝ 延坐标 [序号].输入框Y
标题 ＝ 延坐标 [序号].窗口标题
如果真 (类型 ＝ “偏”)
ix ＝ 偏坐标 [序号].输入框X
iy ＝ 偏坐标 [序号].输入框Y
标题 ＝ 偏坐标 [序号].窗口标题
句柄 ＝ 窗口_取句柄 (, , 标题)
如果真 (句柄 ＝ 0)
信息框 (“未找到目标窗口，请检查窗口标题是否配置正确！”, 0, “错误”, )
返回 ()
鼠标_消息 (句柄, ix, iy, 1, 1)
程序_延时 (100)
置剪辑板文本 (数值)
程序_延时 (50)
键盘_组合按键 ( #Ctrl键, #V键 )
程序_延时 (100)
如果真 (全局确认X ≠ 0 或 全局确认Y ≠ 0)
鼠标_消息 (句柄, 全局确认X, 全局确认Y, 1, 1)
窗口2代码

窗口程序集名	保 留	保 留	备 注
窗口程序集_窗口_输入
变量名	类 型	数组	备 注
前缀	文本型
方向	文本型
类型	文本型

子程序名	返回值类型	公开	备 注
_窗口_输入_创建完毕

变量名	类 型	静态	数组	备 注
x	整数型
y	整数型

边框 ＝ 0
宽度 ＝ 180
高度 ＝ 24
窗口_置顶 (取窗口句柄 (), 真)
' 易语言自带取鼠标位置
x ＝ 取鼠标水平位置 ()
y ＝ 取鼠标垂直位置 ()
左边 ＝ x
顶边 ＝ y － 30
类型 ＝ _启动窗口.当前类型
方向 ＝ _启动窗口.当前方向
前缀 ＝ 方向 ＋ 类型 ＋ “ ”
编辑框_数值.内容 ＝ 前缀
编辑框_数值.起始选择位置 ＝ 取文本长度 (前缀)
编辑框_数值.获取焦点 ()

子程序名	返回值类型	公开	备 注
_窗口_输入_按下某键
参数名	类 型	参考	可空	数组	备 注
键代码	整数型
功能键状态	整数型

变量名	类 型	静态	数组	备 注
数值	文本型

如果真 (键代码 ＝ #空格键 )
数值 ＝ 取文本右边 (编辑框_数值.内容, 取文本长度 (编辑框_数值.内容) － 取文本长度 (前缀))
数值 ＝ 删首尾空 (数值)
如果真 (数值 ≠ “”)
_启动窗口.执行填表 (数值, 类型, 方向)
销毁 ()
返回 ()
' 退格键保护
如果真 (键代码 ＝ #退格键 )
如果真 (编辑框_数值.起始选择位置 ≤ 取文本长度 (前缀))
返回 ()
' Delete键保护
如果真 (键代码 ＝ #Del键 )
如果真 (编辑框_数值.起始选择位置 ＜ 取文本长度 (前缀))
返回 ()

子程序名	返回值类型	公开	备 注
_编辑框_数值_内容被改变

如果真 (取文本左边 (编辑框_数值.内容, 取文本长度 (前缀)) ≠ 前缀)
编辑框_数值.内容 ＝ 前缀 ＋ 删首尾空 (编辑框_数值.内容)
编辑框_数值.起始选择位置 ＝ 取文本长度 (前缀)
窗口3代码

窗口程序集名	保 留	保 留	备 注
窗口程序集_窗口_坐标设置
变量名	类 型	数组	备 注
类型索引	整数型
方向索引	整数型

子程序名	返回值类型	公开	备 注
__窗口_坐标设置_创建完毕

组合框_类型.加入项目 (“延”, )
组合框_类型.加入项目 (“偏”, )
组合框_类型.现行选中项 ＝ 0
组合框_方向.加入项目 (“上”, )
组合框_方向.加入项目 (“下”, )
组合框_方向.加入项目 (“左”, )
组合框_方向.加入项目 (“右”, )
组合框_方向.加入项目 (“前”, )
组合框_方向.加入项目 (“后”, )
组合框_方向.现行选中项 ＝ 0
刷新显示 ()

子程序名	返回值类型	公开	备 注
_组合框_类型_列表项被选择

类型索引 ＝ 组合框_类型.现行选中项
刷新显示 ()

子程序名	返回值类型	公开	备 注
_组合框_方向_列表项被选择

方向索引 ＝ 组合框_方向.现行选中项
刷新显示 ()

子程序名	返回值类型	公开	备 注
刷新显示

变量名	类 型	静态	数组	备 注
序号	整数型
arr	坐标组		6

序号 ＝ 方向索引 ＋ 1
' 替换掉原来的 如果 (类型索引 ＝ 0) ... 否则 ... 如果结束
如果真 (类型索引 ＝ 0)
arr ＝ _启动窗口.延坐标
如果真 (类型索引 ＝ 1)
arr ＝ _启动窗口.偏坐标
编辑框_输入X.内容 ＝ 到文本 (arr [序号].输入框X)
编辑框_输入Y.内容 ＝ 到文本 (arr [序号].输入框Y)
编辑框_窗口标题.内容 ＝ arr [序号].窗口标题
编辑框_全局X.内容 ＝ 到文本 (_启动窗口.全局确认X)
编辑框_全局Y.内容 ＝ 到文本 (_启动窗口.全局确认Y)

子程序名	返回值类型	公开	备 注
_按钮_保存_被单击

变量名	类 型	静态	数组	备 注
序号	整数型
arr	坐标组		6

序号 ＝ 方向索引 ＋ 1
' 第一处：读取坐标数组
如果真 (类型索引 ＝ 0)
arr ＝ _启动窗口.延坐标
如果真 (类型索引 ＝ 1)
arr ＝ _启动窗口.偏坐标
' ... 中间保存坐标的代码 ...
' 第二处：写回数组
如果真 (类型索引 ＝ 0)
_启动窗口.延坐标 ＝ arr
如果真 (类型索引 ＝ 1)
_启动窗口.偏坐标 ＝ arr
_启动窗口.全局确认X ＝ 到整数 (编辑框_全局X.内容)
_启动窗口.全局确认Y ＝ 到整数 (编辑框_全局Y.内容)
信息框 (“保存成功！”, 0, “提示”, )

子程序名	返回值类型	公开	备 注
_窗口_坐标设置_创建完毕

dll命令定义表

DLL命令名	返回值类型	公开	备 注
SetWindowsHookExA
DLL库文件名:
user32.dll
在DLL库中对应命令名:
SetWindowsHookExA
参数名	类 型	传址	数组	备 注
idHook	整数型
lpfn	子程序指针
hmod	整数型
dwThreadId	整数型

DLL命令名	返回值类型	公开	备 注
UnhookWindowsHookEx	整数型
DLL库文件名:
user32.dll
在DLL库中对应命令名:
UnhookWindowsHookEx
参数名	类 型	传址	数组	备 注
hhk	整数型

DLL命令名	返回值类型	公开	备 注
CallNextHookEx	整数型
DLL库文件名:
user32.dll
在DLL库中对应命令名:
CallNextHookEx
参数名	类 型	传址	数组	备 注
hhk	整数型
nCode	整数型
wParam	整数型
lParam	整数型

DLL命令名	返回值类型	公开	备 注
GetModuleHandle	整数型
DLL库文件名:
kernel32.dll
在DLL库中对应命令名:
GetModuleHandleA
参数名	类 型	传址	数组	备 注
lpModuleName	整数型

窗口一代码<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 延坐标, 坐标组, , "6"<br /> .程序集变量 偏坐标, 坐标组, , "6"<br /> .程序集变量 全局确认X, 整数型<br /> .程序集变量 全局确认Y, 整数型<br /> .程序集变量 鼠标钩子句柄, 整数型<br /> .程序集变量 键盘钩子句柄, 整数型<br /> .程序集变量 右键按下, 逻辑型<br /> .程序集变量 左键按下, 逻辑型<br /> .程序集变量 组合已触发, 逻辑型<br /> .程序集变量 当前类型, 文本型<br /> .程序集变量 当前方向, 文本型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 全局确认X ＝ 0<br /> 全局确认Y ＝ 0<br /> 标签_状态.标题 ＝ “状态：未启用钩子”<br /> <br /> .子程序 __启动窗口_将被销毁<br /> <br /> .如果真 (鼠标钩子句柄 ≠ 0)<br /> <br /> .如果真结束<br /> UnhookWindowsHookEx (鼠标钩子句柄)<br /> <br /> .如果真 (键盘钩子句柄 ≠ 0)<br /> <br /> .如果真结束<br /> UnhookWindowsHookEx (键盘钩子句柄)<br /> <br /> <br /> .子程序 _按钮_设置坐标_被单击<br /> <br /> 载入 (窗口_坐标设置, , 假)<br /> <br /> .子程序 _按钮_安装钩子_被单击<br /> <br /> 鼠标钩子句柄 ＝ SetWindowsHookExA (14, &鼠标回调, GetModuleHandle (0), 0)<br /> 键盘钩子句柄 ＝ SetWindowsHookExA (13, &键盘回调, GetModuleHandle (0), 0)<br /> 标签_状态.标题 ＝ “状态：钩子已启用”<br /> <br /> .子程序 _按钮_卸载钩子_被单击<br /> <br /> .如果真 (鼠标钩子句柄 ≠ 0)<br /> <br /> .如果真结束<br /> UnhookWindowsHookEx (鼠标钩子句柄)<br /> 鼠标钩子句柄 ＝ 0<br /> <br /> .如果真 (键盘钩子句柄 ≠ 0)<br /> <br /> .如果真结束<br /> UnhookWindowsHookEx (键盘钩子句柄)<br /> 键盘钩子句柄 ＝ 0<br /> <br /> 标签_状态.标题 ＝ “状态：钩子已卸载”<br /> <br /> <br /> .子程序 鼠标回调, 整数型<br /> .参数 nCode, 整数型<br /> .参数 wParam, 整数型<br /> .参数 lParam, 整数型<br /> <br /> .如果真 (nCode ＝ 0)<br /> <br /> .如果真结束<br /> .如果真 (wParam ＝ 516)  ' 右键按下<br /> <br /> .如果真结束<br /> 右键按下 ＝ 真<br /> 组合已触发 ＝ 假<br /> <br /> .如果真 (wParam ＝ 517)  ' 右键弹起<br /> <br /> .如果真结束<br /> .如果真 (右键按下)<br /> <br /> .如果真结束<br /> .如果 (组合已触发)<br /> <br /> .否则<br /> <br /> .如果结束<br /> 右键按下 ＝ 假<br /> 返回 (1)<br /> <br /> 右键按下 ＝ 假<br /> .如果真 (wParam ＝ 513)  ' 左键按下<br /> <br /> .如果真结束<br /> 左键按下 ＝ 真<br /> 组合已触发 ＝ 假<br /> <br /> .如果真 (wParam ＝ 514)  ' 左键弹起<br /> <br /> .如果真结束<br /> .如果真 (左键按下)<br /> <br /> .如果真结束<br /> .如果 (组合已触发)<br /> <br /> .否则<br /> <br /> .如果结束<br /> 左键按下 ＝ 假<br /> 返回 (1)<br /> <br /> 左键按下 ＝ 假<br /> 返回 (CallNextHookEx (鼠标钩子句柄, nCode, wParam, lParam))<br /> <br /> .子程序 键盘回调, 整数型<br /> .参数 nCode, 整数型<br /> .参数 wParam, 整数型<br /> .参数 lParam, 整数型<br /> .局部变量 键值, 整数型<br /> .局部变量 方向, 文本型<br /> .局部变量 类型, 文本型<br /> <br /> .如果真 (nCode ＝ 0)<br /> <br /> .如果真结束<br /> 键值 ＝ 取字节集数据 (指针到字节集 (lParam, 1), 3, )<br /> .如果真 (wParam ＝ 256)  ' WM_KEYDOWN<br /> <br /> .如果真结束<br /> 方向 ＝ “”<br /> 类型 ＝ “”<br /> <br /> ' 使用如果真分别处理每个键<br /> .如果真 (键值 ＝ #W键)<br /> <br /> .如果真结束<br /> .如果真 (右键按下)<br /> <br /> .如果真结束<br /> 类型 ＝ “延”<br /> <br /> .如果真 (左键按下)<br /> <br /> .如果真结束<br /> 类型 ＝ “偏”<br /> <br /> 方向 ＝ “上”<br /> <br /> <br /> .如果真 (键值 ＝ #S键)<br /> <br /> .如果真结束<br /> .如果真 (右键按下)<br /> <br /> .如果真结束<br /> 类型 ＝ “延”<br /> <br /> .如果真 (左键按下)<br /> <br /> .如果真结束<br /> 类型 ＝ “偏”<br /> <br /> 方向 ＝ “下”<br /> <br /> <br /> .如果真 (键值 ＝ #A键)<br /> <br /> .如果真结束<br /> .如果真 (右键按下)<br /> <br /> .如果真结束<br /> 类型 ＝ “延”<br /> <br /> .如果真 (左键按下)<br /> <br /> .如果真结束<br /> 类型 ＝ “偏”<br /> <br /> 方向 ＝ “左”<br /> <br /> <br /> .如果真 (键值 ＝ #D键)<br /> <br /> .如果真结束<br /> .如果真 (右键按下)<br /> <br /> .如果真结束<br /> 类型 ＝ “延”<br /> <br /> .如果真 (左键按下)<br /> <br /> .如果真结束<br /> 类型 ＝ “偏”<br /> <br /> 方向 ＝ “右”<br /> <br /> <br /> .如果真 (键值 ＝ #Q键)<br /> <br /> .如果真结束<br /> .如果真 (右键按下)<br /> <br /> .如果真结束<br /> 类型 ＝ “延”<br /> <br /> .如果真 (左键按下)<br /> <br /> .如果真结束<br /> 类型 ＝ “偏”<br /> <br /> 方向 ＝ “前”<br /> <br /> <br /> .如果真 (键值 ＝ #E键)<br /> <br /> .如果真结束<br /> .如果真 (右键按下)<br /> <br /> .如果真结束<br /> 类型 ＝ “延”<br /> <br /> .如果真 (左键按下)<br /> <br /> .如果真结束<br /> 类型 ＝ “偏”<br /> <br /> 方向 ＝ “后”<br /> <br /> <br /> ' 如果类型有效且本轮未触发过<br /> .如果真 (类型 ≠ “” 且 组合已触发 ＝ 假)<br /> <br /> .如果真结束<br /> 组合已触发 ＝ 真<br /> 当前类型 ＝ 类型<br /> 当前方向 ＝ 方向<br /> 载入 (窗口_输入, , 真)<br /> 返回 (1)<br /> 返回 (CallNextHookEx (键盘钩子句柄, nCode, wParam, lParam))<br /> <br /> .子程序 执行填表<br /> .参数 数值, 文本型<br /> .参数 类型, 文本型<br /> .参数 方向, 文本型<br /> .局部变量 序号, 整数型<br /> .局部变量 ix, 整数型<br /> .局部变量 iy, 整数型<br /> .局部变量 标题, 文本型<br /> .局部变量 句柄, 整数型<br /> <br /> 序号 ＝ 0<br /> ' 用如果真替代判断<br /> .如果真 (方向 ＝ “上”)<br /> <br /> .如果真结束<br /> 序号 ＝ 1<br /> <br /> .如果真 (方向 ＝ “下”)<br /> <br /> .如果真结束<br /> 序号 ＝ 2<br /> <br /> .如果真 (方向 ＝ “左”)<br /> <br /> .如果真结束<br /> 序号 ＝ 3<br /> <br /> .如果真 (方向 ＝ “右”)<br /> <br /> .如果真结束<br /> 序号 ＝ 4<br /> <br /> .如果真 (方向 ＝ “前”)<br /> <br /> .如果真结束<br /> 序号 ＝ 5<br /> <br /> .如果真 (方向 ＝ “后”)<br /> <br /> .如果真结束<br /> 序号 ＝ 6<br /> <br /> <br /> .如果真 (序号 ＝ 0)<br /> <br /> .如果真结束<br /> 返回 ()<br /> <br /> <br /> ' 类型判断也用如果真<br /> .如果真 (类型 ＝ “延”)<br /> <br /> .如果真结束<br /> ix ＝ 延坐标 [序号].输入框X<br /> iy ＝ 延坐标 [序号].输入框Y<br /> 标题 ＝ 延坐标 [序号].窗口标题<br /> <br /> .如果真 (类型 ＝ “偏”)<br /> <br /> .如果真结束<br /> ix ＝ 偏坐标 [序号].输入框X<br /> iy ＝ 偏坐标 [序号].输入框Y<br /> 标题 ＝ 偏坐标 [序号].窗口标题<br /> <br /> <br /> 句柄 ＝ 窗口_取句柄 (, , 标题)<br /> .如果真 (句柄 ＝ 0)<br /> <br /> .如果真结束<br /> 信息框 (“未找到目标窗口，请检查窗口标题是否配置正确！”, 0, “错误”, )<br /> 返回 ()<br /> <br /> <br /> 鼠标_消息 (句柄, ix, iy, 1, 1)<br /> 程序_延时 (100)<br /> 置剪辑板文本 (数值)<br /> 程序_延时 (50)<br /> 键盘_组合按键 (#Ctrl键, #V键)<br /> 程序_延时 (100)<br /> .如果真 (全局确认X ≠ 0 或 全局确认Y ≠ 0)<br /> <br /> .如果真结束<br /> 鼠标_消息 (句柄, 全局确认X, 全局确认Y, 1, 1)<br /> <br /> 窗口2代码<br /> .版本 2<br /> <br /> .程序集 窗口程序集_窗口_输入<br /> .程序集变量 前缀, 文本型<br /> .程序集变量 方向, 文本型<br /> .程序集变量 类型, 文本型<br /> <br /> .子程序 _窗口_输入_创建完毕<br /> .局部变量 x, 整数型<br /> .局部变量 y, 整数型<br /> <br /> 边框 ＝ 0<br /> 宽度 ＝ 180<br /> 高度 ＝ 24<br /> 窗口_置顶 (取窗口句柄 (), 真)<br /> <br /> ' 易语言自带取鼠标位置<br /> x ＝ 取鼠标水平位置 ()<br /> y ＝ 取鼠标垂直位置 ()<br /> 左边 ＝ x<br /> 顶边 ＝ y － 30<br /> <br /> 类型 ＝ _启动窗口.当前类型<br /> 方向 ＝ _启动窗口.当前方向<br /> 前缀 ＝ 方向 ＋ 类型 ＋ “ ”<br /> <br /> 编辑框_数值.内容 ＝ 前缀<br /> 编辑框_数值.起始选择位置 ＝ 取文本长度 (前缀)<br /> 编辑框_数值.获取焦点 ()<br /> <br /> .子程序 _窗口_输入_按下某键<br /> .参数 键代码, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 数值, 文本型<br /> <br /> .如果真 (键代码 ＝ #空格键)<br /> <br /> .如果真结束<br /> 数值 ＝ 取文本右边 (编辑框_数值.内容, 取文本长度 (编辑框_数值.内容) － 取文本长度 (前缀))<br /> 数值 ＝ 删首尾空 (数值)<br /> .如果真 (数值 ≠ “”)<br /> <br /> .如果真结束<br /> _启动窗口.执行填表 (数值, 类型, 方向)<br /> 销毁 ()<br /> 返回 ()<br /> <br /> ' 退格键保护<br /> .如果真 (键代码 ＝ #退格键)<br /> <br /> .如果真结束<br /> .如果真 (编辑框_数值.起始选择位置 ≤ 取文本长度 (前缀))<br /> <br /> .如果真结束<br /> 返回 ()<br /> <br /> ' Delete键保护<br /> .如果真 (键代码 ＝ #Del键)<br /> <br /> .如果真结束<br /> .如果真 (编辑框_数值.起始选择位置 ＜ 取文本长度 (前缀))<br /> <br /> .如果真结束<br /> 返回 ()<br /> <br /> .子程序 _编辑框_数值_内容被改变<br /> <br /> .如果真 (取文本左边 (编辑框_数值.内容, 取文本长度 (前缀)) ≠ 前缀)<br /> <br /> .如果真结束<br /> 编辑框_数值.内容 ＝ 前缀 ＋ 删首尾空 (编辑框_数值.内容)<br /> 编辑框_数值.起始选择位置 ＝ 取文本长度 (前缀)<br /> <br /> 窗口3代码<br /> .版本 2<br /> <br /> .程序集 窗口程序集_窗口_坐标设置<br /> .程序集变量 类型索引, 整数型<br /> .程序集变量 方向索引, 整数型<br /> <br /> .子程序 __窗口_坐标设置_创建完毕<br /> <br /> 组合框_类型.加入项目 (“延”, )<br /> 组合框_类型.加入项目 (“偏”, )<br /> 组合框_类型.现行选中项 ＝ 0<br /> <br /> 组合框_方向.加入项目 (“上”, )<br /> 组合框_方向.加入项目 (“下”, )<br /> 组合框_方向.加入项目 (“左”, )<br /> 组合框_方向.加入项目 (“右”, )<br /> 组合框_方向.加入项目 (“前”, )<br /> 组合框_方向.加入项目 (“后”, )<br /> 组合框_方向.现行选中项 ＝ 0<br /> <br /> 刷新显示 ()<br /> <br /> .子程序 _组合框_类型_列表项被选择<br /> <br /> 类型索引 ＝ 组合框_类型.现行选中项<br /> 刷新显示 ()<br /> <br /> .子程序 _组合框_方向_列表项被选择<br /> <br /> 方向索引 ＝ 组合框_方向.现行选中项<br /> 刷新显示 ()<br /> <br /> .子程序 刷新显示<br /> .局部变量 序号, 整数型<br /> .局部变量 arr, 坐标组, , "6"<br /> <br /> 序号 ＝ 方向索引 ＋ 1<br /> ' 替换掉原来的 如果 (类型索引 ＝ 0) ... 否则 ... 如果结束<br /> .如果真 (类型索引 ＝ 0)<br /> <br /> .如果真结束<br /> arr ＝ _启动窗口.延坐标<br /> <br /> .如果真 (类型索引 ＝ 1)<br /> <br /> .如果真结束<br /> arr ＝ _启动窗口.偏坐标<br /> <br /> <br /> 编辑框_输入X.内容 ＝ 到文本 (arr [序号].输入框X)<br /> 编辑框_输入Y.内容 ＝ 到文本 (arr [序号].输入框Y)<br /> 编辑框_窗口标题.内容 ＝ arr [序号].窗口标题<br /> 编辑框_全局X.内容 ＝ 到文本 (_启动窗口.全局确认X)<br /> 编辑框_全局Y.内容 ＝ 到文本 (_启动窗口.全局确认Y)<br /> <br /> .子程序 _按钮_保存_被单击<br /> .局部变量 序号, 整数型<br /> .局部变量 arr, 坐标组, , "6"<br /> <br /> 序号 ＝ 方向索引 ＋ 1<br /> ' 第一处：读取坐标数组<br /> .如果真 (类型索引 ＝ 0)<br /> <br /> .如果真结束<br /> arr ＝ _启动窗口.延坐标<br /> <br /> .如果真 (类型索引 ＝ 1)<br /> <br /> .如果真结束<br /> arr ＝ _启动窗口.偏坐标<br /> <br /> <br /> ' ... 中间保存坐标的代码 ...<br /> <br /> ' 第二处：写回数组<br /> .如果真 (类型索引 ＝ 0)<br /> <br /> .如果真结束<br /> _启动窗口.延坐标 ＝ arr<br /> <br /> .如果真 (类型索引 ＝ 1)<br /> <br /> .如果真结束<br /> _启动窗口.偏坐标 ＝ arr<br /> <br /> <br /> _启动窗口.全局确认X ＝ 到整数 (编辑框_全局X.内容)<br /> _启动窗口.全局确认Y ＝ 到整数 (编辑框_全局Y.内容)<br /> <br /> 信息框 (“保存成功！”, 0, “提示”, )<br /> <br /> .子程序 _窗口_坐标设置_创建完毕<br /> <br /> dll命令定义表<br /> .版本 2<br /> <br /> .DLL命令 SetWindowsHookExA, , "user32.dll", "SetWindowsHookExA"<br />     .参数 idHook, 整数型<br />     .参数 lpfn, 子程序指针<br />     .参数 hmod, 整数型<br />     .参数 dwThreadId, 整数型<br /> <br /> .DLL命令 UnhookWindowsHookEx, 整数型, "user32.dll", "UnhookWindowsHookEx"<br />     .参数 hhk, 整数型<br /> <br /> .DLL命令 CallNextHookEx, 整数型, "user32.dll", "CallNextHookEx"<br />     .参数 hhk, 整数型<br />     .参数 nCode, 整数型<br />     .参数 wParam, 整数型<br />     .参数 lParam, 整数型<br /> <br /> .DLL命令 GetModuleHandle, 整数型, "kernel32.dll", "GetModuleHandleA"<br />     .参数 lpModuleName, 整数型

longtxiao

是永乐哟 发表于 2026-4-28 22:48
ai生成的吧

是啊  我不会写 我想做个 组合快捷键使用程序 用ai弄得 结果不行  哈哈

longtxiao

是永乐哟 发表于 2026-4-30 00:12
直接调用了精易模块，应该不许要我发你模块吧
原理和ai给你生成的是一样的，都是调用系统api
模块给封装 ...

这个太难啦 用文字表达不出意思   能留个QQ方式嘛  我录制了个小视频想请教下你

是永乐哟

longtxiao 发表于 2026-4-30 20:58
这个太难啦 用文字表达不出意思   能留个QQ方式嘛  我录制了个小视频想请教下你  ...

可以的qq：3493127343