problemas con select urgente.
cadrogui
03 de Diciembre del 2003
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 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
pero como puedo hacer para que cuando mande la instruccion abrir se abra...el cdrom?
salu2
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
pero como puedo hacer para que cuando mande la instruccion abrir se abra...el cdrom?
salu2