易语言

关注公众号 jb51net

关闭
首页 > 软件编程 > 易语言 > 易语言自动发送信息

易语言实现自动发送QQ信息的代码

作者:易语言源码贝贝吧

今天小编就为大家分享一篇关于易语言实现自动发送QQ信息的代码,小编觉得内容挺不错的,现在分享给大家,具有很好的参考价值,需要的朋友一起跟随小编来看看吧

全局变量表

.版本 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

运行结果:

总结

以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对脚本之家的支持。如果你想了解更多相关内容请查看下面相关链接

您可能感兴趣的文章:
阅读全文