كيف تجعل حاسوبك يرحب بك


سوف نتعرف على طريقة كيفية جعل حاسوبك يرحب بك
باسمك او اي جملة تريدها عندما تقوم بتشغيله عبر كود .....
تقوم بفتح المفكرة
notepad
ثم تضع الكود :
Dim speaks, speech 
speaks="almahwouss, Welcome to your Computer"; 
Set speech=CreateObject("sapi.spvoice") 
speech.Speak speaks


يمكنك وضع اي جملة مكان
(almahwouss, Welcome to your Computer)
وتحفظه بيصغة
vbs
بعد حفظ الكود بصيغة
 vbs 
تنقل الملف الى المسار التالي 
c:\documents and settings\all users\start menu\programs\startup

عند إعادة تشغيل الجهاز سوف يرحب بكم بالنص الذي كُتب هنا:
ونختم بهده الكلمات على أمل ان ألقاكم في موضوع اخر , شكرا على حسن تتبعكم

من فضلك شارك هذا الموضوع اذا اعجبك

ضع تعليقا أخي الكريم

ليست هناك تعليقات:

إرسال تعليق

جميع الحقوق محفوظة سيرفا للمعلوميات ©2014-2015 | ، نقل بدون تصريح ممنوع . Privacy-Policy| أنضم ألى فريق التدوين