Question

求一个易语言模拟按键例程

Answer 1

.版本 2
.DLL命令 发送消息, 整数型, , "SendMessageA"
.参数 窗口句柄, 整数型
.参数 消息, 整数型
.参数 参数1, 整数型
.参数 参数2, 整数型
.DLL命令 模拟键盘, 整数型, , "keybd_event"
.参数 键代码, 字节型
.参数 扫描码, 字节型, , 从 取键扫描码(键代码,0) 返回
.参数 事件, 整数型, , 0下2起
.参数 扩展数据信息, 整数型, , 未使用
.DLL命令 取键扫描码, 字节型, , "MapVirtualKeyA"
.参数 键代码, 字节型
.参数 类型, 整数型, , 0

.子程序 Send_按键, , , SendMsg
.参数 窗口句柄, 整数型
.参数 键代码, 整数型
发送消息 (窗口句柄, 256, 键代码, 0)
延时 (50)
发送消息 (窗口句柄, 257, 键代码, 0)

.子程序 按键, , , keybd_event
.参数 键代码, 整数型
.参数 功能键, 整数型, 可空, Ctrl=1 Shift=2 Alt=4
.局部变量 Ctrl, 逻辑型
.局部变量 Shift, 逻辑型
.局部变量 ALT, 逻辑型
Ctrl ＝ 位与 (功能键, 1) ＝ 1
Shift ＝ 位与 (功能键, 2) ＝ 2
ALT ＝ 位与 (功能键, 4) ＝ 4
.如果真 (Ctrl)
模拟键盘 (17, 取键扫描码 (17, 0), 0, 0)
.如果真结束
.如果真 (Shift)
模拟键盘 (16, 取键扫描码 (16, 0), 0, 0)
.如果真结束
.如果真 (ALT)
模拟键盘 (18, 取键扫描码 (18, 0), 0, 0)
.如果真结束
模拟键盘 (键代码, 取键扫描码 (键代码, 0), 0, 0)
模拟键盘 (键代码, 取键扫描码 (键代码, 0), 2, 0)
.如果真 (Ctrl)
模拟键盘 (17, 取键扫描码 (17, 0), 2, 0)
.如果真结束
.如果真 (Shift)
模拟键盘 (16, 取键扫描码 (16, 0), 2, 0)
.如果真结束
.如果真 (ALT)
模拟键盘 (18, 取键扫描码 (18, 0), 2, 0)
.如果真结束