كود لوضع النضام في وضع الإستعداد

أرجو من عنده الكود يعطيني ياه محتاجه ضروووري يا إخوان !!

أبحث عن عمل الدالة SetSystemPowerState

السلام عليكم...

مع الشكر للأخ "عبد العزيز اليوسفي" الذي ذكّرنا بالدالة SetSystemPowerState، إلا أنه توجد دالة أخرى ذات بارامتر إضافي هي الدالة SetSuspendState، كما في المثال التالي.

ضع على الـ Form زر أمر (Command) و Timer و اضبط الخاصية Enabled للـ Timer على False و الخاصية Interval على 3000 ثم انسخ الكود التالي:

شغل البرنامج ثم انقر الزر و انتظر 3 ثوان دون أن تحرك الفأرة أو تضغط مفتاح من لوحة المفاتيح. سيدخل النظام في وضعية الاستعداد.

حرك الفأرة أو اضغط أي مفتاح من لوحة المفاتيح للخروج من وضعية الاستعداد.

* بارامترات الدالة SetSuspendState:

= Hibernate: إذا كانت 0 (False) فإن النظام يدخل في وضعية الاستعداد (Standby) و إذا كانت 1 (True) فإن النظام يدخل في وضعية الإسبات (Hibernatation).

= ForceCritical: إذا كانت 0 (False) فإن النظام يبعث برسائل لكافة التطبيقات الشغالة لطلب الإذن بالدخول في وضعية الاستعداد، و إذا كانت 1 (True) فإن النظام يدخل الوضعية بشكل مباشر.

= DisableWakeEvent: إذا كانت 0 (False) فإن النظام يحافظ على تمكين الأحداث التي تخرجه من وضعية الاستعداد، و إذا كانت 1 (True) فإن النظام يعطل كافة الأحداث التي تخرجه من وضعية الاستعداد.

نرجو الاستفادة و السلام.

بارك الله فيكم أخواني

أخي najy_zl وجدت كود آخر لكن لم أفهم وجه الإختلاف مع الكود بتاعك المرجو التوضيح

Private Declare Function SetSuspendState Lib "Powrprof.dll" (ByVal Hibernate As Long, ByVal ForceCritical As Long, ByVal DisableWakeEvents As Long) As Long

' لوضع النضام في حالة الإستعداد

Public Function SystemSuspend() As Long

SystemSuspend = SetSuspendState(0, 1, 0)

End Function

Private Sub Command1_Click()

Dim lRet As Long

lRet = SystemSuspend()

End Sub

================================================

و أيضا هذا الكود Shell ("Shutdown -r") لإعادة تشغيل النضام

لكن يضع رسالة فيها وقت تنازلي

السؤال هو كيف أزيل التايمر منه بل الرسالة كليا و أجعله يعيد التشغيل بدون سابق إنذار

شكرا لك مسبقا ..