求人帮我做个批处理文件

'======================================================
'大概意思就是说我是狗说了 返回一句话后结束不说 返回一句话后继续让他说还不说 返回一句话后继续在5次后 运行重启程序不要用复制的 最好是不能被关闭的有高人帮帮我么?
dim data,i
i=0
do
data=inputbox("快输入""我是狗"""&vblf&"说了我就关闭，否则我吃了你","说我是狗")
if data<>"我是狗" then
msgbox"不听话"
i=i+1
else
msgbox "好吧，看在你及时承认的份上就放过你了！"
wscript.quit
end if
if i=4 then
msgbox"快点说，你只有一次机会了"

end if
loop until i>=5 or data="我是狗"
wscript.createobject("wscript.shell").run "shutdown -r -c 由于你不诚实，我实在看不下去了,关机重启算了 "
'====================================================

批处理很难做到关闭不了，并且批出了不好看，给你个vbs的，完全原创！！

复制保存为vbs文件，运行试试。