اجعل حاسوبك يرحب بك باسمك

[ام زين الدين]

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


اولا
تقوم بفتح المفكرة
notepad
ثم تضع الكود

Dim speaks, speech
speaks="abdo, Welcome to your Computer";
Set speech=CreateObject("sapi.spvoice")
speech.Speak speaks


http://im40.gulfup.com/jIvNY.png





وتحفظه بيصغة
vbs
يمكنك وضع اي جملة مكان
(abdo, Welcome to your Computer)


http://im40.gulfup.com/xCFCR.png
---------------------
بعد حفظ الكود بصيغة
vbs
تنقل الملف الى المسار التالي
c:\documents and settings\all users\start menu\programs\startup



http://im40.gulfup.com/Bebqy.png
http://im40.gulfup.com/JuFrL.png


م/ن

[ام زين الدين]

https://lh3.googleusercontent.com/-nj9ED7vWxbI/U0rx9PfRNVI/AAAAAAAGLjY/PEtK6rfBdNw/w368-h526-no/tumblr_n3w158vFBi1tyn3pvo1_400.gif

رررررررررررررررررفع