Vb Cd rom açıp kapat :)

[xelloz]

cd rom komutları
Alttaki yazıyı general bölümüne yazınız
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
alttaki komutlarıda istediğiniz butona yerleştirebilirsiniz...

mciexecute("set cdoudio door open") 'cdrom açar

mciExecute ("set cdaudio door closed") 'cdrom kapar

Ayriyetten Bu komutta bilgisayarı kapatır

Shell "shutdown.exe - s", vbMaximizedFocus ' bilgisayarı kapar