02/12/2003, 16:32
|
 | | | Fecha de Ingreso: junio-2003
Mensajes: 875
Antigüedad: 20 años, 11 meses Puntos: 5 | |
| creo que estoy cerca..pero aun tengo dudas..
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Winsock1.GetData datos
Text1.Text = Text1.Text + datos
Select Case Trim$(Mid$(Text2.Text$, 1, 7))
Case "abrir": RetVal = mciSendString("set CDAudio door open", Param1$, 127, 0)
End Select
End Sub
la duda que me akeja es como envio la instruccion para que ejecute el case? desde el server?, pq no hace nada .....
salu2
__________________ La mejor manera de aprender es por medio de un aprendizaje significativo.... http://www.cocert.cl |