求大佬纠错，简单的代码
dim
do
password=putinbox(“叫爸爸，不叫关机”)
if password=“爸爸”then
msgbox“真乖！”
exit do
else
set ws=createobject（“wscript.shell”）
wse.run“CMD.exe斜杠c shutdown s-f-t 10
msgbox“叫你不叫，10秒后就给你关机”
end if
loop

斜杠是/

VBS：
Do
password = InputBox("叫爸爸，不叫关机")
If password = "爸爸" Then
MsgBox "真乖！"
Exit Do
Else
Set ws = CreateObject("wscript.shell")
ws.run "CMD.exe /c shutdown /s /f /t 10"
MsgBox "叫你不叫，10秒后就给你关机"
End If
Loop
VB：
Private Sub Form_Load()
Dim password As String
Dim ws As Object
Do
password = InputBox("叫爸爸，不叫关机")
If password = "爸爸" Then
MsgBox "真乖！"
Exit Do
Else
Set ws = CreateObject("wscript.shell")
ws.run "CMD.exe /c shutdown /s /f /t 10"
MsgBox "叫你不叫，10秒后就给你关机"
End If
Loop
End Sub