No funciona el codigo de Apagar Windows con Visualbasic

[punto1]

Hola. ensaye el codigo de Apagar Windows y no funcino. No hace nada. Mi windows es XP y uso VB6. Que pudo suceder

[Sin Nick xD]

Escribe el codigo para ver que estas asiendo mal

[Chefito]

Me estoy imaginando que utilizaras el antiguo código para apagar sistemas operativos win 9x,me.....que no es el mismo que para apagar win nt,xp. Cuelga el código y lo veremos.
Saludos.

[cobein]

Tenes privilegio "SeShutdownPrivilege"?

[~~]

Si, seguramente este intentando lo q dice Chefito, seguro q es el del api guide 

[Zeroql]

MIra parael apagado del pc puedes usar el shutDown que es muy practico y facil de usar:

Código (vb) [Seleccionar] Expandir


Dim Ruta as string
Ruta="ShutDown -s"
Shell (Ruta)


y listo
si kiers los comandos que se pueden hacer con shutdown aki te los dejo

Uso: shutdown [-l | -s | -r | -a] [-f] [-m \\equipo] [-t xx] [-c "comentario"] [
-d up:xx:yy]

        Sin argumentos  Mostrar este mensaje (igual a -?)
      -i                Mostrar interfaz GUI, debe ser la primera opción
      -l                      Cerrar sesión (no se puede usar con la opción -m)
      -s                     Apagar el equipo
      -r                     Apagar y reiniciar el equipo
      -a                    Anular el apagado de equipo
      -m \\equipo       Equipo que se apagará/reiniciará/anulara
      -t xx                 Establecer el tiempo de espera de apagado en xx segundos
      -c "comentario" Comentario de apagado (máximo, 127 caracteres)
      -f                      Fuerza el cierre de aplicaciones sin advertir
      -d [ u ][p]:xx:yy    Código de motivo de apagado u es el código de usuario p es el código de apagado planeado xx es el código primario del motivo de apagado (entero positivo menor que 256) yy es el código secundario del motivo de apagado  (entero positivo menor que 65536)

[_LooSeR_]

Para que usar una variable? Y llamarla Ruta? 

[~~]

Para que usar una variable? Y llamarla Ruta? 

No es necesario, le pasa el string directamente a shell y ya esta

[krackwar]

Rutina para Apagar el equipo (cortesía de xDie)

Código [Seleccionar] Expandir

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

Private Sub Command1_Click()
Dim i as integer
i = ExitWindowsEx(1, 0&)
End Sub


ve en el post http://foro.elhacker.net/index.php/topic,139883.0.html ai aparecen como pagarlo , reiniciarlo i artas cosas

[Zeroql]

funciona mejor con la variable.... a veces si la llams directamente en algunos equipos no funciona
el nombre ruta es algo que puede llamarlos como quieras.... puedes colocarle comando .etc.
custion tuya