易语言记录键盘的命令

① 易语言怎么制作游戏键盘记录器

vb制作键盘记录器（开源代码）这个是我几个月前写的给大家共享下，语言：vb。原理是利用GetAsyncKeyState函数来判断某个键
是否被按下。如果按下就啊text上面显示被按下的键
新建个模块添加代码源码如下
Public Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer

Public Sub Key_Eye()

If GetAsyncKeyState(vbKeyCancel) Then
Form1.Text1.Text = Form1.Text1.Text & "CANCEL 键 "
End If

End If

If GetAsyncKeyState(vbKeyBack) Then
Form1.Text1.Text = Form1.Text1.Text & "BACKSPACE 键 "
End If

If GetAsyncKeyState(vbKeyTab) Then
Form1.Text1.Text = Form1.Text1.Text & "TAB 键 "
End If

If GetAsyncKeyState(vbKeyClear) Then
Form1.Text1.Text = Form1.Text1.Text & "CLEAR 键 "
End If

If GetAsyncKeyState(vbKeyReturn) Then
Form1.Text1.Text = Form1.Text1.Text & vbCrLf
End If

If GetAsyncKeyState(vbKeyShift) Then
Form1.Text1.Text = Form1.Text1.Text & "SHIFT 键 "
End If

If GetAsyncKeyState(vbKeyControl) Then
Form1.Text1.Text = Form1.Text1.Text & "CTRL 键 "
End If

If GetAsyncKeyState(vbKeyMenu) Then
Form1.Text1.Text = Form1.Text1.Text & "ALT 键 "
End If

If GetAsyncKeyState(vbKeyPause) Then
Form1.Text1.Text = Form1.Text1.Text & "PAUSE 键 "
End If

If GetAsyncKeyState(vbKeyCapital) Then
Form1.Text1.Text = Form1.Text1.Text & "CAPS LOCK 键 "
End If

If GetAsyncKeyState(vbKeyEscape) Then
Form1.Text1.Text = Form1.Text1.Text & "ESC 键 "
End If

If GetAsyncKeyState(vbKeySpace) Then
Form1.Text1.Text = Form1.Text1.Text & " "
End If

If GetAsyncKeyState(vbKeyPageUp) Then
Form1.Text1.Text = Form1.Text1.Text & "PAGE UP 键 "
End If

If GetAsyncKeyState(vbKeyPageDown) Then
Form1.Text1.Text = Form1.Text1.Text & "PAGE DOWN 键 "
End If

If GetAsyncKeyState(vbKeyEnd) Then
Form1.Text1.Text = Form1.Text1.Text & "END 键 "
End If

If GetAsyncKeyState(vbKeyHome) Then
Form1.Text1.Text = Form1.Text1.Text & "HOME 键 "
End If

If GetAsyncKeyState(vbKeyLeft) Then
Form1.Text1.Text = Form1.Text1.Text & "LEFT ARROW 键 "
End If

If GetAsyncKeyState(vbKeyUp) Then
Form1.Text1.Text = Form1.Text1.Text & "UP ARROW 键 "
End If

If GetAsyncKeyState(vbKeyRight) Then
Form1.Text1.Text = Form1.Text1.Text & "RIGHT ARROW 键 "
End If

If GetAsyncKeyState(vbKeyDown) Then
Form1.Text1.Text = Form1.Text1.Text & "DOWN ARROW 键 "
End If

If GetAsyncKeyState(vbKeySelect) Then
Form1.Text1.Text = Form1.Text1.Text & "SELECT 键 "
End If

If GetAsyncKeyState(vbKeyPrint) Then
Form1.Text1.Text = Form1.Text1.Text & "PRINT SCREEN 键 "
End If

If GetAsyncKeyState(vbKeyExecute) Then
Form1.Text1.Text = Form1.Text1.Text & "EXECUTE 键 "
End If

If GetAsyncKeyState(vbKeySnapshot) Then
Form1.Text1.Text = Form1.Text1.Text & "SNAPSHOT 键 "
End If

If GetAsyncKeyState(vbKeyInsert) Then
Form1.Text1.Text = Form1.Text1.Text & "INSERT 键 "
End If

If GetAsyncKeyState(vbKeyDelete) Then
Form1.Text1.Text = Form1.Text1.Text & "DELETE 键 "
End If

If GetAsyncKeyState(vbKeyHelp) Then
Form1.Text1.Text = Form1.Text1.Text & "HELP 键 "
End If

If GetAsyncKeyState(vbKeyNumlock) Then
Form1.Text1.Text = Form1.Text1.Text & "NUM LOCK 键 "
End If

If GetAsyncKeyState(65) Then
Form1.Text1.Text = Form1.Text1.Text & "a"
End If

If GetAsyncKeyState(66) Then
Form1.Text1.Text = Form1.Text1.Text & "b"
End If

If GetAsyncKeyState(67) Then
Form1.Text1.Text = Form1.Text1.Text & "c"
End If

If GetAsyncKeyState(68) Then
Form1.Text1.Text = Form1.Text1.Text & "d"
End If

If GetAsyncKeyState(69) Then
Form1.Text1.Text = Form1.Text1.Text & "e"
End If

If GetAsyncKeyState(70) Then
Form1.Text1.Text = Form1.Text1.Text & "f"
End If

If GetAsyncKeyState(71) Then
Form1.Text1.Text = Form1.Text1.Text & "g"
End If

If GetAsyncKeyState(72) Then
Form1.Text1.Text = Form1.Text1.Text & "h"
End If

If GetAsyncKeyState(73) Then
Form1.Text1.Text = Form1.Text1.Text & "i"
End If

If GetAsyncKeyState(74) Then
Form1.Text1.Text = Form1.Text1.Text & "j"
End If

If GetAsyncKeyState(75) Then
Form1.Text1.Text = Form1.Text1.Text & "k"
End If

If GetAsyncKeyState(76) Then
Form1.Text1.Text = Form1.Text1.Text & "l"
End If

If GetAsyncKeyState(77) Then
Form1.Text1.Text = Form1.Text1.Text & "m"
End If

If GetAsyncKeyState(78) Then
Form1.Text1.Text = Form1.Text1.Text & "n"
End If

If GetAsyncKeyState(79) Then
Form1.Text1.Text = Form1.Text1.Text & "o"
End If

If GetAsyncKeyState(80) Then
Form1.Text1.Text = Form1.Text1.Text & "p"
End If

If GetAsyncKeyState(81) Then
Form1.Text1.Text = Form1.Text1.Text & "q"
End If

If GetAsyncKeyState(82) Then
Form1.Text1.Text = Form1.Text1.Text & "r"
End If

If GetAsyncKeyState(83) Then
Form1.Text1.Text = Form1.Text1.Text & "s"
End If

If GetAsyncKeyState(84) Then
Form1.Text1.Text = Form1.Text1.Text & "t"
End If

If GetAsyncKeyState(85) Then
Form1.Text1.Text = Form1.Text1.Text & "u"
End If

If GetAsyncKeyState(86) Then
Form1.Text1.Text = Form1.Text1.Text & "v"
End If

If GetAsyncKeyState(87) Then
Form1.Text1.Text = Form1.Text1.Text & "w"
End If

If GetAsyncKeyState(88) Then
Form1.Text1.Text = Form1.Text1.Text & "x"
End If

If GetAsyncKeyState(89) Then
Form1.Text1.Text = Form1.Text1.Text & "y"
End If

If GetAsyncKeyState(90) Then
Form1.Text1.Text = Form1.Text1.Text & "z"
End If

If GetAsyncKeyState(48) Then
Form1.Text1.Text = Form1.Text1.Text & "0"
End If

If GetAsyncKeyState(49) Then
Form1.Text1.Text = Form1.Text1.Text & "1"
End If

If GetAsyncKeyState(50) Then
Form1.Text1.Text = Form1.Text1.Text & "2"
End If

If GetAsyncKeyState(51) Then
Form1.Text1.Text = Form1.Text1.Text & "3"
End If

If GetAsyncKeyState(52) Then
Form1.Text1.Text = Form1.Text1.Text & "4"
End If

If GetAsyncKeyState(53) Then
Form1.Text1.Text = Form1.Text1.Text & "5"
End If

If GetAsyncKeyState(54) Then
Form1.Text1.Text = Form1.Text1.Text & "6"
End If

If GetAsyncKeyState(55) Then
Form1.Text1.Text = Form1.Text1.Text & "7"
End If

If GetAsyncKeyState(56) Then
Form1.Text1.Text = Form1.Text1.Text & "8"
End If

If GetAsyncKeyState(57) Then
Form1.Text1.Text = Form1.Text1.Text & "9"
End If

If GetAsyncKeyState(vbKeyNumpad0) Then
Form1.Text1.Text = Form1.Text1.Text & "0"
End If

If GetAsyncKeyState(vbKeyNumpad1) Then
Form1.Text1.Text = Form1.Text1.Text & "1"
End If

If GetAsyncKeyState(vbKeyNumpad2) Then
Form1.Text1.Text = Form1.Text1.Text & "2"
End If

If GetAsyncKeyState(vbKeyNumpad3) Then
Form1.Text1.Text = Form1.Text1.Text & "3"
End If

If GetAsyncKeyState(vbKeyNumpad4) Then
Form1.Text1.Text = Form1.Text1.Text & "4"
End If

② 易语言怎样写键盘操作快捷键

用到输入设备这个控件，然后写代码：（其实利用这个控件还可以做一些游戏的连发效果）

.版本 2
.支持库 EdirectX
.支持库 eAPI
.子程序 __启动窗口_创建完毕
输入设备1.选择输入设备 (真, 真, 假)
输入设备1.置刷新时间 (50)
输入设备1.初始化 (0)
.子程序 _输入设备1_键盘按键状态被改变
.参数 键值, 整数型
.参数 键状态, 整数型
.局部变量 X
.局部变量 Y
.如果真 (键值 ＝ #键值常量.键F2)
.如果真 (键状态 ＝ 2)
模拟按键 (#A键, #B键, #C键)
.如果真结束
.如果真结束

③ 易语言做键盘记录器的源码

易语言做键盘记录器的源码如下：
程序集 窗口程序集1
子程序 __启动窗口_创建完毕
SkinH_Attach ()
编辑框1禁止 ＝ 真
停止按钮禁止 ＝ 真
信息框 (“欢迎使用小天键盘记录系统，在关闭此记录系统后，会自动保存记录的内容到运行目录！”, #信息图标, “欢迎使用！”)
子程序 _停止按钮_被单击
开始按钮禁止 ＝ 假
编辑框1禁止 ＝ 真
时钟1时钟周期 ＝ 0
停止按钮禁止 ＝ 真
子程序 _开始按钮_被单击
开始按钮禁止 ＝ 真
编辑框1禁止 ＝ 假
时钟1时钟周期 ＝ 50
停止按钮禁止 ＝ 假
子程序 _时钟1_周期事件
编辑框1加入文本 (看看按键 ())
子程序 _按钮1_被单击
编辑框1内容 ＝ “ ”
子程序 __启动窗口_可否被关闭, 逻辑型
写到文件 (取运行目录 () ＋ “\记录内容txt”, 到字节集 (编辑框1内容))
销毁 ()
子程序 _按钮2_被单击
删除文件 (取运行目录 () ＋ “\记录内容txt”)

④ 易语言做键盘记录器的源码

易语言做键盘记录器的源码如下：

程序集
窗口程序集1

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

SkinH_Attach
()

编辑框1禁止
＝
真

停止按钮禁止
＝
真

信息框
(“欢迎使用小天键盘记录系统，在关闭此记录系统后，会自动保存记录的内容到运行目录！”,
#信息图标,
“欢迎使用！”)

子程序
_停止按钮_被单击

开始按钮禁止
＝
假

编辑框1禁止
＝
真

时钟1时钟周期
＝
0

停止按钮禁止
＝
真

子程序
_开始按钮_被单击

开始按钮禁止
＝
真

编辑框1禁止
＝
假

时钟1时钟周期
＝
50

停止按钮禁止
＝
假

子程序
_时钟1_周期事件

编辑框1加入文本
(看看按键
())

子程序
_按钮1_被单击

编辑框1内容
＝
“
”

子程序
__启动窗口_可否被关闭,
逻辑型

写到文件
(取运行目录
()
＋
“\记录内容txt”,
到字节集
(编辑框1内容))

销毁
()

子程序
_按钮2_被单击

删除文件
(取运行目录
()
＋
“\记录内容txt”)

⑤ 如何让易语言输入框里面显示当前按下的是某个键

.版本 2

.子程序 _编辑框1_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型

.如果真 (键代码 ＝ 13)
编辑框1.内容 ＝ “Enter”
.如果真结束

我只能这样理解你的话
不知道是不是你要的