تشخیص خاموش شدن کامپیوتر

[ameri110]

سلام
من یک برنامه دارم مینویسم که نیاز دارم هنگامی که یوزر می خواهد کامپیوتر رو خاموش کنه برنامه از این کار جلو گیری کنه کامپیوتر رو به حالت هایپرنیت ببره
اگه کسی میدونی چجوری این کار رو باید انجام داد حتما بگه لطفا

[Mr'Jamshidy]

این برنامه جلوی خروج از ویندوز رو میگیره

شما بررسیش کن و کد هایپرنیت رو تو برنامه بگنجون

---- ویرایش ---------

ای بابا حواس که واسه آدم نمیمونه
پست رو میزارم سورس رو زمیمه نمیکنم :بامزه:


این هم کد هایی که برای هایبرنیت کردن کمکت میکنه:

'Declare:
Declare Function IsPwrHibernateAllowed Lib "Powrprof.dll" () As Long

'Code Info:
'If the computer supports hibernation (power state S4) and the file Hiberfil.sys is present on the system, the function returns TRUE. Otherwise, the function returns FALSE.

'Usage:
Debug.Print "Hibernate Allowed: " + CStr(CBool(IsPwrHibernateAllowed))

'-----

'Declare:
Declare Function SetSuspendState Lib "Powrprof" (ByVal Hibernate As Long, ByVal ForceCritical As Long, ByVal DisableWakeEvent As Long) As Long

'Code:
'start hibernating, but don't force it and don't disable all wake events
SetSuspendState 1, 0, 0

'Return Value:
'The SetSuspendState function suspends the system by shutting power down. Depending on the Hibernate parameter, the system either enters a suspend (sleep) state or hibernation (S4). If the ForceFlag parameter is TRUE, the system suspends operation immediately; if it is FALSE, the system requests permission from all applications and device drivers before doing so.

[ameri110]

مثل این که یادتون رفت کد رو بگذازید
راستی نمی خواهم هنگام ری استارت هایپر بشه

[Mr'Jamshidy]

مثل این که یادتون رفت کد رو بگذازید
راستی نمی خواهم هنگام ری استارت هایپر بشه

ویرایشش کردم اما یک مشکل

من همین الان بررسیش کردم

حتی به Log Off هم اجازه نمیده چی برسه به ری استارت

[ameri110]

خوب حالا چی کار کنیم؟:لبخند:

کلا پروژم اینه که کامپیوتر یارو رو هایپر کنم نصفه شب روشنش کنم رو ریموت بگیرم :شیطان: :قهقهه::قهقهه::قهقهه:

[Mr'Jamshidy]

دیگه دوست عزیز داری سوالای سخت میپرسی ها

قرارمون این نبود :بامزه:

نمیدونم والا ولی در کل چیزی رو که میدونستم گفتم

موفق باشید