الصفحة الرئيسية 

FAQs ( 20 / 5 / 2000 ) أسئلة وأجوبتها20 / 5 / 2000

إذا كان لديك استفسار، عن لغة الفيجول بيسك Visual Basic فلا تترد فى إرسالة لنا وسنجيب عليه إن شاء الله في أقرب فرصة، وجزاك الله كل خير على ما تقدمة من نصيحة أو استفسار.

كيفية إلغاء إعادة التحميل عند الضغط على Ctrl + Alt + Del برمجيا من خلال الفيجول بيسك؟ كيف يمكن إعادة تحميل الويندوز برمجياً ? فتح وغلق مسوق أقراص الليزر Cd Rom. تحريك النموذج Form عن طريق الماوس Mouse . تشغيل ملفات الصوت .Wav .

Elzohry@hotmail.com

كيفية إلغاء إعادة التحميل عند الضغط على Ctrl + Alt + Del برمجيا من خلال الفيجول بيسك؟

في بعض الأوقات قد نحتاج لتبطيل إمكانية غلق البرنامج أو إعادة تحميل الويندوز بإستخدام Ctrl + Alt + Del وخاصة في برامج الحفاظ على الشاشة ScreenSaver، الكود التالي يقوم بهذه العملية وكذلك يقوم بتبطيل الذهاب لقائمة إبدأ عن طريق الضغط على مفتاحي Ctrl + Esc.

قم بنسخ الكود التالي للموديول Module :

Private Declare Function SystemParametersInfo Lib _ "user32" Alias "SystemParametersInfoA" (ByVal uAction _ As Long, ByVal uParam As Long, ByVal lpvParam As Any, _ ByVal fuWinIni As Long) As Long

Sub DisableCtrlAltDelete(bDisabled As Boolean)
    Dim X As Long
    X = SystemParametersInfo(97, bDisabled, CStr(1), 0)
End Sub

وهكذا إلى إردت تبطيل مفعول Ctrl + Alt + Del قم بإستدعاء الدالة التالية: 

Call DisableCtrlAltDelete(True)

وإذا أردت تمكينها فقم بكتابة الكود التالي :

Call DisableCtrlAltDelete(False)

 إلى أعلى

كيف يمكن إعادة تحميل الويندوز برمجياً ?

في بعض الأحيان يقوم برنامج الإعداد الخاص بالبرنامج بتغيير بعض ملفات النظام والتي لن تعمل إلا بعد إعادة تحميل النظام، الآن يمكنك إعادة تحميل الويندوز أو حتى إغلاق الويندوز برمجيا.

قم بنسخ الكود التالي للموديول Module :

Public Const EWX_LOGOFF = 0 

Public Const EWX_SHUTDOWN = 1 

Public Const EWX_REBOOT = 2 

Public Const EWX_FORCE = 4 

Declare Function ExitWindowsEx Lib "user32" Alias _ "ExitWindowsEx" (ByVal uFlags As Long, ByVal dwReserved _ As Long) As Long

إذا أردت أن تعيد تحميل النظام، فاكتب الأمر التالي:

t& = ExitWindowsEx(EWX_REBOOT, 0)

إذا أردت أن إغلاق الويندوز، قم بكتابة الأمر التالي:

t& = ExitWindowsEx(EWX_SHUTDOWN , 0)

 إلى أعلى

فتح وغلق مسوق أقراص الليزر Cd Rom.

قم بنسخ الكود التالي للموديول Module :

DeclareFunction mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand as string,ByVal lpstrReturnString as string,ByVal uReturnLength as long,ByVal hwndCallback as long) as long

لغلق مسوق الإسطوانات، قم بكتابة الكود التالي:

retvalue = mciSendString("set CDAudio door closed", returnstring, 127, 0) 

لفتح مسوق الإسطوانات، قم بكتابة الكود التالي:

retvalue = mciSendString("set CDAudio door open", returnstring,127, 0) 

 إلى أعلى

تحريك النموذج Form عن طريق الماوس Mouse .

كثيرا ما نقوم بتغيير شكل النموذج، ليكون كهيئة رسمة معينة ونقوم بإلغاء شريط العنوان Caption bar أو Title Bar ثم نقع في مشكلة وهي عدم إمكانية تحريك النموذج، عن طريق الكود التالي يمكنك تحريك النموذج بالماوس عن طريق النقر والسحب من أي مكان على النموذج.

قم بنسخ الكود التالي للموديول Module :

Declare Function ReleaseCapture Lib "user32" () As Long
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const HTCAPTION = 2
Public Const WM_NCLBUTTONDOWN = &HA1

قم بكتابة الكود التالي وليكن عند الحدث MouseDown_Event والخاص مثلا بأداة PictureBox

ReleaseCapture
SendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&

 إلى أعلى

تشغيل ملفات الصوت .Wav .

قم بنسخ الكود التالي للموديول Module :

Public Declare Function playa Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Public Sub PlayWav(path As String)
 Dim SafeFile As String
 file$ = Dir(path$)
 If file$ <> "" Then Call playa(WavFile$, SND_FLAG)
End Sub

لتشغيل أي ملف صوت قم بكتابة الأمر التالي، مع تغيير اسم ومسار ملف الصوت المراد تشغيله:

Call PlayWavFile("c:\ElzohryProject\Quran\Fateh.wav")

 إلى أعلى