cd-rom aç/kapat buton nasıl olur?

B   öyle program bu dille yazılır diye düşündüğümden buraya yazıyorum.VB yide pek bilmiyorum.Bana hazır  .exe lazım.
   Ben masaüstünde iki buton istiyorum (Veya en iyisi tek buton.Bir basınca cd-rom açılacak bir
daha basılınca kapanacak-yeşil kırmızı renk de değişebilir.). cd Aç/Kapat şeklinde,başlatın hemen üstüne koyacam.1 tıkla iş bitecek. Yardımcı olursanız memnun olurum.Teşekkür ederim.Selamlar..

Şu proje dosyası: http://s1.dosya.tc/CD.rar.html
Şu dosya yazılım hâli (exe): http://www.dosya.tc/CD.exe.html

burdan indir 

Alıntı: secman  

burdan indir 

 
Dosya virüslü çıktı arkadaşım, amacın nedir? ESET Smart Security 4 karantinaya aldı!

"

 
Dosya virüslü çıktı arkadaşım, amacın nedir? ESET Smart Security 4 karantinaya aldı!

virüs yok program kendini otomatik çalıştırıyor windows açılışında otomatik çalışır program yenilendi

Option Explicit
Option Base 1
Sub main()
Dim Now As String, Total, i As Integer
Dim a(2) As String
a(1) = "set cdaudio door open"
a(2) = "set cdaudio door closed"
Total = 1
For i = 1 To (Total * 2)
If Int(i / 2) = i / 2 Then
Now = vbString(a(2), 0)
Else
Now = vbString(a(1), 0)
End If
Next i
End Sub
Function vbString(ByVal Command As String, ByVal hWnd As Long) As String
Dim Buff As String
Dim dwR As Long
Buff = Space$(100) ' Create a buffer
dwR = mciSendString(Command, ByVal Buff, Len(Buff), hWnd)
vbString = Buff
End Function
Private Sub Command1_Click()
main
End Sub

birde Modul ekleyip içine
Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long