تسجيل الدخول

لجعل الكمبيوتر ينطق بالإنجليزية فقط .. إليكم الكود التالي ...

اقتباس:
Dim userInput


userInput = InputBox("Write a message for me to say")


Set Sapi = Wscript.CreateObject("SAPI.SpVoice")

Sapi.speak userInput

نفتح المفكرة أي ال bloc notes ..
ننسخ الكود ونعمل لصق في ملف المفكرة ونحفظ الملف بأي إسم لاكن لا تنسو وضع الملف بصيغة vbs ...
مثلا أنا سميتو the lats one.vbs ..
ونقوم بحفظه في سطح المكتب مثلا نضغط عليه مرتين تظهر لدينا نافذة صغيرة وفيها مكان للكتابة نكتب ما شئنا ومن ثم نضغط على أوكي والكمبيوتر يقوم بنطقها بكل طلاقة ..



للعلم هذا الكود هو عبارة عن كود خاص بالفيجوال باسيك لما نقوم بحفظه في ملف ونجعل غتهصي vbs ينتج لدينا سكربت فيجوال باسيك .. والفيجوال باسيك هو أحد لغات البرمجة ...
أرجو أن تعجبكم الطريقة تحياتي للجميع ..
والسلام عليكم ...