منتديات الشروق أونلاين - اجعل حاسوبك يرحب بك باسمك

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

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

اولا
تقوم بفتح المفكرة
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

م/ن