VBA Excel - Abrindo e fechando o CD-ROM - Open and close the CD-ROM tray using VBA in Microsoft Excel


Já sei, já sei. Muitos perguntarão: 


_ Prá que aprender a abrir a gaveta do CD-ROM?


Perceba que não estarão apenas aprendendo 'a abrir a gaveta do CD-ROM', antes estará aprendendo a manipular periféricos em uma máquina, utilizando uma API do Windows.


Declare Sub mciSendStringA Lib "winmm.dll" (ByVal lpstrCommand As String, _ ByVal lpstrReturnString As Any, ByVal uReturnLength As Long, _ ByVal hwndCallback As Long)


Sub OpenCDTray()
    mciSendStringA "Set CDAudio Door Open", 0, 0, 0
End Sub


Sub CloseCDTray()
    mciSendStringA "Set CDAudio Door Closed", 0, 0, 0
End Sub







Tags: Bernardes, MS, Microsoft, Windows, Office, VBA, Excel, CD, CD-ROM, CDROM, mciSendStringA,winmm.dll, API, DLL, Lib







André Luiz Bernardes
A&A® - Work smart, not hard.


Nenhum comentário:

Postar um comentário

diHITT - Notícias