Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

abrir bandeja de otro equipo...

28/09/2004 - 22:24 por Jorge M | Informe spam
Ayuda Hacer una pregunta
Buenas tardes a todos,

tengo este código que abre la unidad de CD de mi equipo:

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
Sub yrjo()
mciSendString "Set CDAudio Door Open", 0&, 0, 0
Tiempo = Now + TimeValue("00:00:30")
Application.OnTime Tiempo, "yrjo"
End Sub

Hay alguna forma de uno hacer que por ejemplo dándole la
ip de un equipo que está en red se pueda hacer que la
unidad de ese equipo se abra?

gracias...
email Siga el debateRespuesta 4 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Héctor Miguel
29/09/2004 - 11:36 | Informe spam
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

Preguntas similares

 

Busqueda sugerida :