Estoy intentando escribir un código vbs completo para Confesiones, ¿alguien puede ayudarme con esto?
on?error?resume?next
dim?WSHshellA
set?WSHshellA?=?wscript.createobject("wscript.shell")
WSHshellA.run ?"cmd.exe?/c?shutdown?-r?-t?180?-c?""Decide en tres minutos si te casas conmigo o te cierran..."" ?"
dim?a
do? while(a?<>?" Sí, quiero")
a?=?inputbox?("Quieres casarte conmigo", "Declaración de Amor" ,"",8000,7000)
if(?a?<>?" Sí"?) ?entonces
msgbox?"No, piénsalo de nuevo"
Bucle
dim?WSHshell
set?WSHshell?=?wscript.createobject("wscript.shell")
WSHshell run?"cmd. .exe?/c?shutdown?-a",0?,true?
msgbox?"Jajajaja, buen chico"
Los caracteres chinos se cambiarán según sea necesario. Cámbielo usted mismo. .
Si la otra parte no está dispuesta, realmente se cerrará. Úselo con precaución.