Views

Histats

Vitrine

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á
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, API, DLL,

winmm.dll, Lib


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


LinkWithinBrazilVBAExcelSpecialist

Related Posts Plugin for WordPress, Blogger...