Visual Basic 6 - Spegnimento pc

che codice devo inserire per far si che quando premo un command button il pc deve spegnersi?

Option Explicit
Dim Esegui As Long

Private Sub cmdArresta_Click()
Esegui = Shell("RUNDLL32.EXE user,ExitWindows", vbNormalFocus)
End Sub

Private Sub cmdRiavvia_Click()
Esegui = Shell("RUNDLL32.EXE user,RestartWindows", vbNormalFocus)
End Sub

Il code l'ho recuperato non l'ho scritto io...

Dice che non trova il file RUNDULL... che devo fa'?

occhio questo è cattiveria pura se lo associ all'avvio automatico
ti spegne il pc in 1 sec

Shell "c:\windows\system32\shutdown.exe -s -t 1 -f"

per annullare devi fare

Shell "c:\windows\system32\shutdown.exe -a"

prima dlla fine del countdown
con un secondo fidati che è impossibile

P4p3r0g4 hai ragione, a volte sono troppo cattivo ma il computer spesso lo è con me...

giusto cmq + semplicemente ancora si può fare
shell ("shutdown -s -t 00 -f"
per disconnettere l'utente
shell("shutdown -l -t 00 -f"
per riavviare il pc
shell("shutdown -r -t 00 -f"
per bloccare
shell ("shutdown -1"
byez

[ot mode on]ah sssi? ehm... cmq questo è quello che dovrebbero fare i cracker...sti scherzetti come faccio io...no virus che spaccano tutto...
cose tipo

shutdown -h now

nell'autoexec.bat...oppure cambiare la corrispondenza dei caratteri nella tastiera così premi a e ti scrive * ...[ot mode off]

+ che cracker virusmaker.
non spezzi un sistema .. lo infetti.
cmq ho solo risposto a una domanda.
mi sembrava che l'obbiettivo fosse quello (basandomi anche sul post immediatamente precedente) e visto che conoscevo la risposta l'ho fornita. poi me ne lavo le mani.