الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

إيقاف الجهاز بعد الوقت المسجل

مغلق
بدأه MEMORY SYSTEM في 17 يونيو 2005 · 1 رد · 845 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

إخواني الأعزاء

السلام عليكم ورحمة الله وبركاته

أتمنى منكم كود لبرنامج :

1- يعمل عند بدء التشغيل .

2- لا يستطيع المستخدم إيقافه عن طريق ( ctrl+alt+del ) " علماً أنني أستخدم ويندوز XP ".

3- عند الوقت المدخل في السورس يطفأ الكمبيوتر تلقائياً .

4- إذا شغل المستخدم الكمبيوتر بعد الإطفاء يحذره برساله ويطفئ الجهاز مرررة أخرى .

5- أيضاً أكتب في السورس الوقت الذي أريد الجهاز يشتغل - عندها يتوقف البرنامج حتى الوقت الآخر - .

*******

وللتوضيح أكثر

أنا بإذن الله بعد أسبوع رايح أسافر للندن لدراسة اللغة الإنجليزية لمدة شهرين , وخلال هذه المده أخوي الصغير في المتوسط الآن راح يستخدم جهازي لين ماأرجع , ولذلك السبب بغيت البرنامج هذا

يقفل الجهاز الساعة الثانية عشر ليلاً - تجنباً للسهر وعواقبه - ومايقدر يفتحه إلا من الساعة السابعة صباحاً , زي كذا يومياً .

____________________

أتمنى أن الصورة اتضحت .

وشكراً لكم

#2

السلام عليكم أخي

أنا قمت بكتابة هذه الأسطر فقط لتلبية رغبتك و بناءا على توضيحك فان اخاك صغير و اظن انه ليس خبير في الكمبيوتر لذلك لم أقم بتعقيد البرنامج و قمت فقط باخفاء من قائمة ال Application التي تظهر عند الظغط على ctrl+alt+supp لكنه يوجد في ال Processus و اما عن تشغيله فيمكنك وضعه في ال StartUp بيدك قبل الذهاب الى لندن :D و أظن ان أخاك الصغير لن يعثر عليه خصوصا اذا جعلته Invisible اما اذا كان طني في غير محله و تطن أن أخاك لديه القدرة للوصول الى تلك الأماكن فيمكنني تعديل البرناج لجعله يسجل في الريجيستري و أمنع ظهور Task Manager

على كل هذا هو البرنامج و هو مع الكود معدل على حسب اختيارك يعني يطفئ الكمبيوتر اذا كان الوقت بين ال 00:00:00 و ال 07:00:00

.

.

.

.

حاولت ان أضع المرفق لكن لم أستطع يبدو انه هناك مشكل

لكن الكود صغير و سأكتبه لك

تضع تايمر في الفورم و تعدل ال Interval بتاعه الى 5000

ثم في ال Form_Load تكتب

Private Sub Form_Load()
App.TaskVisible = False
End Sub

اما في كود التايمر فتكتب

Private Sub Timer1_Timer()
If Time >= "00:00:00" And Time <= "07:00:00" Then
Shell "cmd /c ShutDown  -s -t 120 -c The_PC_Will_Automaticly_ShutDown_Please_Save_Your_Work", vbNormalFocus
End If
End Sub

و انا تحت أمرك في أي استفسار

تم تعديل هذه المشاركة بواسطة crazy-man في 17 يونيو 2005 في 03:11

هذا الموضوع مغلق.

مواضيع مشابهة