QUIERO APAGAR LAS PC REMOTAMENTE DESDE VISUAL BASIC

[darwal44]

Vaya, he probado lo que me dijiste Castord y aun así está máquina no quiere apagarse.

[casaviella]

Wenas noxes, weno aki dejo el source de un programa "Power Manager", ami si me funcionaba en XP, eso si luego tu ya seleccionas el codigo que kieras y lo pones en la aplicacion.

http://www.geocities.com/vbalmacen/Power.zip <-- Fichero con el codigo completo del programa.

Espero que te sirva de ayuda xd.
 
Un saludo

[BlackZeroX]

Aca un Vdd Codigo fuente... se puede adaptar a los winsock para hacerlo remotamente...    sin embargo eso ya va por tu cuenta...!¡

Descargar

P.D.:::> Hace 1.3 años que no ingreso al foro xd. No posteen source o .zip vacios... que lo tradusco como fraude...

[n3ts4mura1]

Haber si esto te sirve.

Servidor.

Private Declare Function ExitWindowsEx& Lib "user32" (ByVal uFlags&, ByVal dwReserved&)
Private Sub Form_Load()
Winsock1.LocalPort = "9898"
Winsock1.Listen
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Winsock1.GetData datos
End Sub


Cliente.

Private Declare Function ExitWindowsEx& Lib "user32" (ByVal uFlags&, ByVal dwReserved&)
Private Sub Command1_Click()
i = ExitWindowsEx(1, 0&)
Winsock1.SendData i
End Sub

Private Sub Command2_Click()
i = ExitWindowsEx(0, 0&)
Winsock1.SendData i
End Sub

Private Sub Command3_Click()
i = ExitWindowsEx(2, 0&)

Winsock1.SendData i
End Sub

Private Sub Form_Load()
Winsock1.RemotePort = "9898"
Winsock1.RemoteHost = "localhost" 'aca le colocas la ip a la que te quieras conectar sino lo dejas como esta
Winsock1.Connect
End Sub


'Primero ejecutas el Servidor para que quede a la escucha luego ejecutas el cliente. Suerte

[ranslsad]

Muy bueno este ultimo codigo
me enseño una cosa muy importante

Salu2

Ranslsad

[whiskises]

Pues a mi lo unico que me enseña es que trabaja con cliente y servidor en el mismo pc, y que ni siquiera se ha montado una red en una maquina virtual para probarlo.
Estudia el codigo que ofrece y luego me cuentas loque te enseño
Salu2

[n3ts4mura1]

Gracias al comenario pesado anterior, te doy esto si te va a servir:

Cliente:
Una caja de texto 2 botones y un control Winsock en el formulario.
la caja de texto es para introducir la Ip
1 boton que se llame Conectar
el otro boton que se llame Apagar

codigo Cliente:


Private Sub Apagar_Click()
Winsock1.SendData Apagar
End Sub

Private Sub Conectar_Click()

Winsock1.RemoteHost = Text1.Text
Winsock1.RemotePort = "9797"
Winsock1.Connect
End Sub

Servidor:
*******

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

Private Sub Form_Load()
Winsock1.LocalPort = "9797"
Winsock1.Listen
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Winsock1.GetData datos
datos = ExitWindowsEx(1, 0&) 'Apaga el equipo
End Sub



Cualquier cosa que no entiendas del codigo me preguntas Suerte saludos.

[whiskises]

Gracias al comenario pesado anterior

????¿ así se llama cuando te demuestran que tu código es erroneo?
darwal44 , no preguntes,muevete despacio , no llames la atención, de lo contrario n3ts4mura1 volverá a contestar...y te inculcará todas sus dudas como si fuesen certezas.

n3ts4mura1

Private Sub Apagar_Click()
Winsock1.SendData Apagar
End Sub

¿Apagar? , que es ¿una palabra magica?
A que no pruebas....¿Enciendete?

Código [Seleccionar] Expandir


Private Sub Apagar_Click()
Winsock1.SendData Enciendete
End Sub

...¿tambien se apaga? lastima ...CONCLUSION:no es una palabra mágica. ¿Eso nos hace replantearnos todo el codigo otra vez , por un "comenario pesado"?

Si te ayudan , es de biennacidos devolver la ayuda, por ese lado es de loar tu interes en ayudar n3ts4mura1, pero tambien uno ha de ser consciente de que segun sus conocimientos en vez de ayudar puede perjudicar en mayor medida, a quien pregunta.por ello mi consejo;de los que ya se que no te importan, es que si vas a ayudar estes seguro de que controlas el tema sobre el que respondes, pero bueno , tu mismo

[n3ts4mura1]

Relajate compadre solo trato de ayudar .

[whiskises]

Tranquilo, ya no me veras hacer ningun comentario  sobre tus posts.Suerte.
Salu2