الموضوع: حصري على ج-ع سكريبت صغير vbs لوضع رسالة في بدء اتشغيل الجهاز

[center:36t8zbgs]

السلام عليكم

اليوم إرتأيت إن أضع بيت أيديكم الفاضلة سكريبت صغير من برمجتي لوضع رسالة عند بدء التشغيل

أولا ندخل إلى المحرر notepad

ثم ننسخ التالي

كود:

Option Explicit 
On Error Resume Next 
Dim wsh, box1, box2, str1, str2 

Set wsh = CreateObject("WScript.Shell") 
str1 = wsh.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeCaption")
str2 = wsh.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeText") 
box1 = InputBox("أدخل عنوان رسالة بدء التشغيل", "عنوان رسالة بدء التشغيل", str1)
box2 = InputBox("أدخل محتوى رسالة بدء التشغيل", "محتوى رسالة بدء التشغيل", str2) 
wsh.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeCaption", box1, "REG_SZ" 
wsh.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeText", box2, "REG_SZ" 
MsgBox ("رسالة بدء التشغيل مسجلة -جميع الحقوق محفوظة لجامع العلوم."), 64, "إنتهت العملية"

[/center:36t8zbgs]

و نقوم بحفظه من خلال fichier ثم enregistrer sous

ثم نسميه إي إسم و لكن بصيغة vbs
أي يكون مثلا الإسم message.vbs

ثم بعد الحفظ ندخل فيه

و نرى أنه في الأول يطلب العنوان فقط
ندخل عنوان الرسالة ثم ok
ثم تظهر نافذه أخرى للمحتوى
نقوم بإدخال المحتوى ثم ok
ثم يظهر تأكيد للعملية


و أيضا السكريبت معد مسبقا للذي لا يحب الصنع اليدوي
هنا تحميله واجد

هنااا

و مبرووك عليكم
و إذا كان هنالك أي خطأ في السكريبت المرجو إبلاغي لتصحيحه


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

ماشاء الله ....بارك الله فيك ....هل السكريبت فعلا من برمجتك ....
سااجربه ولي عودة للموضوع

أهلا أخي حمزة ♥
بالطبع من برمجتي و لي عدة برمجات أخرى لكن للأسف بعضها وضعت فيه حقوقاو شعارات لمنتدى آخر وهذا قبل تعرفي على جامع العلوم ♥

أخي حمزة تفضل هذا السكريبت
http://www.zshare.net/download/5813546468860adc/

و أعطني فيه رأيك ♥

و هذا ايضا
http://www.zshare.net/download/58135542b086fa28/

بارك الله فيك...فعلا رائع....ونعم جربتهم وهذه ملاحاظاتي ..
الاول....(رسالة بدء التشغيل) لوكانت الرسالة في الوسط لكانت احسن ...الواجهة الرسومية لوكانت فيها بعض الجماليات (انصحك بدراسة الدلفي )ايضا لو كان الاطار اقل حجما .
الثاني ...(هل انت مشترك في جامع العلوم ) بسيط ورائع ....اعجبني
الثالث....( فتح قارئ الاقراص )وهو الذي اعجبني خاصة ........

****
ملاحظة بخصوص موقع الرفع افضل www.4shared.com على www.zshare.com من وجهة نظري فكيثرا ما يعلق والاشهارات به تقلق ..الخ
**بما انك مهتم بالبرمجة فانصحك بتجربة ليونكس (ubuntu8.04 المفضل لدي وتجد به الكثير لانه مفتوح المصدر وفيه العجب )كما انصحك بدراسة الــ c/c++

السلام عليكم
الحمد لله أنها أعجبتك ♥ و أتمنى أن فاتح الأقراص لم يقلقك ههه ♥ 4shared لدي حساب فيه و لكنني لم أرد الرفع فيه البارحة نسبة للإشهارات التي كانت فيه البارحة ♥ بالنسبة للينوكس ubuntu أحبه كثيرا و كل شيئ في الجهاز مثله أي الثيم + مؤشرات الفارة + الأيقونات أي كل شيئ
لكن النظام xp لأنني أعشق التعديل عليه ♥
و لو كانت لدي سرعة نت جيدة لرفعت لكم عدة نسخ xp معدلة قليلا ☺ من طرف أصابعي و نفسي ♥ ههه
و البرمجة ليس لدي الوقت الكافي لها فقط فلا أستطيع تعلم المزيد حاليا و للأسف لأنني لم أتعلم في المدرسة أو شيئ من هذا القبيل بل بواسطة دروس من أصدقائي مغاربة و جزائريين و أيضا بعض الكتب ♥

شكرا لكم على الشرح

العفو أخي علاء شرفتني بمرورك العطر ♥

بارك الله فيك على الشرح الرائعع