qq轰炸机手机版源码_手机轰炸机安卓版

文章目录：

• 1、用易语言做QQ轰炸机详细教程
• 2、QQ轰炸机是什么 ？
• 3、VB编QQ轰炸机！简单实用的！
• 4、有会炸QQ的木马吗？

用易语言做QQ轰炸机详细教程

.版本 2

.支持库 iext

.支持库 eAPI

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

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

.如果 (到数值 (编辑框2.内容) ＜ 100)

信息框 (“周期不得小于100”, 0, , )'为了在QQ中使用不卡死

编辑框2.内容 ＝ “”

.否则

.如果结束

时钟1.时钟周期 ＝ 到数值 (编辑框2.内容)

透明标签4.标题 ＝ “|已开始运行|”

.子程序 _时钟1_周期事件

置剪辑板文本 (编辑框1.内容)

模拟按键 (#Ctrl键, #V键, )

模拟按键 (#回车键, , )

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

时钟1.时钟周期 ＝ 0

透明标签4.标题 ＝ “|已停止运行|”

QQ轰炸机是什么 ？

说明一点，开始轰炸的时候请先把需要轰炸的那个人的QQ打开

并且不要调成消息模式！(切记)

然后设置完轰炸内容，循环次数，轰炸频率以后

就可以开始轰炸了

轰炸的时候，不影响你跟其他人聊天

轰炸频率一般1000就好(推荐)

或者更过分一点500，也就是一秒钟发2条

如果再小的话，QQ就该提示你休息喝咖啡了~~~哈哈

PS:即使Ta不是你的好友，也没有关系，在直接打开QQ号里输入QQ号码可以强制聊天

VB编QQ轰炸机！简单实用的！

'窗口上一个List1，一个Text1，一个Timer1控件 和三个按钮Command1，Command2，Command3，分别命名为"获取"，"发送"，"连发"，即可。Command1按钮式为了获得和你聊天的窗口，Command2是指你要发送的信息。Command3是开始连发的标志。

不过好像没什么意思！！！

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal Hwnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Const WM_GETTEXT = HD

Private Const EM_REPLACESEL = HC2

Private Const BM_CLICK = HF5

Dim Num1 As Long, QQTextHwnd As Long

Dim TempLog As Long

Dim TempMSG As String

Dim ButtonHwd As Long

Private Function GetWinText(ByVal WinHwnd As Long) As String

Dim ILen As Long

GetWinText = String(255, Chr(0))

ILen = SendMessage(WinHwnd, WM_GETTEXT, Len(GetWinText), ByVal GetWinText)

GetWinText = Left(GetWinText, ILen)

End Function

Private Sub Command1_Click()

List1.Clear

Dim hFindWnd As Long

hFindWnd = FindWindowEx(0, 0, "#32770", vbNullString)

Do While hFindWnd 0

If InStr(GetWinText(hFindWnd), "聊天中") 0 Or InStr(GetWinText(hFindWnd), "交谈中") 0 Then

List1.AddItem GetWinText(hFindWnd)

End If

hFindWnd = FindWindowEx(0, hFindWnd, "#32770", vbNullString)

Loop

If List1.ListCount = 0 Then

MsgBox "QQ消息窗体没有打开", 64, "提示"

End If

End Sub

Private Sub Command2_Click()

Dim QQHwnd As Long, RHwnd As Long

If List1.ListCount = 0 Then

MsgBox "QQ消息窗体没有打开", 64, "提示"

Exit Sub

End If

QQHwnd = FindWindow("#32770", List1.Text)

QQHwnd = FindWindowEx(QQHwnd, 0, "#32770", vbNullString)

QQTextHwnd = FindWindowEx(QQHwnd, 0, "AfxWnd42", vbNullString)

QQTextHwnd = FindWindowEx(QQHwnd, QQTextHwnd, "AfxWnd42", vbNullString)

QQTextHwnd = FindWindowEx(QQTextHwnd, 0, "RichEdit20A", vbNullString)

If QQTextHwnd = 0 Then

MsgBox "没有找到消息文本"

End If

RHwnd = FindWindowEx(QQHwnd, 0, "Button", "发送(S)")

ButtonHwd = RHwnd

TempLog = SendMessage(QQTextHwnd, EM_REPLACESEL, 0, ByVal Text1.Text)

SendMessage RHwnd, BM_CLICK, 0, 0

End Sub

Private Sub Command3_Click()

If Command3.Caption = "连发(T)" Then

Command3.Caption = "停止(T)"

Timer1.Enabled = True

Else

Command3.Caption = "连发(T)"

Timer1.Enabled = False

End If

End Sub

Private Sub Form_Load()

Command1.Caption = "获取(Q)"

Command2.Caption = "发送(S)"

Command3.Caption = "连发(T)"

Text1.Text = ""

Timer1.Interval = 100

Timer1.Enabled = False

End Sub

Private Sub Timer1_Timer()

Num1 = Num1 + 1

TempMSG = Text1.Text vbCrLf "统计：第" Num1 "连发消息"

SendMessage QQTextHwnd, EM_REPLACESEL, 0, ByVal TempMSG

SendMessage ButtonHwd, BM_CLICK, 0, 0

End Sub

有会炸QQ的木马吗？

有QQ轰炸机 不间断的向目标QQ发送垃圾信息 弹出视频请求 语音对话请求的等等

还有QQ远控 是一个老软件了 可以远程关闭、重启别人的电脑