+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : [مشروع] BM PC Prevent Sleep Tool (/showthread.php?tid=44609)
BM PC Prevent Sleep Tool - asmarsou - 21-12-22
السلام عليكم و رحمة الله و بركاته
اخوتي الكرام اقدم اليكم اليوم مشروع لاداة من شأنها منع الجهار او النظام من الدخول في وضع السبات او حتى اظهار شاشة التوقف او تلك النافذة السوداء ...وكذلك الاغلاق الذاتي للجهاز بعد مدة من الجمود اي عدم القيام باي نشاط
المشروع مرفق كمثال و مرفق معه كود مختصر يمكن دمجه لاي مشروع آخر لمن اراد ان يضل برنامجه دائما في الواجهة
و السلام عليكم و رحمة الله
PHP كود :
Imports System.Runtime.InteropServices
Public Class Form1
<FlagsAttribute()> _
Public Enum EXECUTION_STATE As UInteger
ES_SYSTEM_REQUIRED = &H1
ES_DISPLAY_REQUIRED = &H2
ES_CONTINUOUS = &H80000000UI
End Enum
<DllImport("Kernel32.DLL", CharSet:=CharSet.Auto, SetLastError:=True)> _
Private Shared Function SetThreadExecutionState(ByVal state As EXECUTION_STATE) As EXECUTION_STATE
End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'SetThreadExecutionState(EXECUTION_STATE.ES_SYSTEM_REQUIRED)
SetThreadExecutionState(EXECUTION_STATE.ES_SYSTEM_REQUIRED Or EXECUTION_STATE.ES_CONTINUOUS)
End Sub
End Class