16-11-25, 07:29 AM
(16-11-25, 12:04 AM)أبو خالد الشكري كتب : وعليكم السلام ورحمة الله وبركاته
جرب الكود التالي :
كود :
Imports System.Runtime.InteropServices
Public Class Form1
<DllImport("kernel32.dll", SetLastError:=True)>
Private Shared Function SetThreadExecutionState(ByVal esFlags As EXECUTION_STATE) As EXECUTION_STATE
End Function
<Flags>
Private Enum EXECUTION_STATE As UInteger
ES_CONTINUOUS = &H80000000UI
ES_DISPLAY_REQUIRED = &H2
ES_SYSTEM_REQUIRED = &H1
End Enum
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'For هذا الزر الذي يحتوي على كود حلقة
SetThreadExecutionState(EXECUTION_STATE.ES_CONTINUOUS Or
EXECUTION_STATE.ES_SYSTEM_REQUIRED Or
EXECUTION_STATE.ES_DISPLAY_REQUIRED)
'For ضع هنا كود حلقة
'=============================================
'=============================================
' أخيرا إعادة الإسبات لوضعه الطبيعي
SetThreadExecutionState(EXECUTION_STATE.ES_CONTINUOUS)
End Sub
End Class
شكر الله لك و بارك فيك
ان شاء الله ساجرب بالكود.
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
