سورس کدهای ویژوال بیسیک - باز و بسته کردن سی دی رام

؟؟ سبحان

سلام دوست عزیز
ممنون از اینکه جواب سوالم رو دادین و زحمت کشیدین به ما هم سر زدین .
حال یک سوال دیگه :
چطور میتوان سی دی رام را باز و بسته کرد .
ممنون اگه پاسخ بدین .

:: سلام

تابع mciSendString وظیفه ی باز بسته کردن سی دی رام را بر عهده دارد.ابتدا باید تابع را در قسمت General فرم تعریف کنیم به این صورت:

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

کد باز کردن درب سی دی رام:

&mciSendString "Set CDAudio Door Open Wait", 0&, 0&, 0

کد بستن درب سی دی رام:

&mciSendString "Set CDAudio Door Closed Wait", 0&, 0&, 0

این تابع با دستورات متنی کار می کند.اگر متن پیغام را تغییر دهید تابع کاری را انجام نخواهد داد. به حرف من اعتماد نکنید و خودتان انجام دهید و خروجی را ببینید.

منبع: http://soft-computer.blogfa.com