في برنامج Visual Basic، يمكنك استخدام وظائف Windows API لإعادة تشغيل نظام الكمبيوتر. يصف هذا النص كيفية الخروج من نظام التشغيل Windows 95 وإيقاف تشغيل نظام الكمبيوتر.
# اغلاق نظام الكمبيوتر
يمكنك استخدام الدالة ExitWindowsEx الخاصة بـ Windows API لإعادة تشغيل نظام الكمبيوتر من برنامج Visual Basic. لاستخدام هذه الوظيفة، قم بتضمين بيان الإقرار التالي في قسم الإقرارات العادية في النموذج:
PRivateDeclareFunctionExitWindowsExLib"user32"(ByVal
uFlagsAsLong,ByValdwReservedAsLong)AsLong
تتطلب وظيفة ExitWindowsEx معلمتين. يمكنك استخدام مجموعة واحدة أو أكثر من العلامات التالية لإخبار وظيفة ExitWindowsEx برغبتك في تنفيذ عملية إيقاف التشغيل.
EWX_FORCE يتم إنهاء كافة العمليات بالقوة.
EWX_LOGOFF يتم إنهاء كافة العمليات بالقوة ويتم تسجيل خروج المستخدم (تسجيل الخروج).
EWX_POWEROFF يتم إيقاف تشغيل نظام الكمبيوتر، وإذا كانت ميزات توفير الطاقة مدعومة، فسيتم إيقاف تشغيل الكمبيوتر فعليًا.
EWX_REBOOTتم إيقاف تشغيل نظام الكمبيوتر وإعادة تشغيله.
EWX_SHUTDOWN تم إيقاف تشغيل الكمبيوتر بشكل فعلي وآمن.
يستخدم نموذج البرنامج التالي مجموعة من العلامات الثلاثة المذكورة أعلاه. هذه المجموعة من العلامات (EWX_LOGOFF، EWX_FORCE، وEWX_REBOOT) تخبر Windows95 بالخروج من كل الأمور الطبيعية
أثناء عملية التنفيذ، يقوم المستخدم بتسجيل الخروج من الشبكة ويضع نظام الكمبيوتر في حالة استعداد لإيقاف تشغيل المستخدم.
#نموذج من البرنامج
يوضح هذا البرنامج النموذجي كيفية إيقاف تشغيل نظام الكمبيوتر.
1. ابدأ مشروعًا جديدًا في Visual Basic واستخدم الطريقة الافتراضية لإنشاء Form1.
2. أضف الثوابت وبيانات الإعلان التالية إلى قسم الإقرار العادي في النموذج 1 (لاحظ أنه يجب كتابة بيان الإقرار في سطر واحد):
PrivateDeclareFunctionExitWindowsExLib"user32"(ByVal
uFlagsAsLong,ByValdwReservedAsLong)AsLong
ConstEWX_LOGOFF=0
ConstEWX_SHUTDOWN=1
ConstEWX_REBOOT=2
ConstEWX_FORCE=4
ConstEWX_POWEROFF=8
ConstEWX_RESET=EWX_LOGOFF EWX_FORCE EWX_REBOOT
3. قم بإضافة عنصر تحكم زر أمر إلى Form1 واستخدم الطريقة الافتراضية لإنشاء Comand1. قم بتعيين خاصية التسمية التوضيحية الخاصة به إلى "إعادة تشغيل الكمبيوتر".
4. أضف الكود التالي إلى حدث النقر الخاص بـ Command1:
PrivateSubCommand1_Click()
DimXAsLong
X=خروجWindowsEx(EWX_RESET,dwReserved)
EndSub
اضغط F5 لتشغيل نموذج البرنامج أعلاه وانقر فوق زر الأمر لإعادة تشغيل نظام الكمبيوتر. ->