首先，创建一个文本文档，它是记事本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
结束选择
末端接头
