إلى خبراء الفيشوال بيسك ؟؟؟؟؟؟

حلو عنوان الموضوع صح ؟؟؟؟!!!!!
هههههههههههههههههههههه
المهم
تكفون ودي بكود
واحد يطفي الجهاز
وواحد يشغل الجهاز < ============ مافي شي يشغل الجهاز إلا يدك :D
واحد يسوي تسجيل خروج
واحد يطفي الشاشة
وواحد يشغلها
بالفيجوال بيسك .NET :biggthump

الايقاف تشغيل الجهاز او اعادة تشغيله او تسجيل الخروج اضف الكود هذا في اعلى الفورم

Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Dim Ilog, IRes, IShut As Long

لايقاف تشغيل الجهاز ..اضف هذا الكود الى زر ..

IShut = ExitWindowsEx(1, 1)

لاعادة تشغيل الجهاز ..اضف هذا الكود الى زر ..

IRes = ExitWindowsEx(2, 1)

لتسجيل الخروج ..اضف هذا الكود الى زر

Ilog = ExitWindowsEx(4, 1)

مشكوووووووووووووووووووور جدا أخوي :biggthump
بس هذي فيجوال بيسك 6 ولا دوت نيت :06:

هذه الاكواد لفيجول بيسك 6 ... انشالله ساحاول ان اجد الاكواد لل دوت نيت

ياليت لو أحد يتفضل علي ويجاوب :31: