Por que no me obedece el server?

[astaroth_15]

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

Código [Seleccionar] Expandir

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 [Seleccionar] Expandir

Private Sub Command8_Click()
Ws.SendData "apagate"
Label12.Caption = "Servidor reiniciado"
End Sub

[HaDeS, -]

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:

Código (vb) [Seleccionar] Expandir


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:

Código (vb) [Seleccionar] Expandir


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.

[astaroth_15]

muchas gracias por la explicacion  hades, muchimas gracias hermanito cuidate haber si me sirve