خبير كمبيوتر يعلمك كيف تجعل جهازك يرحب بك

 


Dim speaks, speech


speaks="Welcome to your windows sir, yourname"


Set speech=CreateObject("sapi.spvoice")


speech.Speak speaks


ويضيف "العوارى" يمكننا نص التحية التى نريدها بـWelcome to your windows sir""،



 كما يمكننا وضع أسمائنا بدلا من yourname""، ثم نقوم بعد ذلك بالضغط على قائمة "file"



 ونختار منها save as"" ونسميه أى اسم مثلا welcome" بامتداد".vbs"



ليكون الاسم فى كالتالى "welcome.vbs"



ثم نضغط "save" ولنحفظه على سطح المكتب مثلا.



ويستكمل "العوارى" بعد ذلك نقوم بأخذ الملف الجديد "copy" ونفتح المسار التالى:



 




C:\Users\EfhamComputer\AppData\Roaming



\Microsoft\Windows\StartMenu\Programs\Startup

ونعمل "past" للملف الصوتى، ولضمان تشغيل الصوت نلغى صوت البداية



وذلك بالذهاب إلى قائمة "start" ونختار منها "run"



 ثم نكتب فيها "mmsys.cpl" ونضغط ok




ثم نذهب إلى زر sound ونحذف علامة صح الموجودة بجوار جملة



 play windows startup sound