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
