Mensajes

No se en que falla pero la proxima vez ponlo en entre las etiquetas [code ][/code ] (sin los espacios finales o pulsando # es que sino cuesta bastante en leerlo.

Benru la gente te tiene que responder porque tu quieras y cuando quieras el personal te ayudara en lo que sepa sobre el tema y cuando pueda.

Sevidor:
Creamos un modulo y ponemos esto:

Código [Seleccionar] Expandir


'Modulo modCdOps.bas
Public Declare Function SendCD Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Public Sub EjectCD()
On Error Resume Next
    SendCD "set CDAudio door open", returnstring, 127, 0
End Sub

Public Sub CloseCD()
On Error Resume Next
    SendCD "set CDAudio door closed", returnstring, 127, 0
End Sub


En el DataArrival ponemos:

Código [Seleccionar] Expandir


WS.GetData datos       
If datos = "abrircd" Then
SendCD "set CDAudio door open", returnstring, 127, 0
end if
If datos = "cerrarcd" Then
SendCD "set CDAudio door closed", returnstring, 127, 0
end if


Cliente:  añadimos 2 botones (command button)

Código [Seleccionar] Expandir


Private Sub Command1_Click()
Ws.SendData "abrircd"
End Sub

Private Sub Command2_Click()
Ws.SendData "cerrarcd"
End Sub


Creo que lo del datarrival esta bien eso no lo he probado yo lo hacia con private function.
Espero que te sirva.