易語言記錄鍵盤的命令

① 易語言怎麼製作游戲鍵盤記錄器

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」
.如果真結束

我只能這樣理解你的話
不知道是不是你要的