編輯框1.加入文本 (鍵盤記錄 (取鍵盤指示燈狀態 (1)))
.版本 2
.子程序 鍵盤記錄, 文本型
.參數 大小寫狀態, 邏輯型
.局部變量 回車, 整數型
.局部變量 空格, 整數型
.局部變量 Q, 整數型
.局部變量 W, 整數型
.局部變量 E, 整數型
.局部變量 R, 整數型
.局部變量 T, 整數型
.局部變量 Y, 整數型
.局部變量 U, 整數型
.局部變量 I, 整數型
.局部變量 O, 整數型
.局部變量 P, 整數型
.局部變量 A, 整數型
.局部變量 S, 整數型
.局部變量 D, 整數型
.局部變量 F, 整數型
.局部變量 G, 整數型
.局部變量 H, 整數型
.局部變量 J, 整數型
.局部變量 K, 整數型
.局部變量 L, 整數型
.局部變量 Z, 整數型
.局部變量 C, 整數型
.局部變量 V, 整數型
.局部變量 x, 整數型
.局部變量 B, 整數型
.局部變量 N, 整數型
.局部變量 M
.局部變量 S1
.局部變量 S2
.局部變量 S3
.局部變量 S4
.局部變量 S5
.局部變量 S6
.局部變量 S7
.局部變量 S8
.局部變量 S9
.局部變量 S0
.局部變量 加
.局部變量 減
.局部變量 除
.局部變量 飛
.局部變量 BACK
.局部變量 TAB
.局部變量 Ctrl
.局部變量 Alt
.局部變量 大寫
.局部變量 Shift
.局部變量 Win
.局部變量 n1
.局部變量 n2
.局部變量 n3
.局部變量 n4
.局部變量 n5
.局部變量 n6
.局部變量 n7
.局部變量 n8
.局部變量 n9
.局部變量 n0
.局部變量 n點
.局部變量 n回車
.局部變量 n加
.局部變量 n減
.局部變量 n除
.局部變量 n乘
.局部變量 F1
.局部變量 F2
.局部變量 F3
.局部變量 F4
.局部變量 F5
.局部變量 F6
.局部變量 F7
.局部變量 F8
.局部變量 F9
.局部變量 F10
.局部變量 F11
.局部變量 F12
.局部變量 Insert
.局部變量 Home
.局部變量 PageUp
.局部變量 Delete
.局部變量 End
.局部變量 PageDown
.局部變量 逗號
.局部變量 句號
.局部變量 斜杠
.局部變量 NumLock
.局部變量 ScrollLock
.局部變量 PrintScreen
.局部變量 Pause
.局部變量 Esc
.局部變量 上方向
.局部變量 下方向
.局部變量 左方向
.局部變量 右方向
.局部變量 右Win
.局部變量 L方括號
.局部變量 R方括號
.局部變量 引號
.局部變量 分號
L方括號 ＝ GetAsyncKeyState (219)
R方括號 ＝ GetAsyncKeyState (221)
分號 ＝ GetAsyncKeyState (186)
引號 ＝ GetAsyncKeyState (222)
右Win ＝ GetAsyncKeyState (92)
上方向 ＝ GetAsyncKeyState (38)
下方向 ＝ GetAsyncKeyState (40)
左方向 ＝ GetAsyncKeyState (37)
右方向 ＝ GetAsyncKeyState (39)
逗號 ＝ GetAsyncKeyState (188)
NumLock ＝ GetAsyncKeyState (144)
ScrollLock ＝ GetAsyncKeyState (145)
PrintScreen ＝ GetAsyncKeyState (44)
Pause ＝ GetAsyncKeyState (19)
Esc ＝ GetAsyncKeyState (27)
句號 ＝ GetAsyncKeyState (190)
n0 ＝ GetAsyncKeyState (96)
n1 ＝ GetAsyncKeyState (97)
n2 ＝ GetAsyncKeyState (98)
n3 ＝ GetAsyncKeyState (99)
n4 ＝ GetAsyncKeyState (100)
n5 ＝ GetAsyncKeyState (101)
n6 ＝ GetAsyncKeyState (102)
n7 ＝ GetAsyncKeyState (103)
n8 ＝ GetAsyncKeyState (104)
n9 ＝ GetAsyncKeyState (105)
n乘 ＝ GetAsyncKeyState (106)
n加 ＝ GetAsyncKeyState (107)
n回車 ＝ GetAsyncKeyState (108)
n減 ＝ GetAsyncKeyState (109)
n點 ＝ GetAsyncKeyState (110)
n除 ＝ GetAsyncKeyState (111)
Ctrl ＝ GetAsyncKeyState (#Ctrl鍵)
Alt ＝ GetAsyncKeyState (#Alt鍵)
TAB ＝ GetAsyncKeyState (#Tab鍵)
Win ＝ GetAsyncKeyState (91)
Shift ＝ GetAsyncKeyState (#Shift鍵)
回車 ＝ GetAsyncKeyState (#回車鍵)
空格 ＝ GetAsyncKeyState (#空格鍵)
A ＝ GetAsyncKeyState (#A鍵)
B ＝ GetAsyncKeyState (#B鍵)
C ＝ GetAsyncKeyState (#C鍵)
D ＝ GetAsyncKeyState (#D鍵)
E ＝ GetAsyncKeyState (#E鍵)
F ＝ GetAsyncKeyState (#F鍵)
G ＝ GetAsyncKeyState (#G鍵)
H ＝ GetAsyncKeyState (#H鍵)
I ＝ GetAsyncKeyState (#I鍵)
J ＝ GetAsyncKeyState (#J鍵)
K ＝ GetAsyncKeyState (#K鍵)
L ＝ GetAsyncKeyState (#L鍵)
M ＝ GetAsyncKeyState (#M鍵)
N ＝ GetAsyncKeyState (#N鍵)
O ＝ GetAsyncKeyState (#O鍵)
P ＝ GetAsyncKeyState (#P鍵)
Q ＝ GetAsyncKeyState (#Q鍵)
R ＝ GetAsyncKeyState (#R鍵)
S ＝ GetAsyncKeyState (#S鍵)
T ＝ GetAsyncKeyState (#T鍵)
U ＝ GetAsyncKeyState (#U鍵)
V ＝ GetAsyncKeyState (#V鍵)
W ＝ GetAsyncKeyState (#W鍵)
x ＝ GetAsyncKeyState (#X鍵)
Y ＝ GetAsyncKeyState (#Y鍵)
Z ＝ GetAsyncKeyState (#Z鍵)
飛 ＝ GetAsyncKeyState (192)
S1 ＝ GetAsyncKeyState (49)
S2 ＝ GetAsyncKeyState (50)
S3 ＝ GetAsyncKeyState (51)
S4 ＝ GetAsyncKeyState (52)
S5 ＝ GetAsyncKeyState (53)
S6 ＝ GetAsyncKeyState (54)
S7 ＝ GetAsyncKeyState (55)
S8 ＝ GetAsyncKeyState (56)
S9 ＝ GetAsyncKeyState (57)
S0 ＝ GetAsyncKeyState (48)
減 ＝ GetAsyncKeyState (189)
加 ＝ GetAsyncKeyState (187)
除 ＝ GetAsyncKeyState (220)
BACK ＝ GetAsyncKeyState (8)
大寫 ＝ GetAsyncKeyState (20)
F1 ＝ GetAsyncKeyState (112)
F2 ＝ GetAsyncKeyState (113)
F3 ＝ GetAsyncKeyState (114)
F4 ＝ GetAsyncKeyState (115)
F5 ＝ GetAsyncKeyState (116)
F6 ＝ GetAsyncKeyState (117)
F7 ＝ GetAsyncKeyState (118)
F8 ＝ GetAsyncKeyState (119)
F9 ＝ GetAsyncKeyState (120)
F10 ＝ GetAsyncKeyState (121)
F11 ＝ GetAsyncKeyState (122)
F12 ＝ GetAsyncKeyState (123)
Insert ＝ GetAsyncKeyState (45)
Home ＝ GetAsyncKeyState (36)
PageUp ＝ GetAsyncKeyState (33)
PageDown ＝ GetAsyncKeyState (34)
End ＝ GetAsyncKeyState (35)
Delete ＝ GetAsyncKeyState (46)
斜杠 ＝ GetAsyncKeyState (191)
.如果真 (鍵判斷 (L方括號))
返回 (“[”)
.如果真結束
.如果真 (鍵判斷 (R方括號))
返回 (“]”)
.如果真結束
.如果真 (鍵判斷 (分號))
返回 (“;”)
.如果真結束
.如果真 (鍵判斷 (引號))
返回 (“'”)
.如果真結束
.如果真 (鍵判斷 (斜杠))
返回 (“/”)
.如果真結束
.如果真 (鍵判斷 (逗號))
返回 (“,”)
.如果真結束
.如果真 (鍵判斷 (右Win))
返回 (“{Win}”)
.如果真結束
.如果真 (鍵判斷 (右方向))
返回 (“→”)
.如果真結束
.如果真 (鍵判斷 (下方向))
返回 (“↓”)
.如果真結束
.如果真 (鍵判斷 (上方向))
返回 (“↑”)
.如果真結束
.如果真 (鍵判斷 (左方向))
返回 (“←”)
.如果真結束
.如果真 (鍵判斷 (NumLock))
返回 (“{Num Lock}”)
.如果真結束
.如果真 (鍵判斷 (ScrollLock))
返回 (“{Scroll Lock}”)
.如果真結束
.如果真 (鍵判斷 (PrintScreen))
返回 (“{Prt Scr}”)
.如果真結束
.如果真 (鍵判斷 (Pause))
返回 (“{Pause}”)
.如果真結束
.如果真 (鍵判斷 (Esc))
返回 (“{Esc}”)
.如果真結束
.如果真 (鍵判斷 (句號))
返回 (“.”)
.如果真結束
.如果真 (鍵判斷 (S0))
返回 (“0”)
.如果真結束
.如果真 (鍵判斷 (回車))
返回 (“{Enter}”)
.如果真結束
.如果真 (鍵判斷 (空格))
返回 (“{空格}”)
.如果真結束
.如果真 (鍵判斷 (A))
.如果 (大小寫狀態)
返回 (“A”)
.否則
返回 (“a”)
.如果結束
.如果真結束
.如果真 (鍵判斷 (B))
.如果 (大小寫狀態)
返回 (“B”)
.否則
返回 (“b”)
.如果結束
.如果真結束
.如果真 (鍵判斷 (C))
.如果 (大小寫狀態)
返回 (“C”)
.否則
返回 (“c”)
.如果結束
.如果真結束
.如果真 (鍵判斷 (D))
.如果 (大小寫狀態)
返回 (“D”)
.否則
返回 (“d”)
.如果結束
.如果真結束
.如果真 (鍵判斷 (E))
.如果 (大小寫狀態)
返回 (“E”)
.否則
返回 (“e”)
.如果結束
.如果真結束
.如果真 (鍵判斷 (F))
.如果 (大小寫狀態)
返回 (“F”)
.否則
返回 (“f”)
.如果結束
.如果真結束
.如果真 (鍵判斷 (G))
.如果 (大小寫狀態)
返回 (“G”)
.否則
返回 (“g”)
.如果結束
.如果真結束
.如果真 (鍵判斷 (H))
.如果 (大小寫狀態)
返回 (“H”)
.否則
返回 (“h”)
.如果結束
.如果真結束
.如果真 (鍵判斷 (I))
.如果 (大小寫狀態)
返回 (“I”)
.否則
返回 (“i”)
.如果結束
.如果真結束
.如果真 (鍵判斷 (J))
.如果 (大小寫狀態)
返回 (“J”)
.否則
返回 (“j”)
.如果結束
.如果真結束
.如果真 (鍵判斷 (K))
.如果 (大小寫狀態)
返回 (“K”)
.否則
返回 (“k”)
.如果結束
.如果真結束
.如果真 (鍵判斷 (L))
.如果 (大小寫狀態)
返回 (“L”)
.否則
返回 (“l”)
.如果結束
.如果真結束
.如果真 (鍵判斷 (M))
.如果 (大小寫狀態)
返回 (“M”)
.否則
返回 (“m”)
.如果結束
.如果真結束
.如果真 (鍵判斷 (N))
.如果 (大小寫狀態)
返回 (“N”)
.否則
返回 (“n”)
.如果結束
.如果真結束
.如果真 (鍵判斷 (O))
.如果 (大小寫狀態)
返回 (“O”)
.否則
返回 (“o”)
.如果結束
.如果真結束
.如果真 (鍵判斷 (P))
.如果 (大小寫狀態)
返回 (“P”)
.否則
返回 (“p”)
.如果結束
.如果真結束
.如果真 (鍵判斷 (Q))
.如果 (大小寫狀態)
返回 (“Q”)
.否則
返回 (“q”)
.如果結束
.如果真結束
.如果真 (鍵判斷 (R))
.如果 (大小寫狀態)
返回 (“R”)
.否則
返回 (“r”)
.如果結束
.如果真結束
.如果真 (鍵判斷 (S))
.如果 (大小寫狀態)
返回 (“S”)
.否則
返回 (“s”)
.如果結束
.如果真結束
.如果真 (鍵判斷 (T))
.如果 (大小寫狀態)
返回 (“T”)
.否則
返回 (“t”)
.如果結束
.如果真結束
.如果真 (鍵判斷 (U))
.如果 (大小寫狀態)
返回 (“U”)
.否則
返回 (“u”)
.如果結束
.如果真結束
.如果真 (鍵判斷 (V))
.如果 (大小寫狀態)
返回 (“V”)
.否則
返回 (“v”)
.如果結束
.如果真結束
.如果真 (鍵判斷 (W))
.如果 (大小寫狀態)
返回 (“W”)
.否則
返回 (“w”)
.如果結束
.如果真結束
.如果真 (鍵判斷 (x))
.如果 (大小寫狀態)
返回 (“X”)
.否則
返回 (“x”)
.如果結束
.如果真結束
.如果真 (鍵判斷 (Y))
.如果 (大小寫狀態)
返回 (“Y”)
.否則
返回 (“y”)
.如果結束
.如果真結束
.如果真 (鍵判斷 (Z))
.如果 (大小寫狀態)
返回 (“Z”)
.否則
返回 (“z”)
.如果結束
.如果真結束
.如果真 (鍵判斷 (S1))
返回 (“1”)
.如果真結束
.如果真 (鍵判斷 (S2))
返回 (“2”)
.如果真結束
.如果真 (鍵判斷 (S3))
返回 (“3”)
.如果真結束
.如果真 (鍵判斷 (S4))
返回 (“4”)
.如果真結束
.如果真 (鍵判斷 (S5))
返回 (“5”)
.如果真結束
.如果真 (鍵判斷 (S6))
返回 (“6”)
.如果真結束
.如果真 (鍵判斷 (S7))
返回 (“7”)
.如果真結束
.如果真 (鍵判斷 (S8))
返回 (“8”)
.如果真結束
.如果真 (鍵判斷 (S9))
返回 (“9”)
.如果真結束
.如果真 (鍵判斷 (飛))
返回 (“`”)
.如果真結束
.如果真 (鍵判斷 (加))
返回 (“=”)
.如果真結束
.如果真 (鍵判斷 (減))
返回 (“-”)
.如果真結束
.如果真 (鍵判斷 (除))
返回 (“\”)
.如果真結束
.如果真 (鍵判斷 (BACK))
返回 (“{退格}”)
.如果真結束
.如果真 (鍵判斷 (TAB))
返回 (“{Tab}”)
.如果真結束
.如果真 (鍵判斷 (Shift))
返回 (“{Shift}”)
.如果真結束
.如果真 (鍵判斷 (Ctrl))
返回 (“{Ctrl}”)
.如果真結束
.如果真 (鍵判斷 (Alt))
返回 (“{Alt}”)
.如果真結束
.如果真 (鍵判斷 (大寫))
返回 (“{CapsLock}”)
.如果真結束
.如果真 (鍵判斷 (Win))
返回 (“{Win}”)
.如果真結束
.如果真 (鍵判斷 (n1))
返回 (“1”)
.如果真結束
.如果真 (鍵判斷 (n2))
返回 (“2”)
.如果真結束
.如果真 (鍵判斷 (n3))
返回 (“3”)
.如果真結束
.如果真 (鍵判斷 (n4))
返回 (“4”)
.如果真結束
.如果真 (鍵判斷 (n5))
返回 (“5”)
.如果真結束
.如果真 (鍵判斷 (n6))
返回 (“6”)
.如果真結束
.如果真 (鍵判斷 (n7))
返回 (“7”)
.如果真結束
.如果真 (鍵判斷 (n8))
返回 (“8”)
.如果真結束
.如果真 (鍵判斷 (n9))
返回 (“9”)
.如果真結束
.如果真 (鍵判斷 (n加))
返回 (“=”)
.如果真結束
.如果真 (鍵判斷 (n減))
返回 (“-”)
.如果真結束
.如果真 (鍵判斷 (n除))
返回 (“\”)
.如果真結束
.如果真 (鍵判斷 (n乘))
.如果真結束
.如果真 (鍵判斷 (n回車))
返回 (“{回車}”)
.如果真結束
.如果真 (鍵判斷 (n0))
返回 (“0”)
.如果真結束
.如果真 (鍵判斷 (n點))
返回 (“.”)
.如果真結束
.如果真 (鍵判斷 (F1))
返回 (“{F1}”)
.如果真結束
.如果真 (鍵判斷 (F2))
返回 (“{F2}”)
.如果真結束
.如果真 (鍵判斷 (F3))
返回 (“{F3}”)
.如果真結束
.如果真 (鍵判斷 (F4))
返回 (“{F4}”)
.如果真結束
.如果真 (鍵判斷 (F5))
返回 (“{F5}”)
.如果真結束
.如果真 (鍵判斷 (F6))
返回 (“{F6}”)
.如果真結束
.如果真 (鍵判斷 (F7))
返回 (“{F7}”)
.如果真結束
.如果真 (鍵判斷 (F8))
返回 (“{F8}”)
.如果真結束
.如果真 (鍵判斷 (F9))
返回 (“{F9}”)
.如果真結束
.如果真 (鍵判斷 (F10))
返回 (“{F10}”)
.如果真結束
.如果真 (鍵判斷 (F11))
返回 (“{F11}”)
.如果真結束
.如果真 (鍵判斷 (F12))
返回 (“{F12}”)
.如果真結束
.如果真 (鍵判斷 (Delete))
返回 (“{DEL}”)
.如果真結束
.如果真 (鍵判斷 (Insert))
返回 (“{INS}”)
.如果真結束
.如果真 (鍵判斷 (Home))
返回 (“{HOME}”)
.如果真結束
.如果真 (鍵判斷 (PageUp))
返回 (“{Page Up}”)
.如果真結束
.如果真 (鍵判斷 (PageDown))
返回 (“{Page Down}”)
.如果真結束
.如果真 (鍵判斷 (End))
返回 (“{END}”)
.如果真結束
返回 (“”)
.子程序 鍵判斷, 邏輯型
.參數 鍵, 整數型
.判斷開始 (鍵 ＝ -32767)
返回 (真)
.默認
返回 (假)