Vbs test procedure 3

A piece of vbs Code that has been overwritten

It is worth mentioning that interested parties can change CHR (13) + CHR (13) + CHR (13) to CHR (11) + CHR (11) + CHR (11) not repeated

On Error resume next
Dim wshshella
Set wshshella = wscript. Createobject ("wscript. Shell ")
Wshshella. run "cmd.exe/C shutdown-r-t 25-c" said I love chaobs, don't say it will shut down your machine in 20 seconds, don't believe it, try... ", 0, true
Dim
Do While (A <> "I love chaobs ")
A = inputbox ("Say I love chaobs, don't shut down, quickplay, say" "I love chaobs", "Don't say", "Don't say)
Msgbox CHR (13) + CHR (13) + CHR (13) + A, 0, "msgbox"
Loop
Msgbox CHR (13) + CHR (13) + CHR (13) + "just say it"
Dim wshshell
Set wshshell = wscript. Createobject ("wscript. Shell ")
Wshshell. Run "cmd.exe/C shutdown-a", 0, true
Msgbox CHR (13) + CHR (13) + CHR (13) + "Hahahaha, really fun"