SoloCodigo

hola tengo un manual sobre el dbgrid que igual te sirve pero no lo puedo subir aqui por es de 98kb si me das una direccion e-mail te lo mando

Gracias HurryCrack por fin lo he conseguido, bueno no reinicia sino cierra la sesion pero bueno eso es muy facil con cambiarle la API ya esta, dejo el programa ya terminado por si alguien quiere mejorarlo y por si a alguien le sirve de ayuda.

hola estoy intentando hacer un programa para poder apagar/reiniciar otros ordenadores conectados a la red e hecho dos programas uno cliente y otro servidor en el cliente he puesto este codigo:

Private Sub Command1_Click()
tcpClient.SendData "REINICIAR"
End Sub


Private Sub Form_Load()
tcpClient.RemoteHost = "xxx.xxx.xxx.xxx"
tcpClient.RemotePort = 1001
End Sub

Private Sub cmdConnect_Click()
tcpClient.Connect
End Sub

al ejecutarlo y darle al command1_Click me sale este error:

"error 4006"
"protocolo o estado de conexion erroneo para la transaccion o peticion solicitada"

y en el servidor he puesto :

Private Sub Form_Load()
tcpServer.LocalPort = 1001
tcpServer.Listen
End Sub

Private Sub tcpServer_ConnectionRequest _
(ByVal requestID As Long)

If tcpServer.State <> sckClosed Then _
tcpServer.Close
tcpServer.Accept requestID
End Sub


Private Sub tcpServer_DataArrival(ByVal bytesTotal As Long)
Dim data As String
tcpServer.GetData data, vbString
Select Case data
Case Is = "REINICIAR"
        Dim lReiniciar As Long
        lReiniciar = ExitWindowsEx(EWX_REBOOT & EWX_FORCE, 0&)
        End Select
End Sub

con un modulo que he puesto esto otro:

Public Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Public Const EWX_LOGOFF = 0
Public Const EWX_REBOOT = 2
Public Const EWX_SHUTDOWN = 1
Public Const EWX_FORCE = 4

la verdad es que estoy muy trabado si alguien me podria hechar una mano se lo agradeceria muchisimo