اجعل حاسوبك يرحب بك باسمك
29-12-2013, 11:12 AM
السلام عليكم ورحمة الله تعالى وبركاته
سوف نتعرف على طريقة كيفية جعل حاسوبك يرحب بكباسمك او اي جملة تريدها عندما تقوم بتشغيله عبر كود صغير فقط
اولا
تقوم بفتح المفكرة
notepad
ثم تضع الكود
Dim speaks, speech
speaks="abdo, Welcome to your Computer";
Set speech=CreateObject("sapi.spvoice")
speech.Speak speaks
وتحفظه بيصغة
vbs
يمكنك وضع اي جملة مكان
(abdo, Welcome to your Computer)
---------------------
بعد حفظ الكود بصيغة
vbs
تنقل الملف الى المسار التالي
c:\documents and settings\all users\start menu\programs\startup
م/ن
