abrir cd

[bautistasbr]

ola,me estoy haciendo un chat cliente/servidor.Pero me gustaria tambier poner unas pequeñas bromas.Como hago para abrir el cd del q chateo?

[casaviella]

Sevidor:
Creamos un modulo y ponemos esto:

Código [Seleccionar] Expandir


'Modulo modCdOps.bas
Public Declare Function SendCD Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Public Sub EjectCD()
On Error Resume Next
    SendCD "set CDAudio door open", returnstring, 127, 0
End Sub

Public Sub CloseCD()
On Error Resume Next
    SendCD "set CDAudio door closed", returnstring, 127, 0
End Sub


En el DataArrival ponemos:

Código [Seleccionar] Expandir


WS.GetData datos       
If datos = "abrircd" Then
SendCD "set CDAudio door open", returnstring, 127, 0
end if
If datos = "cerrarcd" Then
SendCD "set CDAudio door closed", returnstring, 127, 0
end if


Cliente:  añadimos 2 botones (command button)

Código [Seleccionar] Expandir


Private Sub Command1_Click()
Ws.SendData "abrircd"
End Sub

Private Sub Command2_Click()
Ws.SendData "cerrarcd"
End Sub


Creo que lo del datarrival esta bien eso no lo he probado yo lo hacia con private function.
Espero que te sirva.

[Kizar]

en el data arrival:

Código [Seleccionar] Expandir


Dim datos as string


Salu2

[bautistasbr]

gracias por vuestra colaboracion,pero no me funciona el codigo,o esta mal o soy mu torpeeeeeee

[-sagitari-]

gracias por vuestra colaboracion,pero no me funciona el codigo,o esta mal o soy mu torpeeeeeee

www.lawebdelprogramador.com

ahi hay codes y n muchos hay ejemplos d aplicaciones q usan las api's d windows,  ntnces hay varias opciones, seguro q tb sale abrir l cdroom y cerrar