jacky
很荣幸能够回答您的问360问答题！
鼠标右键，选择记事本，文本文件，或者rtf文件
请点击输入图片描述
打开，输入代码：
OptionExplic伟约己it
OnErrorResumeNext
Dimanswer
DimWshShell
setWshShell=CreateObject("***.shell")
***.run"Shutdown/f/激提s/t10/c输入'我是级缩猪'，否则10秒后关机~造用",0
DoWhileanswer<>"我是猪"
answer=InputBox("输入'我是猪'慢渐员既分没怎酸来，否则10秒后关机~","哈哈哈",,7000,8000)
Loop
***书年心蒸病映象养.run"Shutdow府我快氧述概n/a",0
MsgBox"哈哈哈，好玩不?",,"哈哈哈"
黑体为代码
请点击输入图片描述
保存，更改后缀为“vbs”
请点击输入图片描述
打开试试吧陆笑如书士转率求！不要做坏事哦！
希望能帮到您，如有疑问，请追问！
