易语⾔仿按键精灵录制键盘⿏标操作的代码

DLL

命令表

.

版本

 2

.DLL

命令

取按键状态

, 

短整数型

, "user32.dll", "GetAsyncKeyState"

  .

参数

⿏标键

, 

整数型

.DLL

命令

取⿏标位置

, 

整数型

, "user32.dll", "GetCursorPos"

  .

参数

当前⿏标位置

, 

⿏标位置

, 

传址

.DLL

命令

模拟⿏标按键

, , , "mouse_event"

  .

参数

⿏标动作

, 

整数型

  .

参数

⽔平位置

, 

整数型

  .

参数

垂直位置

, 

整数型

  .

参数

⿏标按键

, 

整数型

  .

参数

扩展信息

, 

整数型

.DLL

命令

模拟键盘按键

, , , "keybd_event"

  .

参数

 bVk, 

字节型

  .

参数

 bScan, 

字节型

  .

参数

 dwFlags, 

整数型

  .

参数

 dwExtraInfo, 

整数型

⾃定义数据类型

.

版本

 2

.

数据类型

⿏标位置

  .

成员

横向坐标

, 

整数型

  .

成员

纵向坐标

, 

整数型

.

数据类型

按键记录

, , 

记录长度

13

个字节

.

  .

成员

时间间隔

, 

整数型

  .

成员

键值

, 

字节型

, , , 0

，⿏标移动；其他为键盘键值

  .

成员

键盘动作

, 

整数型

, , , 

或者是

⿏标⽔平位置

  .

成员

垂直位置

, 

整数型

, , , 

⿏标垂直位置

⿏标键盘录制的代码

.

版本

 2

.

程序集

程序集

_

主窗⼝

.

程序集变量

按键状态

, 

整数型

, , "256"

.

程序集变量

时间线

, 

整数型

.

程序集变量

⿏标前次位置

, 

⿏标位置

.

程序集变量

操作记录

, 

按键记录

, , "92000"

.

程序集变量

缓冲区记录数

, 

⽂本型

.

程序集变量

当前记录

, 

整数型

.

程序集变量

可否中断

, 

逻辑型

.

程序集变量

屏幕宽度

, 

整数型

.

程序集变量

屏幕⾼度

, 

整数型

.

程序集变量

停⽌回放

, 

逻辑型

.

⼦程序

判断按键

.

参数

键值

, 

字节型

.

参数

当前状态

, 

整数型

.

判断开始

 (

当前状态

＝

 0)

  .

如果真

 (

按键状态

 [

键值

＋

 1] ≠ 0)

添加记录

 (

键值

, #

键抬起

, 0)

  .

如果真结束

.

判断

 (

当前状态

 ≠ 0)

  .

如果

 (

键值

＝

 #F3

键

)

可否中断

＝

真

返回

 ()

  .

否则

  .

如果结束

  .

如果真

 (

按键状态

 [

键值

＋

 1] 

＝

 0)

添加记录

 (

键值

, #

键按下

, 0)

  .

如果真结束

.

默认

.

判断结束

按键状态

 [

键值

＋

 1] 

＝

当前状态

.

⼦程序

添加记录

.

参数

键值

, 

字节型

, , 

为

0

表⽰⿏标移动，其他表⽰按键

.

参数

键盘动作

, 

整数型

, , 

或

 “

⽔平位置

”

，传⼊的双精度数

.

参数

垂直位置

, 

整数型

当前记录

＝

当前记录

＋

 1

.

如果

 (

当前记录

＞

取数组成员数

 (

操作记录

))

可否中断

＝

真

信息框

 (“

缓冲区已满，录制被迫中⽌。

”, #

错误图标

, “

录制出错

”)