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
Nenhum comentário:
Postar um comentário