السلام عليكم ورحمة الله وبركاته
إخواني ,,,
أريد تطبيق عندما أقوم بتشغيله يقوم بالتالي :
يحسب 20 ثانية وبعدها يعمل (إعادة تشغيل للجهاز)
أو الكود الخاص بهذا البرنامج
أعتقد العملية سهلة لكن اعذروني أنا مبتدئ في البرمجة
أرجوكم أريده بأسرع وقت ممكن
وشكراً ,,,
اضف تايمر و اجعله يعمل كل ثانيه ثم ضع هذا الكود :
Private Const EWX_LOGOFF = 0 Private Const EWX_SHUTDOWN = 1 Private Const EWX_REBOOT = 2 Private Const EWX_FORCE = 4 Private Declare Function ExitWindowsEx Lib "user32" _ (ByVal uFlags As Long, ByVal dwReserved _ As Long) As Long Private Sub Timer1_Timer() Static i As Integer If i = 20 Then t& = ExitWindowsEx(EWX_FORCE Or EWX_REBOOT, 0) Else i = i + 1 End If End Sub
أشكرك أخي half angel
1- كيف أخلي التايمر يعمل كل ثانية ؟
2- أريد البرنامج لما أقوم بتشغيله يعطيني رسالة (هل تريد إعادة تشغيل الكمبيوتر) نعم , لا وبعد 20 ثانية هو يختار نعم
وآسف على إزعاجك
ومشكووووور مره ثانية
اقتباس1- كيف أخلي التايمر يعمل كل ثانية ؟
في الخصائص حتلقى Interval
بخصوص السؤال قبل عمل اعاده تشغيل
Dim z As Byte
z = MsgBox("??? C?CI? EOU?? ????C? ? ", vbYesNo, "")
if z= 6 then 'Ur Code Hereحيث ستكون قيمه المتغير =6 عندما يختار نعم
اما كل ثانيه :
فالتايمر يكرر الاوامر كل (Interval على 1000 ) ثانيه
لذالك نجعل هذه الخاصيه (فى شريط الخصائص الذى يمكن اظهاره بضغط F4 بعد اختيار التايمر) تساوى 1000
“Any fool can make things bigger, more complex, and more violent”
أشكركم جميعاً على تعاونكم معي
لكن البرنامج لم يعمل معي
أرجو من أحد الأعضاء كتابة البرنامج وتصديره إلى ملف تنفيذي exe وإرفاقه
أو إرفاق الـ Project
وآسف على إزعاجكم
أشكرك أخي half angel
جربت البرنامج , لكنه ماعمل ريستارت للجهاز
فقط يعد حتى 20 ثانية بعدها يتوقف ولا يعمل شيء
يا أخي موضوع إعادة تشغيل الجهاز أو إغلاقه مكرر في جميع أقسام لغات البرمجة في المنتدى وفي أغلب منتديات البرمجة في مواقع أخرى ...
لا أعلم ما الفائدة من تكرار هذه المواضيع ..
راجع المواضيع القديمة لتعرف المشكلة ...
راجع
ستجد في الشرح ضرورة وجود SE_SHUTDOWN_NAME privilege
ستجد مثال هنا
وإذا كنت تريد معلومات عن Privileges
MSDN غير كافية ؟؟
"First they ignore you, then they laugh at you, then they attack you, then you win"
===
اقتباسحُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971
===
اقتباسعبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــمو تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…