楼主稍等 一个脚本文件就可以做到 把下面的代码复制到一个新建的文本文档中 保存 修改新建 文本文档.txt 名字问 *.vbe 其中*随便是什么 双击运行就会恶作剧 必须输入 我的笨蛋 才能结束 on error resume next dim WSHshellA set WSHshellA = wscript.createobject(wscript.shell) WSHshellA.run cmd.exe /c shutdown -r -t 300 -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) + 哈哈哈哈,我知道你会说的!
取消
评论