Question

那位好心的大虾给我易语言编写QQ刷屏器代码 详细点的 我菜鸟

Answer 1

.版本 2
.支持库 xplib
.支持库 shellEx
.支持库 eAPI

.程序集 窗口程序集1
.程序集变量 开始刷屏, 整数型
.程序集变量 停止刷屏, 整数型

.子程序 _时钟_剪切板_周期事件

编辑框_剪切板.内容 ＝ 取剪辑板文本 ()

.子程序 __启动窗口_创建完毕

XP风格 (3)
注册刷屏热键 ()

.子程序 注册刷屏热键

开始刷屏 ＝ 注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F2键)
.如果 (开始刷屏 ＝ 0)
信息框 (“开始刷屏热键（F2）注册失败，请检查是否存在热键冲突的问题！”, 64, )
.否则
信息框 (“注册开始刷屏热键成功，按下F2键开始刷屏！”, 64, )
.如果结束
停止刷屏 ＝ 注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F3键)
.如果 (停止刷屏 ＝ 0)
信息框 (“停止刷屏热键（F3）注册失败，请检查是否存在热键冲突的问题！”, 0, )
.否则
信息框 (“注册停止刷屏热键成功，按下F3键停止刷屏！”, 64, )
.如果结束

.子程序 _标签1_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型

.如果真 (参数一 ＝ 开始刷屏)
.如果 (编辑框_刷屏间隔.内容 ＝ “”)
信息框 (“请输入刷屏间隔！”, 64, )
.否则
时钟_发送.时钟周期 ＝ 到数值 (编辑框_刷屏间隔.内容)
.如果结束

.如果真结束
.如果真 (参数一 ＝ 停止刷屏)
时钟_发送.时钟周期 ＝ 0
.如果真结束

.子程序 _时钟_发送_周期事件

模拟按键 (#Ctrl键, #V键, )
模拟按键 (#回车键, , )

.子程序 _编辑框_剪切板_被双击, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

编辑框_剪切板.内容 ＝ 取剪辑板文本 ()