15-11-25, 07:18 PM
السلام عليكم ورحمة الله و بركاته
سالت قوقل السؤال التالي:
إقتباس :vb.net منع ويندوز 11 من الاسبات او الاغلاق الا بعد اتمام عمل البرنامج
و قال لي:
كود :
Public Class MyForm
Public Sub PreventShutdown()
' منع الإسبات والإغلاق تلقائيًا
Application.CurrentCulture = New System.Globalization.CultureInfo("en-US")
Application.CurrentCulture.DateTimeFormat.LongDatePattern = "yyyy-MM-dd HH:mm:ss"
Application.CurrentCulture.DateTimeFormat.ShortDatePattern = "yyyy-MM-dd"
Application.CurrentCulture.DateTimeFormat.LongTimePattern = "yyyy-MM-dd HH:mm:ss"
Application.CurrentCulture.DateTimeFormat.ShortTimePattern = "yyyy-MM-dd HH:mm:ss"
Application.CurrentCulture.DateTimeFormat.TimeSeparator = ":"
Application.CurrentCulture.DateTimeFormat.DateSeparator = "-"
Application.CurrentCulture.DateTimeFormat.FullDateTimePattern = "yyyy-MM-dd HH:mm:ss"
Application.CurrentCulture.DateTimeFormat.AMDesignator = ""
Application.CurrentCulture.DateTimeFormat.PMDesignator = ""
End Sub
Public Sub AllowShutdown()
' السماح بالإسبات والإغلاق تلقائيًا
Application.CurrentCulture = New System.Globalization.CultureInfo("ar-SA")
End Sub
End Classإقتباس :ملاحظاتمافهمت ايش دخل التاريخ ؟؟
يجب استدعاء PreventShutdown قبل أي عملية حساسة تتطلب منع الإسبات والإغلاق.
يجب استدعاء AllowShutdown بعد الانتهاء من العملية الحساسة.
اريد منع ويندوز من الاسبات او الاغلاق حتى يتم انهاء حلقة for لاني اريده ايضا ان يطفي الحاسوب بكود بسيط.
كود :
If okclose Then
My.Computer.FileSystem.WriteAllText(errorlogd, i & vbNewLine & Now & vbNewLine & "يتم التحضير لاغلاق الجهاز " & vbNewLine & "========================" & vbNewLine, True)
Shell("shutdown /s /f /t 0", AppWinStyle.Hide)
End Ifاللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
