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

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

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

????¿ 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
¿Apagar? , que es ¿una palabra magica?
A que no pruebas....¿Enciendete?
...¿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

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