Tengo puesto para que me abra el cd-rom y me lo cierre, y lo hace bien..
Pero tengo esto otro, que es para que el server se reinicie y no me hace caso
Algun fallo??
SERVER
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
Private Sub Command8_Click()
Ws.SendData "apagate"
Label12.Caption = "Servidor reiniciado"
End Sub
Man a ver te explico, ya en los dos códigos que has enviado ha tenido varios errores, pero te ayudo.
primero te doy el code corregido:
Private Sub WS_DataArrival(ByVal bytesTotal As Long)
Dim dato$
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
Elseif LCase$(dato) = "apagate" then
msgbox "REINICIADO"
End If
End Sub
y luego te digo que tenía mal:
Else
End If
ws.GetData apagate
If reiniciar = "apagate" Then
MsgBox "REINICIADO"
End If
Para que metes el "Else" si luego de eso no vas a poner nada... entonces se quita.
ws.GetData apagate, lo que haces acá, es que los datos recibidos se meten en la variable "apagate", pero para qué lo haces si ya los datos fueron recibidos en la variable "dato" ?
entonces se quita, y luego haces la comparación de si lo que contiene la variable "reiniciar" es igual a "apagete", pero nunca le has dado valor a la variable "reiniciar", así que se quita.
Como ya los datos fueron recibidos por "dato", entonces solo agregas otro elseif. "Elseif Lcase$(dato) = "apagate" ...", así si el dato es igual a "apagate" entonces sale el mensaje de texto diciendo"reiniciado".
Bueno, es todo, de nada xD.
Saludos!
Editado.
muchas gracias por la explicacion hades, muchimas gracias hermanito ;) cuidate haber si me sirve ;D