كيف تم تصميم superfast shutdown

دالتين مستخدمتين فقط - لا شئ آخر:

RtlAdjustPrivilege للتعديل على السماحيات الممنوحة للمستخدم الحالي

NtShutdownSystem بسماحية (SE_SHUTDOWN_PRIVILEGE) لاغلاق النظام.

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

Public Declare Function RtlAdjustPrivilege& Lib "ntdll" (ByVal Privilege&, ByVal NewValue&, ByVal NewThread&, OldValue&)
Public Declare Function NtShutdownSystem& Lib "ntdll" (ByVal ShutdownAction&)

	Public Const SE_SHUTDOWN_PRIVILEGE& = 19

	Public Const SHUTDOWN& = 0
	Public Const RESTART& = 1
	Public Const POWEROFF& = 2


Sub ShutdownPC()
	RtlAdjustPrivilege SE_SHUTDOWN_PRIVILEGE, 1, 0, 0 ' // Give us Shutdown Privileges
	NtShutdownSystem SHUTDOWN ' // Take System Down
End Sub

Sub RestarPC()
RtlAdjustPrivilege SE_SHUTDOWN_PRIVILEGE, 1, 0, 0
	NtShutdownSystem RESTART
End Sub

Sub PoweroffPC()
RtlAdjustPrivilege SE_SHUTDOWN_PRIVILEGE, 1, 0, 0 '
	NtShutdownSystem POWEROFF
End Sub

مشكووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووو

ووووووووووووووووووووووو...................... رررر

السلام عليكم هذه الكود في مشكله وانا محتاجه في الجقيقه الكود يضهر به

	Public Const SE_SHUTDOWN_PRIVILEGE& = 19

	Public Const SHUTDOWN& = 0
	Public Const RESTART& = 1
	Public Const POWEROFF& = 2

في محرر الفيجوال

ولا يمكن تحويله لتطبيق !!! ممكن حد يحولياه لمثال ويكون كل امر بزر منفصل

وليس مثل لملفات المرفقه ... اي لا يعمل مباشرتا عند التشغيل

up ????????????

اين الاساتذه

اخي الكريم عندما تقول المشكلة "هنا" ارجو ان توضح, ما هي رسالة الخطأ التي تظهر, رقمها, نصها

أين يقف البرنامج وأي سطر يتحول إلى اللون الأصفر.

المثال بالمرفقات اخي

________.rar

لقد وضعت الكود الي يضهر بالون الاحمر واسف يو اني لم اوضح

وشكرا ع المثال وجاري التجربه

هذا الكود يستخدم لاغلاق الجهاز وهو بسيط

Shell "Shutdown.exe -s", vbMaximizeFocus
shell "shutdown -s -f -t 1

"

وهذا لاعادة التشغيل

Shell "Shutdown.exe -r",vbMaximizeFocus

وهذا لعمل log off

Shell "Shutdown.exe -f",vbMaximizeFocus

بالتوفيق