الفيجول بيسك

[دمعة فرح]

فتح وإغلاق CD-RDOM

الخطوة الأولي
ضع هذا الكود في Module



PHP:

--------------------------------------------------------------------------------


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


--------------------------------------------------------------------------------

الخطوة الثانية
أضف زر أمر Command وليكن اسمه (فتح)
اضف هذا الكود:


PHP:

--------------------------------------------------------------------------------

Private Sub Command1_Click()
retvalue = mciSendString("set CDAudio door open", returnstring, 127, 0)
End Sub
--------------------------------------------------------------------------------
الخطوة الثالثة
أضف زر أمر Command وليكن اسمه (إغلاق)
اضف هذا الكود:

PHP:
--------------------------------------------------------------------------------
Private Sub Command2_Click()
retvalue = mciSendString("set CDAudio door closed", returnstring, 127, 0)
End Sub

تحياتي

دمعة فرح

 

 

[دمعة فرح]

الخطوة الأولى
أضف في Module

PHP:
--------------------------------------------------------------------------------
Public Const EWX_LOGOFF = 0
Public Const EWX_SHUTDOWN = 1
Public Const EWX_REBOOT = 2
Public Const EWX_FORCE = 4
Declare Function ExitWindow*** Lib "user32" _
(ByVal uFlags As Long, ByVal dwReserved _
As Long) As Long

--------------------------------------------------------------------------------
الخطوة الثانية
اضف زر أمر Command وليكن اسمه (إغلاق الجهاز)
PHP:
--------------------------------------------------------------------------------


Private Sub Command1_Click()
t& = ExitWindow***(EWX_SHUTDOWN, 0)
End Sub


--------------------------------------------------------------------------------
الخطوة الثالثة
اضف زر أمر Command وليكن اسمه (إعادة تشغيل الجهاز)


PHP:

--------------------------------------------------------------------------------
Private Sub Command2_Click()
t& = ExitWindow***(EWX_REBOOT, 0)
End Sub

--------------------------------------------------------------------------------
تحياتي للجميع

 

 

[دمعة فرح]

بسم الله الرحمن الرحيم

تحيه للجميع من اعماق قلبي

اقدم لكم برنامج بسيط جداَ هذا برنامج دليل هاتف مبسط جداً جداً
به الأسم ورقم الهاتف والبلد والعمر
وله اهميه للمبتدئين ولقد صممته على عجل من امري وعذرا اذا لقيتم مني اي تقصير بسبب مرضي

تحياتي للجميع

دمعة فرح

 

 

[وديع]

الف شكر لكي عزيزتي دمعة فرح على مجهودك الرائع وعلى شروحاتك الجميلة
ولك مني خالص تحياتي.

أخوك ودبع