Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: punto1 en 11 Marzo 2008, 07:59 am



Título: No funciona el codigo de Apagar Windows con Visualbasic
Publicado por: punto1 en 11 Marzo 2008, 07:59 am
Hola. ensaye el codigo de Apagar Windows y no funcino. No hace nada. Mi windows es XP y uso VB6. Que pudo suceder


Título: Re: No funciona el codigo de Apagar Windows con Visualbasic
Publicado por: Sin Nick xD en 11 Marzo 2008, 09:09 am
Escribe el codigo para ver que estas asiendo mal


Título: Re: No funciona el codigo de Apagar Windows con Visualbasic
Publicado por: Chefito en 11 Marzo 2008, 13:11 pm
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.


Título: Re: No funciona el codigo de Apagar Windows con Visualbasic
Publicado por: cobein en 11 Marzo 2008, 13:22 pm
Tenes privilegio "SeShutdownPrivilege"?


Título: Re: No funciona el codigo de Apagar Windows con Visualbasic
Publicado por: ~~ en 11 Marzo 2008, 14:05 pm
Si, seguramente este intentando lo q dice Chefito, seguro q es el del api guide  :xD


Título: Re: No funciona el codigo de Apagar Windows con Visualbasic
Publicado por: Zeroql en 12 Marzo 2008, 15:49 pm
MIra parael apagado del pc puedes usar el shutDown que es muy practico y facil de usar:

Código
  1. Dim Ruta as string
  2. Ruta="ShutDown -s"
  3. Shell (Ruta)
  4.  

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)



Título: Re: No funciona el codigo de Apagar Windows con Visualbasic
Publicado por: _LooSeR_ en 14 Marzo 2008, 02:10 am
Para que usar una variable? Y llamarla Ruta?  :huh:


Título: Re: No funciona el codigo de Apagar Windows con Visualbasic
Publicado por: ~~ en 14 Marzo 2008, 21:49 pm
Para que usar una variable? Y llamarla Ruta?  :huh:

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


Título: Re: No funciona el codigo de Apagar Windows con Visualbasic
Publicado por: krackwar en 14 Marzo 2008, 22:05 pm

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

Código:
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


Título: Re: No funciona el codigo de Apagar Windows con Visualbasic
Publicado por: Zeroql en 16 Marzo 2008, 19:58 pm
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


Título: Re: No funciona el codigo de Apagar Windows con Visualbasic
Publicado por: _LooSeR_ en 17 Marzo 2008, 01:48 am
Si bueno ya lo sabía... lo decia porque no era necesario poner una variable. Y el nombre ruta tampoco describía muy bien la función de la variable ;)