教大家自制一个整人的小程序.docxVIP

教大家自制一个整人的小程序 其实方法很简单 首先新建一个文本文档，打开复制下面蓝色的代码，保存退出，然后重命名，名字可以随便设越诱惑越好，注意一定要把后缀名txt改为 vbs 如：祝福.vbs 说明： 如果别人不输我是猪的话就会一直点下去 点到你设定的数字for i=1 to 100 从 1 到 100 可以改成 其他的数字 点到最后会强制打开萝卜论坛的网页（你也可以改成你想要打开的网页） set ws=createobject(wscript.shell) call shutdown(1) do while a我 是猪 a=inputbox(哈 哈……快在下面的框框里输入我是猪,否则后果自负，快输我是猪 ,输 不输,) 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 msgbox哎呀累了！数绵羊哄我睡觉,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 sub