易语言实现自动发送QQ信息的代码
时间：2021-09-13 08:00:26 | 栏目： | 点击：次
全局变量表
.版本 2 .全局变量 局_句柄, 整数型 .全局变量 b, 整数型
QQ自动发送信息
此功能需要加载精易模块5.6
.版本 2 .支持库 spec .支持库 eAPI .程序集 窗口程序集_启动窗口 .程序集变量 逻辑, 逻辑型 .子程序 _暂停按钮_被单击 时钟1.时钟周期 ＝ 0 .子程序 _好友按钮_被单击 逻辑 ＝ 假 时钟1.时钟周期 ＝ 1500 .子程序 功能_取句柄, 整数型 .参数 名称, 文本型 局_句柄 ＝ 窗口_取句柄 (, , “TXGuiFoundation”, 名称) 返回 (局_句柄) .子程序 _时钟1_周期事件 .判断开始 (逻辑 ＝ 假) 好友 () .默认 群友 () .判断结束 .子程序 群友 功能_取句柄 (号码编辑框.内容) b ＝ 局_句柄 鼠标_单击 (取鼠标水平位置 (), 取鼠标垂直位置 ()) 窗口_限制尺寸 (b, 293, 540, , ) 延迟 (200) 键盘_消息 (b, #下光标键, 3, ) 延迟 (200) 键盘_消息 (b, #回车键, 3, ) 延迟 (200) 模拟按键 (#Ctrl键, #V键, ) 延迟 (200) 模拟按键 (#回车键, , ) 延迟 (200) 模拟按键 (#Ctrl键, #W键, ) .子程序 好友 功能_取句柄 (“QQ”) b ＝ 局_句柄 窗口_限制尺寸 (b, 293, 540, , ) 延迟 (200) 键盘_消息 (b, #下光标键, 3, ) 延迟 (200) 键盘_消息 (b, #回车键, 3, ) 延迟 (200) 模拟按键 (#Ctrl键, #V键, ) 延迟 (200) 模拟按键 (#回车键, , ) 延迟 (200) 模拟按键 (#Ctrl键, #W键, ) .子程序 _QQ群按钮_被单击 逻辑 ＝ 真 时钟1.时钟周期 ＝ 1500
运行结果：
总结