首页
社区
课程
招聘
问答 CTF 排行榜 知识库 工具下载 峰会 看雪商城 证书查询
  1. 社区
  2. 编程技术
    3. 发新帖
5
[原创]QQ消息群发器
发表于: 2013-7-7 22:54 20290

[原创]QQ消息群发器

非安全 活跃值
17
2013-7-7 22:54
20290

很久没用汇编写程序了，昨天看到一哥们用易语言写的QQ消息群发器，感觉很好玩，手痒用汇编写了个，没什么技术含量，纯模拟键盘输入，游戏之作，欢迎大家拍砖 ^-^

核心代码：

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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
;########################################################################
;                          QQ消息群发器V1.0  by  nohacks
;
;                QQ:23453161   web:http://hi.baidu.com/nohacksa
;#####################################################
 
 
SendProc proc
 
         LOCAL IsCheck,IsRet,Islen
          
         mov IsRet,40
                  
          
         ;检查循环设置
          
         invoke SendDlgItemMessage,AppHwnd,IDC_CHK,BM_GETCHECK,0,0
                     
          mov IsCheck,eax
 
 
          
         ;检查展开设置
 
         invoke SendDlgItemMessage,AppHwnd,IDC_CHK_LEN,BM_GETCHECK,0,0
                     
          mov Islen,eax      
        
 
        
         ; 取用户输入
          
          invoke GetDlgItemText,AppHwnd,IDC_EDT ,addr lpText,1024 
            
          ;invoke LinkText,addr lpText,CTEXT(" 本消息由AiQQ发送 ")     ;加点尾巴，^-^
                            
         start1:
                  
         invoke  SetWindowForeground,QQHwnd  ;QQ获取焦点
          
               .if  !eax
           
                    jmp exit
                     
              .endif
         
         start2:
          
            .if  IsExit
             
                 jmp exit
     
             
            .endif
             
 
           invoke SimulateKey,IsRet,NULL,NULL,NULL  ;向下或向上移动一次
             
           .if IsCheck==0  && IsRet==38        ;如果循环设置关闭且光标向上就结束操作
            
                   jmp exit
    
                     
            .endif
                 
     invoke SendReTurn 
         
     invoke Sleep,1000    ;等待窗口载入
 
     invoke GetForegroundWindow    ;取前台窗口
         
     .if eax==QQHwnd             
     
           invoke SendReTurn ;没有创建新窗口，遇到分组,再回车下还原现场
          
    
    
                
                ;我们下移回车看下是否有窗口创建
 
           invoke SimulateKey,IsRet,NULL,NULL,NULL ;
                     
               invoke Sleep ,100
               invoke SendReTurn
        
               invoke Sleep,100 
                 
 
                invoke GetForegroundWindow  
 
 
 
 
            ;下移回车后有3种情况：
        
                         ;1，不在QQ窗口，为展开的分组
 
                         ;2，在QQ窗口,没有展开
 
                         ;3.到尾部  
 
 
             .if eax==QQHwnd                 ;没有窗口创建，说明分组没有展开，我们后退之前的操作
         
                   invoke SendReTurn  ;回车  
                    
         
                         
                  .if  IsRet==40  && Islen        ;注意必须为向下时
               
                        ;invoke SendReTurn  ;回车
                                 
                        invoke Sleep,100
 
                        invoke SimulateKey,38,NULL,NULL,NULL ;上移
                         
                         
                        ;展开分组
 
                                invoke SendReTurn
                                               
                   .endif
 
             
                      ;检查是否到尾部
           
           
                       invoke SimulateKey,IsRet,NULL,NULL,NULL   ;按IsRet移动上或下方向键
                        
                        
                        
                       invoke SendReTurn
                   
                       invoke Sleep,1000
                        
                        
                        invoke GetForegroundWindow
                    
                        .if eax==QQHwnd    ;判断到达尾部  IsRet=取反(IsRet)
 
                               .if IsRet==40
                         
                                    mov IsRet,38
                                 .else
                             
                                   mov IsRet,40
 
                                  .endif
                                                          
                          jmp  start2
                        
                    
                         .endif
                    
                                                  
            .endif
                                             
    .endif
 
 
       start3:
 
    invoke SetClipboardText,addr lpText   ;设置输入到剪切板
     
    invoke Sleep,100
             
    invoke SimulateKey,VK_CONTROL,VK_V,NULL,NULL  ;CTRL+V 粘贴
    invoke Sleep,100
     
    invoke SimulateKey,VK_MENU,VK_S,NULL,NULL   ;ALT+S  发送
    invoke Sleep,100
     
    ;invoke SimulateKey,VK_MENU,VK_C,NULL,NULL   ;ALT+C  关闭
 
     
     
          invoke GetForegroundWindow
         
        .if eax!=QQHwnd
         
           invoke SimulateKey,VK_MENU,VK_F4,NULL,NULL   ;ALT+F4
         
        .endif
             
     
    invoke Sleep,1000
                  
        jmp start1
   
   
   exit:
   
  invoke SendDlgItemMessage,AppHwnd,IDC_EDT,WM_ENABLE,TRUE,0
                
   ret
 
 
SendProc endp

[注意]看雪招聘，专注安全领域的专业人才平台！

上传的附件：
收藏
免费 ・5
支持
分享
赞赏记录
参与人
雪币
留言
时间
心游尘世外
为你点赞~
2024-5-31 05:34
QinBeast
为你点赞~
2024-5-31 05:26
飘零丶
为你点赞~
2024-4-3 00:38
shinratensei
为你点赞~
2024-2-15 00:31
PLEBFE
为你点赞~
2023-3-7 00:31
最新回复 (41)
kanxue
雪    币： 55923
活跃值： (21565)
能力值： (RANK：350 )
在线值：
发帖
回帖
粉丝
私信
2 楼
好久没看到 非安全 出现了。
上一个主题帖日期是“2011-11-05”
2013-7-7 23:17
0
Nermor
雪    币： 138
活跃值： (500)
能力值： ( LV4，RANK：50 )
在线值：
发帖
回帖
粉丝
私信
3 楼
好久没看到 《非安全·黑客手册》那本杂志 出现了。
2013-7-7 23:18
0
小林先生
雪    币： 137
活跃值： (10)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
4 楼
thank for share
2013-7-7 23:35
0
mumaren
雪    币： 71
活跃值： (10)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
5 楼
感谢共享

谢谢
2013-7-8 06:44
0
XYUN
雪    币： 219
活跃值： (190)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
6 楼
先感谢了,学习一下,如果是调用接口的就更加好了.
2013-7-8 07:34
0
safeboy
雪    币： 12
活跃值： (10)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
7 楼
谢谢楼主分享
2013-7-8 07:58
0
工程
雪    币： 87
活跃值： (205)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
8 楼
good!
2013-7-8 08:19
0
非安全
雪    币： 750
活跃值： (227)
能力值： ( LV9，RANK：780 )
在线值：
发帖
回帖
粉丝
私信
9 楼
呵呵，是很久没上来了，出来冒个泡
2013-7-8 08:22
0
非安全
雪    币： 750
活跃值： (227)
能力值： ( LV9，RANK：780 )
在线值：
发帖
回帖
粉丝
私信
10 楼
     那个和我没关系的。。。
2013-7-8 08:23
0
非安全
雪    币： 750
活跃值： (227)
能力值： ( LV9，RANK：780 )
在线值：
发帖
回帖
粉丝
私信
11 楼
大家觉得那个图标有爱不？
2013-7-8 08:25
0
IamHuskar
雪    币： 1372
活跃值： (5832)
能力值： ( LV13，RANK：240 )
在线值：
发帖
回帖
粉丝
私信
12 楼
换成女神效果更好
2013-7-8 08:29
0
obaby
雪    币： 14983
活跃值： (5304)
能力值： ( LV15，RANK：880 )
在线值：
发帖
回帖
粉丝
私信
13 楼
貌似再也不会出现鸟
2013-7-8 09:56
0
hacklang
雪    币： 492
活跃值： (56)
能力值： ( LV7，RANK：100 )
在线值：
发帖
回帖
粉丝
私信
14 楼
上学那会也是必买杂志之一
2013-7-8 13:28
0
zyicai
雪    币： 453
活跃值： (88)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
15 楼
楼主牛人
2013-7-8 14:05
0
mengzhou
雪    币： 48
活跃值： (10)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
16 楼
感谢分享，下载试试
2013-7-8 15:38
0
qyc
雪    币： 707
活跃值： (1301)
能力值： ( LV9，RANK：190 )
在线值：
发帖
回帖
粉丝
私信
17 楼
支持，你的源码都是精品，用你的源码让我少打了好多代码，呵。。。。
2013-7-8 17:03
0
caicaixue
雪    币： 18
活跃值： (10)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
18 楼
谢谢楼主无私分享，学习了！
2013-7-8 17:46
0
非安全
雪    币： 750
活跃值： (227)
能力值： ( LV9，RANK：780 )
在线值：
发帖
回帖
粉丝
私信
19 楼
呵呵，很高兴能帮到大家
2013-7-11 08:10
0
wodexinren
雪    币： 74
活跃值： (938)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
20 楼
感谢分享，收藏之
2013-7-11 08:37
0
Rookietp
雪    币： 1042
活跃值： (630)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
21 楼
让那些收费群发都黄了~
2013-7-11 10:05
0
冷月无风
雪    币： 40
活跃值： (25)
能力值： ( LV3，RANK：20 )
在线值：
发帖
回帖
粉丝
私信
22 楼
刚成为正式会员· · 留个言· 支持下楼主··
2013-7-11 13:43
0
非安全
雪    币： 750
活跃值： (227)
能力值： ( LV9，RANK：780 )
在线值：
发帖
回帖
粉丝
私信
23 楼
谢谢支持
2013-7-11 19:35
0
黄瓜熟了
雪    币： 277
活跃值： (45)
能力值： ( LV5，RANK：60 )
在线值：
发帖
回帖
粉丝
私信
24 楼
顶一个，不错
2013-7-11 20:10
0
avensun
雪    币： 202
活跃值： (17)
能力值： ( LV2，RANK：10 )
在线值：
发帖
回帖
粉丝
私信
25 楼
感谢分享 牛啊
2013-7-12 10:41
0
游客
登录 | 注册 方可回帖
回帖 表情 雪币赚取及消费
高级回复
返回

账号登录
验证码登录

忘记密码？
没有账号？立即免费注册
我已同意 《看雪服务条款》 《看雪课程免责声明》 《看雪隐私政策》