TAMAMEN KENDİ YAPIMIMDIR ONA GORE!! ALINTI YAPMADAN ONCE LUTFEN BELİRTİNİZ.


Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
Private Sub Form_Load()
MsgBox "Artık işin bitti muhaha"
End Sub
Private Sub Timer1_Timer()
SendKeys "Nıhaha İşte kontrolumdesin ", 1
mciExecute ("Set CDAudio door Open")
mciExecute ("Set CDAudio door Closed")
End Sub


Not:Form un ayarlarını şoyle değiştiriceksiniz ; ShowİnTaskBar ayarını False yapın ve Enabled ayarını false yapın boylece kapatılmaz olacak istek uzerine biraz daha geliştirebilirim (Programı gorev yoneticisinden kapatılıyor bunuda engellemek ve hatta her windows acıldığında acmak icin calışıyorum)
__________________