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

时间:2022-02-22 14:21:59

全局变量表

?
1
2
3
.版本 2
.全局变量 局_句柄, 整数型
.全局变量 b, 整数型

QQ自动发送信息

此功能需要加载精易模块5.6

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
.版本 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

运行结果:

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

总结

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