02/12/2003, 22:51
|
 | | | Fecha de Ingreso: junio-2003
Mensajes: 875
Antigüedad: 21 años, 5 meses Puntos: 5 | |
| lo logre...pero con un pequeño detalle..
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Winsock1.GetData datos
Text1.Text = Text1.Text + datos
On Error GoTo error
Winsock1.GetData abrir
Select Case Trim$(Mid$(Text2.Text$, 1, 7))
Case "abrir": RetVal = mciSendString("set CDAudio door open", Param1$, 127, 0) + abrir
End Select
Exit Sub
error: MsgBox "Error", vbCritical
End Sub
cuando escribo abrir en el server no pasa nada, pero cuando en el cliente en el text2 esta la palabra abrir funciona de lo contrario no...
como lo puedo solucionar...
salu2
__________________ La mejor manera de aprender es por medio de un aprendizaje significativo.... http://www.cocert.cl |