QQ骂人器

admin7年前 (2020-04-30)易语言交流8440
.版本 2
.支持库 shellEx
.支持库 xplib
.支持库 eAPI

.程序集 窗口程序集1
.程序集变量 FUCK, 整数型

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

七夜_雷蛇绿光 ()
奥姆时钟.时钟周期 = 1
组合框1.现行选中项 = -1
注册热键 (取窗口句柄 (), 透明标签2.取窗口句柄 (), 0, #F8键)
XP风格 (2)

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

FUCK = 取鼠标所在窗口句柄 ()

.子程序 按键状态, 整数型
.参数 键值, 整数型

.判断开始 (状态 (键值) = #拉拉啦)
    返回 (1)
.默认
    返回 (0)
.判断结束


.子程序 _奥姆时钟_周期事件


.如果真 (按键状态 (#F9键) = 1)
    _潘多拉按钮_被单击 ()
.如果真结束
.如果真 (按键状态 (#F10键) = 1)
    _按钮2_被单击 ()
.如果真结束


.子程序 _潘多拉按钮_被单击

可可时钟.时钟周期 = (101 - 控制栏1.位置) × 50


.子程序 _可可时钟_周期事件
.局部变量 备用文本, 字节集
.局部变量 Q, 整数型


组合框1.现行选中项 = 取随机数 (1, 56)
备用文本 = 到字节集 (组合框1.内容)
.计次循环首 (取字节集长度 (备用文本), Q)
    发送消息_ (FUCK, 258, 备用文本 [Q], 0)
.计次循环尾 ()
置剪辑板文本 (组合框1.内容)
模拟按键 (#Ctrl键, #V键, )
模拟按键 (#回车键, , )

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

可可时钟.时钟周期 = 0

.子程序 __启动窗口_托盘事件
.参数 操作类型, 整数型

.如果真 (操作类型 = 2)
    _启动窗口.可视 = 真
    置托盘图标 ({  }, )
.如果真结束
.如果真 (操作类型 = 3)
    弹出菜单 (菜单, , )
.如果真结束


.子程序 _打开_被选择

_启动窗口.可视 = 真
置托盘图标 ({  }, )

.子程序 _最小化_被选择

置托盘图标 (#哇哈哈, “大白鲨”)
_启动窗口.可视 = 假

.子程序 _关闭_被选择

置托盘图标 ({  }, )
结束 ()

.子程序 _帮助_被选择

信息框 (“按F8锁定鼠标所在窗口”, 0, )
信息框 (“QQ群:暂无”, 0, , )