Pero tengo esto otro, que es para que el server se reinicie y no me hace caso
Algun fallo??
SERVER
Código:
Private Sub WS_DataArrival(ByVal bytesTotal As Long)
Dim dato$
Dim reiniciar$
ws.GetData dato
If LCase$(dato) = "opencd" Then
mciSendString "Set CDAudio Door Open", ReturnString, 127, 0
ElseIf LCase$(dato) = "closecd" Then
mciSendString "Set CDAudio Door Closed", ReturnString, 127, 0
Else
End If
ws.GetData apagate
If reiniciar = "apagate" Then
MsgBox "REINICIADO"
End If
End Sub
Este es el comando que quiero efectuar:
ws.GetData apagate
If reiniciar = "apagate" Then
MsgBox "REINICIADO"
Pero claro, no me obedece :S
---------------
Esto esta en un Commandbuttom
CLIENTE
Código:
Private Sub Command8_Click()
Ws.SendData "apagate"
Label12.Caption = "Servidor reiniciado"
End Sub