首先，创建一个文本文档，它是记事本txt格式的。

只需**以下代码并保存即可。

msgbox(& # 8220；这个代码表明你想说什么& # 8221；)

其他可以忽略

set ws = createobject(& # 8220；wscript.shell & # 8221)

呼叫关机(1)

在a & lt& gt”我是哈马皮& # 8221；

a = inputbox(& # 8220；在下面的方框中输入我是哈马批，否则您将自担风险并失去& # 8221；”我是哈马皮& # 8221；”“,”不要输& # 8221；,””)

环

呼叫关机(2)

msgbox & # 8220早点说就是了& # 8221；,4096+64

msgbox & # 8221又输了，我是哈马皮！”,4096+64

msgbox & # 8221我是哈马皮！”,4096+64

msgbox & # 8221最后一次！”,4096+64

MsgBox & # 8221不能想太多！”,4096+64

MsgBox & # 8221如果你点得快又不看& # 8221；,4096+64

MsgBox & # 8221我要你踩我的空房间！哼！”,4096+64

MsgBox & # 8221从前有座山！”,4096+64

MsgBox & # 8221山里有一座寺庙。”,4096+64

MsgBox & # 8221寺庙里有一个老和尚在讲故事。”,4096+64

ws***n & # 8221iexplore.exe http://www . Baidu . com & # 8221；

msgbox & # 8221哦，累了！数羊哄我睡觉& # 8221；,4096+64

对于i=1到100

MsgBox i & amp”只有羊& # 8221；,4096+64

然后

msgbox & # 8221哦，看看你。这次我饶了你。下次注意！”,4096+64

msgbox & # 8221最后一个问题，我是你的男神吗？”,4096+64

如果inputbox(& # 8220；是吗& # 8221；,”请选择& # 8221；,”是的& # 8221；)& lt& gt”是的& # 8221；然后

呼叫关机(1)

如果…就会结束

次级关闭

选择案例s

案例1

ws***n & # 8221cmd.exe/c关闭-r-t60-c & # 8221；,0

案例2

ws***n & # 8221cmd.exe空调关闭-a & # 8221；,0

结束选择

末端接头