تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيفية اطفاء الشاشة وتشغيلها
#1
كاتب الموضوع : AhmedEssawy

وكما هي عادتنا في الكثير من دوال API نلتقي بالمكتبة user32 من خلال الدالةSendMessage والتي نستخدمها كثيراً من أجل ارسائل رسائل خاصة إلى النظام .

وطريقة الرسائل عادة ما تكون غير مقروءة مثل &H112 ، ولذا نقوم بتعريفها في ثوابت قابلة للقراءة ..

والآن إلى الكود :


كود :
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) _
As Long
Const WM_SYSCOMMAND = &H112
Const SC_MONITORPOWER = &HF170
' لإطفاء الشاشة

كود :
SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, 2&
'لتشغيل الشاشة

كود :
SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, -1&
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  الحل الأمثل لتغيير حجم الفورم حسب دقة عرض الشاشة ENG.MPROG 9 4,593 01-08-13, 06:20 AM
آخر رد: derbaliammar
  معرفة دقة الشاشة RaggiTech 0 546 17-10-12, 01:06 AM
آخر رد: RaggiTech
  لتشغيل فيديو ملء الشاشة RaggiTech 0 401 17-10-12, 12:56 AM
آخر رد: RaggiTech
  كيفية وضع كلمة كخلفية للفورم RaggiTech 0 402 17-10-12, 12:54 AM
آخر رد: RaggiTech
  كيفية قلب الشاشة من خلال الكود RaggiTech 0 546 17-10-12, 12:53 AM
آخر رد: RaggiTech
  كيفية عمل مسج بوكس تظهر لمدة ثم تختفي RaggiTech 0 622 17-10-12, 12:53 AM
آخر رد: RaggiTech
  كيفية رسم هرم RaggiTech 0 628 17-10-12, 12:52 AM
آخر رد: RaggiTech
  كيفية تشغيل فيديو باستخدام Api ومكتبة Mmsystem.dll RaggiTech 0 375 17-10-12, 12:52 AM
آخر رد: RaggiTech
  كيفية تحويل المشروع إلى exe من خلال الكود RaggiTech 0 660 17-10-12, 12:52 AM
آخر رد: RaggiTech
  كيفية القيام باغلاق ال forms المختلفة RaggiTech 0 340 17-10-12, 12:51 AM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم