martes, 11 de junio de 2013
Abrir y Cerrar bandeja de CD/DVD (Unidad de CD/DVD) con Visual Basic 6.0
Alguna vez te haz preguntado ¿Será posible manipular Hardware con Visual Basic 6.0? La respuesta es Sí, en este caso vamos a manipular la unidad de CD/DVD con simples códigos.
Primero vamos a conocer nuevos códigos
1) mciSendString: Separando el código "mci Send String" Se encarga de enviar cadenas de comandos a un dispositivo MCI. El dispositivo recibe la orden enviada, especificada en la cadena de mandos.
¿Que es un MCI?: MCI (Multimedia Control Interface) es una API (Aplication Programming Interface) antigua para controlar dispositivos (ya sea unidad de CD/DVD, Mouse, Teclado, etc...) conectados a los ordenadores con Sistema Operativo Windows u OS/2.
2) Lib: Para ejecutar librerías, DLL, etc...
3) winmm.dll: Es uno de los archivos importantes del Sistema, lo que hace que su PC funcione correctamente (Atención: Este archivo no debe eliminarse, o te va a dejar sin funcionar tu Windows).
4) set CDAudio door open: Significa abrir bandeja
5) set CDAudio door closed: Significa cerrar bandeja
Bien ya que tenemos una idea de los códigos a utilizar, vamos a hacer lo siguiente.
1) Ejecutar Visual Basic 6.0 y abrir un EXE estándar
2) Ya al haber creado un EXE estándar, al lado derecho donde dice Proyecto - Proyecto1
3) Le das click derecho a la carpeta que contiene el archivo Form - Form1
Seleccionas Agregar y luego de das click a Módulo
Te saldrá una ventana que te muestra nada mas con unico icono que dice Módulo y le das click Abrir
Te abrirá una ventana, bien solo copia y pega esta sintaxis
Option Explicit
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
4) Ahora al lado derecho le das click izquierdo a Form (Form1)
Bien en el formulario vamos a crear dos CommandButton
El Command1 es Abrir Bandeja y el Command2 es Cerrar Bandeja, bien dale click al Command1, y copia y pega la siguiente sintaxis.
Command1, sintáxis siguiente:
Private Sub Command1_Click()
' Abrir bandeja CD-Rom
mciSendString "set CDAudio door open", "", 127, 0
End Sub
Dale click a Command2, copia y pega la siguiente sintaxis.
Command2, sintaxis siguiente:
Private Sub Command1_Click()
' Cerrar bandeja CD-Rom
mciSendString "set CDAudio door closed", "", 127, 0
End Sub
Bien ahora dale click al triangulo, para compilar el programa y probarlo
Esta 100% probado en Windows XP, Windows Vista, Windows 7 y Windows 8
Espero de que le halla servido de ayuda y de curiosidad >.<.
Excelente aplicación, muchas gracias por compartirlo.
ResponderEliminarLe explicación excelente, solo q no me funcionó
ResponderEliminarExcelente
ResponderEliminar