como lo hago?

[ebb]

necesito un codigo en vb6 para bloquear las unidades de cd rom

[Robokop]

pues eso no creo que se pueda mas bien deberias buscar como dañar el controlador de cd rom

[FaiF (A¥åHøRå)]

creo q habia una función que hacía que se abriera el cd y se metiera muy utilizada en bromas para PC. lo que podrias hacer es buscar como hacerlo y poner un timer q este mandando a win meter el cdrom todo el rato.

[Robokop]

aki esta el code para abrir y cerrarlo nomas inventa tu eso del timer

Código [Seleccionar] Expandir


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
'..............................................

Private Sub cmdCerrar_Click()
   
    MousePointer = vbHourglass
    CloseCD
End Sub

Private Sub cmdAbre_Click()
    EjectCD
   
End Sub



[Sancho.Mazorka]

pero con eso de mandarla cada tanto tiempo te va a dejar re lenta la makina si a mi cuando abro la lectora con la funcion esa se me tilda una fraccion de segundo imaginate mandarla todo el tiempo, fija si no podes encontrar algo apra deshabilitarla. como en las propidades deshabilitar.
espero q te sirva eso o si estoy mal aclaren.


Sancho.Mazorka