سورس آموزشی ؛ جهت باز و بسته کردن سی دی رم جهت یادگیری توابع Hotkey

[parsiyan_mohsen]

با سلام و احترام

دوستان عزیز برنامه ای نوشته ام که درب سی دی رم را با کلید F1 باز و با F2 بسته میکند. برنامه در حالت اجرا Hidden میباشد و در هر کجا و هر قسمتی از ویندوز که باشید فوکوس روی برنامه است و با زدن کلید ها ذکر شده برنامه عمل میکند. حدود 10 ثانیه باز میشود و بعد از اجرای عملیات Hidden میشود. جهت نمایش دادن برنامه میتوانید از کلید F3 استفاده کنید، برای اینکه برنامه مجدداً Hidden شود رو دکمه Minimize کلیک کنید. برنامه از گرافیک خوبی برخوردار است و بیشتر جهت آموزش ساختمش ؛ حالا سورسشو تقدیم میکنم به دوستاران ویژوال بیسیک.

با تشکر

[MJ2012]

سلام
خیلی خیلی جالب بود ممنون از زحماتتون.

[farzad93]

البته یه کد خیلی ساده تر هست برای باز و بسته کردن CD ROM :


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()
Dim LRet As Long
LRet = mciSendString("set CDAudio door open", returnstring, 127, 0)
End Sub
Private Sub command2_Click()
Dim LRet As Long
LRet = mciSendString("set CDAudio door closed", returnstring, 127, 0)
End Sub

[parsiyan_mohsen]

البته یه کد خیلی ساده تر هست برای باز و بسته کردن CD ROM :
با سلام و احترام

دوست عزیز هدف از ساخت این برنامه آشنایی با توابع Hotkey است.

با تشکر