كيفية عمل رسالة ترحيب صوتية للويندوز

بسم الله الرحمن الرحيم

سأشرح لكم كيفية عمل رسالة ترحيب صوتية تشتغل تلقائيا عند فتح الجهاز ..

نعمل مفكرة جديدة

ونضع بداخلها هذا الكود

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

وطبعا حط مكان كلمة Welcome to your PC الجملة اللي أنتا عايزها بس لازم بالأنجليزى ^^

ثم اعمل حفظ الملف save as بصيغة .vbs مثلا هتبقى welcome.vbs

هتظهر ايقونة هنعملها نسخ ونضعها فى المسار التالى

لو win8

C:\Users\username\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup

لو win7 or vista

C:\Users\UserName\AppData\Roaming\Microsoft\Window s\Start Menu\Programs\Startup

لو winxp

C:\Documents and Settings\All Users\StartMenu\Programs\Startup

تم الأنتهاء من الشرح و الأن قم بأعادة تشغيل جهازك و سوف تسمع رسالة الترحيب :)  

مع تحيات

مشاركة الموضوع