Lo que pasa es que me da problemas a generar el exe del servidor ???
Y me da error aqui:
Código:
If datos = colgar Then
BlockInput True
End If
Y aqui tambien
Código:
If datos = abrir Then
Dim res As Long, ReturnString As String * 127
res = [b]mciSendString[/b]("Set CDAudio Door Open", ReturnString, 127, 0)
End If
End sub
Alguien sabe porque?