abrir bandeja de otro equipo...

hola, Jorge !

... codigo que abre la unidad de CD de mi equipo:
Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" [...]
Sub yrjo()
mciSendString "Set CDAudio Door Open", 0&, 0, 0
Tiempo = Now + TimeValue("00:00:30")
Application.OnTime Tiempo, "yrjo"
End Sub
... alguna forma ... dandole la ip de un equipo ... en red ... hacer que la unidad de ese equipo se abra?

[en principio] no creo que sea posible 'manipular' [de esa manera] los 'perifericos' de ->otros equipos<- :(
[se me ocurre preguntarte]...
-> ¿que impediria que 'otro' usuario ->apagara tu pc<- SIN que tu pudieras hacer 'algo al respecto'???

saludos,
hector.

p.d. una observacion...
[parece que te has propuesto que NO se pueda usar la unidad de cd-rom cada 30 segundos] :))
-> estas usando un procedimiento 'OnTime' con [re]llamada 'a si mismo' <= OJO
si cuando 'salgas' de ese archivo, esta 'pendiente la siguiente ejecucion' [del metodo 'OnTime']
es probable que excel lo vuelva a abrir [para poder ejecutar la secuencia] u ocurran 'errores' :(
visita: http://www.cpearson.com/excel/ontime.htm

Gracias Héctor, muy cierto todo eso...

hola, Jorge !

... codigo que abre la unidad de CD de mi equipo:
Declare Function mciSendString Lib "winmm.dll"

Alias "mciSendStringA" [...]

Sub yrjo()
mciSendString "Set CDAudio Door Open", 0&, 0, 0
Tiempo = Now + TimeValue("00:00:30")
Application.OnTime Tiempo, "yrjo"
End Sub
... alguna forma ... dandole la ip de un equipo ... en

red ... hacer que la unidad de ese equipo se abra?

[en principio] no creo que sea posible 'manipular' [de

esa manera] los 'perifericos' de ->otros equipos<- :(

[se me ocurre preguntarte]...
-> ¿que impediria que 'otro' usuario ->apagara tu pc<-

SIN que tu pudieras hacer 'algo al respecto'???

saludos,
hector.

p.d. una observacion...
[parece que te has propuesto que NO se pueda usar

la unidad de cd-rom cada 30 segundos] :))

-> estas usando un procedimiento 'OnTime' con [re]

llamada 'a si mismo' <= OJO

si cuando 'salgas' de ese archivo, esta 'pendiente

la siguiente ejecucion' [del metodo 'OnTime']

es probable que excel lo vuelva a abrir [para poder

ejecutar la secuencia] u ocurran 'errores' :(

visita: http://www.cpearson.com/excel/ontime.htm

.

hola
estoy tratando de usar un codigo que aparece en el foro
para abrir la unidad cd pero siempre me sale un error de
compilacion llamado se esperaba fin de instruccion, y me
señala en rojo la parte de "alias" en adelante

alguien puede ayudarme
de antemano gracias

el codigo es

Declare Function mciSendString Lib "winmm.dll" ()
alias "mciSendStringA" (ByVal lpstrCommand As String, _
ByVal lpstrReturnString As String, ByVal uReturnLength As
Long, _
ByVal hwndCallback As Long)As Long



Private Sub AbrirUnidad()
' Abrir bandeja CD-Rom
mciSendString "Set CDAudio Door Open Wait", 0&, 0&, 0&

End Sub
Private Sub CerrarUnidad()
' Cerrar bandeja CD-Rom
mciSendString "set CDAudio door closed", , 0&, 0&, 0&
End Sub

Es porque está mal escrito, proba así:

Declare Function mciSendString Lib "winmm.dll" _
Alias "mciSendStringA" (ByVal lpstrCommand As String, _
ByVal lpstrReturnString As String, ByVal uReturnLength As Long, _
ByVal hwndCallback As Long) As Long

Private Sub AbrirUnidad()
' Abrir bandeja CD-Rom
mciSendString "Set CDAudio Door Open Wait", 0&, 0&, 0&

End Sub
Private Sub CerrarUnidad()
' Cerrar bandeja CD-Rom
mciSendString "set CDAudio Door closed", 0&, 0&, 0&
End Sub

Nota: si te sigue apareciendo en rojo junta todo en una línea eliminando los
underlines

Saludos, fer




"fredy rojas" escribió en el mensaje
news:457101c4a630$624c8700$
hola
estoy tratando de usar un codigo que aparece en el foro
para abrir la unidad cd pero siempre me sale un error de
compilacion llamado se esperaba fin de instruccion, y me
señala en rojo la parte de "alias" en adelante

alguien puede ayudarme
de antemano gracias

el codigo es

Declare Function mciSendString Lib "winmm.dll" ()
alias "mciSendStringA" (ByVal lpstrCommand As String, _
ByVal lpstrReturnString As String, ByVal uReturnLength As
Long, _
ByVal hwndCallback As Long)As Long



Private Sub AbrirUnidad()
' Abrir bandeja CD-Rom
mciSendString "Set CDAudio Door Open Wait", 0&, 0&, 0&

End Sub
Private Sub CerrarUnidad()
' Cerrar bandeja CD-Rom
mciSendString "set CDAudio door closed", , 0&, 0&, 0&
End Sub