منتدى أحلـــى كـــلام
عزيزى الزائر

كونك زائر غير مسجل

* سيتم عرض اعلانات لك، هذه الاعلانات لا تظهر للاعظاء.
* لن تتمكن من مشاهدة بعض محتويات مواضيعنا.

ندعوك للتسجيل بأقل من دقيقة
* لتتمكن من مشاهدة كافة محتويات المواضيع التى ترغب فى قرآئتها .
* وقف عرض الاعلانات.

SiteAdmin

انضم إلى المنتدى ، فالأمر سريع وسهل

منتدى أحلـــى كـــلام
عزيزى الزائر

كونك زائر غير مسجل

* سيتم عرض اعلانات لك، هذه الاعلانات لا تظهر للاعظاء.
* لن تتمكن من مشاهدة بعض محتويات مواضيعنا.

ندعوك للتسجيل بأقل من دقيقة
* لتتمكن من مشاهدة كافة محتويات المواضيع التى ترغب فى قرآئتها .
* وقف عرض الاعلانات.

SiteAdmin
منتدى أحلـــى كـــلام
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.
منتدى أحلـــى كـــلام

أحلى كلام فى كل الكلام ، كمبيوتر ، دعم فنى ، اسلاميات ، اعجاز علمى ، قصص وروايات ، شعر ، ادب ، صور نادرة ، كتب نادرة وممنوعه ، المرأة ، الصحة ، الطفل ، الموبايل

Online Job for All

كود اغلاق واعادة تشغيل الجهاز Shutdown and restart code

منتدى أحلـــى كـــلام :: قســـــم الكمبيوتر والانترنت :: قسم لغات البرمجة

اذهب الى الأسفل

كود اغلاق واعادة تشغيل الجهاز Shutdown and restart code Empty كود اغلاق واعادة تشغيل الجهاز Shutdown and restart code

مُساهمة من طرف SiteAdmin الثلاثاء يونيو 14, 2011 9:45 am

كود اغلاق واعادة تشغيل
الويندوز





افتح مشروع جديد واضف Form وكذلك 2 Command Button الاول لاغلاق الجهاز Shutdown والثاني لاعادة التشغيل Restart .


انسخ الكود التالى :





الكود:



' SHUT DOWN AND RESTART IN VB6


Const EWX_LogOff As Long = 0


Const EWX_SHUTDOWN As Long = 1


Const EWX_REBOOT As Long = 2


Const EWX_FORCE As Long = 4


Private Declare Function ExitWindows


Lib "User32" Alias "ExitWindowsEx[font="]" (ByVal dwOptions As Long, ByValdwReserved As Long) As Long

Private Sub
Command1_Click


'Shutdown windows


ExitWindows EWX_SHUTDOWN, &HFFFFFFFF


End Sub


Private Sub Command2_Click[font="]()


ExitWindows EWX_REBOOT, &HFFFFFFFF


End Sub




احفظ مشروعك
قبل تجربته
SiteAdmin
SiteAdmin
Admin
Admin

عدد المساهمات : 333
نقاط : 2040
تقييم العضو : 6
تاريخ التسجيل : 09/06/2010
العمر : 48
الموقع : Banker

http://ahlakalam.to-relax.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة

- مواضيع مماثلة

منتدى أحلـــى كـــلام :: قســـــم الكمبيوتر والانترنت :: قسم لغات البرمجة

 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى