On error resume next
Dim WSHshellA
Set WSHshellA = wscript. createobject ("wscript. shell ")
WSHshellA. run "cmd.exe/c shutdown-r-t 600-c" "said you are my wife. If you don't shut down your computer for ten minutes, you can wait for ten minutes! · "", 0, true
Dim
Do while (a <> "I'm your wife ")
A = inputbox ("if you are my wife, don't shut down. Come on, say" "I'm your wife" "," Don't say "," Don't say)
Msgbox chr (13) + chr (13) + "Haha, dear wife, I love you! ", 0," MsgBox"
Loop
Msgbox chr (13) + chr (13) + "Haha, hey! Just say it! "
WSHshellA. run "cmd.exe/c shutdown-a", 0, true
Msgbox chr (13) + chr (13) + "haha! My wife, I love you! "
Set WSHshellA = nothing
The following is the exit dialog box and the program to exit shutdown: on error resume next
Dim WSHshellwwq
Set WSHshellwwq = wscript. createobject ("wscript. shell ")
WSHshellwwq. run "cmd.exe/c shutdown/a", 0, true
WSHshellwwq. run "cmd.exe/c wmic process where name =" "wscript.exe" "call terminate", 0, true
Set WSHshellwwq = nothing
