برنامه ای برای باز و بستن سی دی درایو

[night_secret]

http://www.4shared.com/file/BWsqBcpx/open.html

[Veteran]

سورس نبود فکر کنم فایل exe بود
اگه نبود خدمت شما

Private 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

Private Sub Command1_Click()
Call mciSendString("set CDAudio door open", _
returnstring, 127, 0)
Call mciSendString("set CDAudio door closed", _
returnstring, 127, 0)
End Sub

[night_secret]

درسته یادم رفت سورس بزارم

[sr2m72]

سورس نبود فکر کنم فایل exe بود
اگه نبود خدمت شما

Private 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

Private Sub Command1_Click()
Call mciSendString("set CDAudio door open", _
returnstring, 127, 0)
Call mciSendString("set CDAudio door closed", _
returnstring, 127, 0)
End Sub


شرمنده دوستان، میشه یه خورده راجع به این کدها توضیح بدین؟
با تشکر