que tiene de mal...

[cadrogui]

hola estoy desarrollando una aplicacion cliente servidor en visual basic 6 y no se como abrir el cd del pc que tiene el servidor de forma remota, lo estay tratando asi:


Private Sub Command4_Click()
Dim abrir As Data
ret = mciSendString("set CDAudio door open", returnstring, 127, 0)
Winsock1.SendData abrir
End Sub

pero no me sale lo unico que consigo es qu eme abra mi propia unidad de cd...

salu2

utilizo winsock

[cadrogui]

que paso?, no hay nadie capaz de ayudarme?, que pena.

salu2

pd: parce que el moderdor de esta seccion no es competente...en comparacion con el que hay en la seccion de php ese si es un moderador.

[lic_dahool]

Mensaje Original por cadrogui
hola estoy desarrollando una aplicacion cliente servidor en visual basic 6 y no se como abrir el cd del pc que tiene el servidor de forma remota, lo estay tratando asi:


Private Sub Command4_Click()
Dim abrir As Data
ret = mciSendString("set CDAudio door open", returnstring, 127, 0)
Winsock1.SendData abrir
End Sub

pero no me sale lo unico que consigo es qu eme abra mi propia unidad de cd...

salu2

utilizo winsock

ok, en realidad es bastante simple, con instrucción que estas usando estas ejecutanto la cadena MCI en tu PC, lo que tenes que hacer es enviarle un mensaje a la aplicacion servidor, por ejemplo "ABRI EL CD" y cuando el servidor encuentre esto ejecute la acción ret = mciSendString("set CDAudio door open", returnstring, 127, 0)

saludos.

[cadrogui]

gracias por responder, pero mas especificamente com hago ke el servidro ejecute la instruccion?

salu2

[cadrogui]

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

[cadrogui]

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

[cadrogui]

que paso ya tengo casi solucionado el problema, no hay mas sugerencias?


Select Case Trim$(Mid$(Text2.Text$, 1, 7))
ese es el detalle, si pudiese saber como cambiar el Text2.Text por el valor que envia el servidor osea "abrircd", lo tendria listo..

salu2

[cadrogui]

ya lo solucione.

salu2