前台大漠命令失效问题

admin5年前 (2022-03-10)易语言问答3733
有人知道这个dm.keydown为啥会无效吗
每次返回都是1但是按键没有反应
用记事本测试的两台电脑都时这种情况。

我的代码逻辑是按↑则按下w,按↓则按下s
测试的时候我是按一个↑一个↓这样的。结果可能是wsswswswwss
而且第一次按键的时候要延时2秒左右才会有响应。

下面是完整程序

.版本 2
.支持库 shellEx
.支持库 dm

.程序集 窗口程序集_启动窗口
.程序集变量 上键
.程序集变量 下键

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

上键 = 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, 38)
下键 = 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, 40)

.子程序 _标签1_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型

.如果真 (参数一 = 上键)
    输出调试文本 (“上”)
    _上_被单击 ()
    延时 (2)
.如果真结束

.如果真 (参数一 = 下键)
    _下_被单击 ()
    输出调试文本 (“下”)
    延时 (2)
.如果真结束


.子程序 _上_被单击

延时 (2)
dm.KeyDown (87)
延时 (25)
dm.KeyUp (87)
延时 (2)

.子程序 _下_被单击

延时 (2)
dm.KeyDown (83)
延时 (25)
dm.KeyUp (83)
延时 (2)