اوامرالفيجوال بيسك

[المبتدي]

ياشباب كل عام وانتم بالف خير
ابغى منكم امر يقوم باعادة تشغيل الويندوز او ايقاف تشغيل الويندوز
وكيف اصنع برنامج يقوم باظهار رسالة كل مدة معينة ارجو الرد بسرعة

------------------
ان لم تكن ذئبا اكلتك الذئاب

[T_zone]

هلا بالمبتدىء ...
إعذرني فأنا أيضا أبحث عن هذه الأجوبه ... فلو لقيتها .. لاتبخل على ..
طبعا سؤالك الثاني يعتمد على البرامج الساكنه في الذاكره ..
وعندي سؤال إضافي ..
كيف أسجل الملف في ال start up
بحيث إنه يشتغل مباشره ... دون تدخل من المستخدم ..
وكيف إنشأ له Shortcut في ال Desktop أيضا من قبله ..

تحياتي ... وبالتوفيق .. وعذرا ... فلو كنت أعرف الأجوبه لما بخلت بها عليك .

[M-006]

السلام عليكم
بالنسبة للأخ المبتدئ البرنامج الذي يقوم بايقاف تشغيل ويندوز
فهو كالتالي :
في General اكتب الكود التالي:
Private Const EWX_SHUTDOWN As Long = 1
Private Declare Function ExitWindowsEx Lib "user32" (ByVal dwOptions As Long, ByVal dwReserved As Long) As Long
ثم اضف زر امر واكتب الكود التالي فيه:
lngResult = ExitWindowsEx(EWX_SHUTDOWN, 0&)
فقط هذا هو
اما بالنسبة للبرنامج الذي يظهر رسالة كل فترة معينة فهو سهل جدا
اضف موقت Timer ثم اجعل خاصية Interval=8000 اي 8 ثواني ثم اكتب الكود
في الموقت
MsgBox ("Enter your message here") l
فقط

اما الاخ T Zone
اذا كنت تريد النسخ في Start Up
FileCopy "C:\yourProgram.exe" ,"C:\WINDOWS\Start Menu\Programs\StartUp\yourProgram.exe" l
وبنفس الطريقة في سطح المكتب ولكن غير المسار الى
C:\Windows\Deskop