Apagar, reiniciar, suspender

[Guan]

 Holas, ya stoi molestando por aki otra vez xD, vereis esqenecesito apagar y reiniciar el pc desde vb, y googleando me an salido no miles, sino millones de webs qe lo explican, pero todas tienen lo mismo:

Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long


 y para usarlo:

Private Sub Command2_Click()
Dim i As Integer
i = ExitWindowsEx(0, 0&)
End Sub

y dependiendo del numerito 0 cierra sesion, 5 fuerza el apagado, 6 fuerza el reiniciado, 3 suspende el sistema..., pero ponga el numero qe ponga siempre me cierra la sesion.
   Tambien he probado:

Private Sub Command1_Click()
Shell "shutdown -s -f", 0
End Sub

Que teoricamente apaga el eqipo de golpe, es qe mas me convence pero el gran problema es qe tarda 30 segundos, y mientras muestra un error, y esto no es muy bonito qe digamos (tipo sasser).

   Pues eso, aver si alguien me puede exar una mano (o un code) para apagar y/o reiniciar a sako y sin preguntar y al instante.

   Graxias

[Punk-Rock]

si no te funciona la API intenta esto

Código:

Shell "shutdown -s -f -t 01", 0

Salu2

[clipto boxw]

pues mira es muy facil es como dice hendrix

Código:

shell ("cmd.exe /c start -i") >>>>>>>>>cierra cesion
 

Código:

shell ("cmd.exe /c start -s") >>>>>>>>>apaga equipo
 

Código:

shell ("cmd.exe /c start -r") >>>>>>>>>reinicia equipo
 

bueno espero esto te ayude.. yo no hace mucho me hice uno  con estos codigos y me quedo algo asi.


espero te aya servido la informacion