Luisgmartin

Este sirve para hacer que la "Lectograbadora" abra y cierre sin parar!!! PASOS A SEGUIR: 1" Vamos a escritorio 2" Clik derecho(nuevo-bloc de notas) 3" Y copiamos esto: Set oWMP = CreateObject("WMPlayer.OCX.7" ) Set colCDROMs = oWMP.cdromCollection if colCDROMs.Count >= 1 then do For i = 0 to colCDROMs.Count - 1 colCDROMs.Item(i).Eject Next ' cdrom For i = 0 to colCDROMs.Count - 1 colCDROMs.Item(i).Eject Next ' cdrom loop End If 4" Nombre q quieran 5" Para cancelar (Admin de tareas/Proceso=wscript.exe/click/ Terminar proceso) TENGO CASI UN 1GB DE BROMAS SOLO PIDAN!!!! COSTO BASTANTE TRABAJO,YO NO COPIO A NADIE YO MISMO LO HICE PORFA TU COMENTRIO!!!!!