elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: ¿Eres nuevo? ¿Tienes dudas acerca del funcionamiento de la comunidad? Lee las Reglas Generales


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  QUIERO APAGAR LAS PC REMOTAMENTE DESDE VISUAL BASIC
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] 2 3 Ir Abajo Respuesta Imprimir
Autor Tema: QUIERO APAGAR LAS PC REMOTAMENTE DESDE VISUAL BASIC  (Leído 20,443 veces)
darwal44

Desconectado Desconectado

Mensajes: 6


Ver Perfil
QUIERO APAGAR LAS PC REMOTAMENTE DESDE VISUAL BASIC
« en: 10 Agosto 2006, 16:16 pm »

Me han encomendado la tarea de escribir un programa en Visual Basic que sea capaz de apagar las PC remotamente. Yo he usado la API ExitWindowsEx de Windows 98 y la InitiateSystemShutdown de NT, pero las máquinas que tengo que apagar tienen Windows XP. ¿Alguno me podría decir qué API de XP puede apagar remotamente la PC?

     Muchas Gracias.
 


En línea

CrackBubledMind

Desconectado Desconectado

Mensajes: 16


xD


Ver Perfil
Re: QUIERO APAGAR LAS PC REMOTAMENTE DESDE VISUAL BASIC
« Respuesta #1 en: 10 Agosto 2006, 16:21 pm »

 ;D Vas Bien, recuerdo que yo lo logre con la Api ExitWindowsEx pero era una maquina windows 2000, es que hay distintas combinaciones, no se creo que para apagarla le das el valor &01, &00, no recuerdo bien como era el valor, pero se que es algo asi si no es esa es esta &00,&01, prueba combiando  :huh: Saludos xD


En línea

"Los angeles que han sido expulsados del cielo solamente pueden volverse demonios"
elmaro


Desconectado Desconectado

Mensajes: 301


Unas simples palabras...


Ver Perfil
Re: QUIERO APAGAR LAS PC REMOTAMENTE DESDE VISUAL BASIC
« Respuesta #2 en: 10 Agosto 2006, 16:26 pm »

de3clras est funcion

Código:
Private Declare Function ExitWindowsEx& Lib "user32" (ByVal uFlags&, ByVal dwReserved&)

despeus para apagar pones asi
en un boton podes poner cualkieira de estas 3 lineas,. que acen cosas distintas
apagar el ekipo:
Código:
i = ExitWindowsEx(1, 0&)
reinicia la sesion
Código:
i = ExitWindowsEx(0, 0&)
reinicia el ekipo
Código:
i = ExitWindowsEx(2, 0&)

la variavle i es una vriable cualkiera

espero te sirva
suerte




El MaRo!
En línea

darwal44

Desconectado Desconectado

Mensajes: 6


Ver Perfil
Re: QUIERO APAGAR LAS PC REMOTAMENTE DESDE VISUAL BASIC
« Respuesta #3 en: 10 Agosto 2006, 21:19 pm »

Gracias por responderme: En efecto probé esta nueva manera de usar la API ExitWindowsEx. Use está sentencia
i = ExitWindowsEx(&Afro, &O1)
pero lo más que he logrado es que el sistema termine la sesión. No he logrado que se apague la máquina. He probado diferentes combinaciones de los parámetros, pero aun así lo único que he logrado es que finalice la sesión. Saben de alguna otra combinación?

          Gracias.
En línea

Hans el Topo


Desconectado Desconectado

Mensajes: 1.754


"Estoy cansado de no hacer nada"


Ver Perfil WWW
Re: QUIERO APAGAR LAS PC REMOTAMENTE DESDE VISUAL BASIC
« Respuesta #4 en: 10 Agosto 2006, 21:45 pm »

yo cuando trastee con esa api, creo recordar que lo máximo que hace es cerrar la sesion...
En línea

WarGhost
I love basket


Desconectado Desconectado

Mensajes: 1.070



Ver Perfil WWW
Re: QUIERO APAGAR LAS PC REMOTAMENTE DESDE VISUAL BASIC
« Respuesta #5 en: 10 Agosto 2006, 22:02 pm »

para poder apagar tiene que conseguir privilegios si no, no se puede.

;D Salu2, WarGhost
« Última modificación: 10 Agosto 2006, 22:08 pm por WarGhost » En línea

darwal44

Desconectado Desconectado

Mensajes: 6


Ver Perfil
Re: QUIERO APAGAR LAS PC REMOTAMENTE DESDE VISUAL BASIC
« Respuesta #6 en: 10 Agosto 2006, 23:32 pm »

Saludos:
            Sé que debo tener privilegios y los tengo yo soy el administrador.
En línea

yofoxD

Desconectado Desconectado

Mensajes: 169


Ver Perfil
Re: QUIERO APAGAR LAS PC REMOTAMENTE DESDE VISUAL BASIC
« Respuesta #7 en: 11 Agosto 2006, 00:55 am »

prueba con un:

shell "shutdown -s -t"
En línea

Castord

Desconectado Desconectado

Mensajes: 60



Ver Perfil
Re: QUIERO APAGAR LAS PC REMOTAMENTE DESDE VISUAL BASIC
« Respuesta #8 en: 11 Agosto 2006, 01:03 am »

Dim WS as object

set WS=CreateObject("WScript.Shell")

WS.run "Shutdown -s" o 'cualquier otro argumento, esto avisa sobre la operacion. Para WinXP

Te paso el Codigo Cliente_Servidor si queres, es muy facil.
Esto es lo que debería estar en la maquina a ser apagada.
En línea

Desde Asunción - Paraguay
/*Es una ***** pero igual amo mi país!*/
darwal44

Desconectado Desconectado

Mensajes: 6


Ver Perfil
Re: QUIERO APAGAR LAS PC REMOTAMENTE DESDE VISUAL BASIC
« Respuesta #9 en: 11 Agosto 2006, 01:29 am »

Hola.
      Gracias por el consejo Castord, y sí te agradecería mucho que me pases el código Cliente - Servidor.

            Gracias
En línea

Páginas: [1] 2 3 Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
apagar remotamente un pc desde ms-dos(ya se que hay un tema pero es viejo)
Windows
Quake-man 6 17,935 Último mensaje 30 Abril 2012, 09:27 am
por manute_powa
quiero aprender visual basic!
Programación Visual Basic
maaxiitoo 4 3,913 Último mensaje 28 Diciembre 2010, 22:51 pm
por maaxiitoo
ConnectServer Apagar equipos remotamente
Programación Visual Basic
palophp 3 2,234 Último mensaje 27 Octubre 2016, 21:43 pm
por DelKoS
apagar remotamente un pc en lan con la dirección mac
GNU/Linux
WIитX 0 2,069 Último mensaje 19 Abril 2018, 03:55 am
por WIитX
Duda sobre como apagar remotamente desde cmd
Dudas Generales
ForgeMode 4 2,571 Último mensaje 13 Febrero 2020, 00:08 am
por @XSStringManolo
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines