Header Ads

طريقة جعل جهازك يلقى عليك التحية صوتيا عند فتحك له

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

1 - نفتح ملف TXT جديد و نكتب فيه الكود ده , حط بدل Welcome to your windows sir
الكلام الى تحب يقولهولك فى البداية و بدل EfhamComputer اسمك ...
كود:
Dim speaks, speech
speaks="Welcome to your windows sir, EfhamComputer"
Set speech=CreateObject("sapi.spvoice")
speech.Speak speaks
2 - و ندوس من قائمة file على save as و سميه اى اسم مثلا welcome to me و بامتداد .vbs و دوس save

3 - و نفتح الماى كمبيوتر نروح على المسار ده , غير ال Efhamcomputer الى اسم
المستخدم ( ستجد ملف user file الى فوق الماى كمبيروتر مسماه باسم المستخدم ) , خد
الملف copy و paste داخل الملف Startup الى فى المسار ...
كود:
C:\Users\EfhamComputer\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup

و لضمان تشغيل الصوت , نلغى صوت البداية بالذهاب الى run و نكتب فيها mmsys.cpl و ندوس ok

و نروح على تاب sound و نشيل علامة الصح من جنب جملة play windows startup sound و ندوس ok و نرستر الجهاز و نستمع للتحية الجميلة


و الى هنا يكون انتهى درس اليوم دمتم فى رعاية الله

ليست هناك تعليقات

( لا يلفظ من قول الا لديه رقيب عتيد ) صدق الله العظيم