هناك ميزة رائعة في Windows تتيح لك جعل جهاز الكمبيوتر الخاص بك يتحدث أو يتكلم ما تقوله! تستفيد هذه الطريقة من واجهة برمجة تطبيقات مدمجة مثبتة على أنظمة التشغيل Windows XP و Vista و 7 و 8 و 10 تسمى SAPI (واجهة برمجة تطبيقات الكلام).
Microsoft Speech API هو ما يتم استخدامه لميزة إمكانية الوصول إلى تحويل النص إلى كلام المضمنة في Windows. يمكنك أيضًا كتابة برامج تستدعي واجهة برمجة التطبيقات ، مما يسمح لك بالسماح لتطبيقاتك بالتحدث ، ولكن هذا للمطورين.
جدول المحتويات
- نص الإدخال ، نطق الرسالة
- تكوين إعدادات SAPI Voice
- جدولة ملف البرنامج النصي
مجرد جعل جهاز الكمبيوتر الخاص بك يقول ما تريد هو أمر سهل للغاية في الواقع! في هذه المقالة ، سأوضح لك كيفية إنشاء برنامج نصي VBS يأخذ إدخالاً نصيًا من مستخدم ثم نطقه. سأذكر أيضًا كيفية كتابة التعليمات البرمجية الثابتة للنص الذي تريد نطقه ثم جدولة هذا البرنامج النصي ليتم تشغيله في أحداث معينة مثل بدء تشغيل Windows أو تسجيل الخروج.
نص الإدخال ، نطق الرسالة
لنبدأ بنص بسيط سينبثق مربع حوار حيث يمكنك كتابة ما تريد أن يتحدث به Windows. أولاً ، انطلق وافتح برنامج "المفكرة".
الخطوة 1: الصق النص التالي في مستند جديد:
Dim message, sapi
message=InputBox(“Enter the text you want spoken”,”Speak This”)
Set sapi=CreateObject(“sapi.spvoice”)
sapi.Speak message
لاحظ أنه عند نسخ نص من متصفح الويب الخاص بك ولصقه في برنامج Notepad ، فإن علامات الاقتباس ستتسبب في حدوث مشكلات. قبل حفظ الملف ، تحتاج إلى متابعة وحذف كل اقتباس (") وإعادة كتابة الاقتباس. في المثال أدناه ، هناك ستة اقتباسات. يجب أن تبدو مثل الصورة أدناه.
![كيف تجعل جهاز الكمبيوتر الخاص بك يتحدث / يتكلم ما تكتبه كيف تجعل جهاز الكمبيوتر الخاص بك يتحدث / يتكلم ما تكتبه](/resources8/c6/image-982-1213191951411.png)
الآن عندما تذهب لحفظ الملف ، أعطه أي اسم ، ولكن تأكد من كتابة .VBS أيضًا بعد الاسم. بعد ذلك ، بالنسبة إلى المربع حفظ بنوع ، اختر كل الملفات بدلاً من المستندات النصية الافتراضية.
![كيف تجعل جهاز الكمبيوتر الخاص بك يتحدث / يتكلم ما تكتبه كيف تجعل جهاز الكمبيوتر الخاص بك يتحدث / يتكلم ما تكتبه](/resources8/c6/image-259-1213191952267.png)
الآن انقر نقرًا مزدوجًا فوق ملف VBS وسترى مربع إدخال حيث يمكنك كتابة النص الذي تريد نطقه! اكتب شيئًا وانقر فوق موافق.
![كيف تجعل جهاز الكمبيوتر الخاص بك يتحدث / يتكلم ما تكتبه كيف تجعل جهاز الكمبيوتر الخاص بك يتحدث / يتكلم ما تكتبه](/resources8/c6/image-3606-1213191953324.png)
إذا فعلت كل شيء بشكل صحيح ، يجب أن تسمع صوتًا ذكرًا أو أنثويًا يتحدث عن جملتك. إذا تلقيت أي نوع من رسائل الخطأ ، فتأكد من نسخ النص ولصقه مرة أخرى واستبدال علامات الاقتباس هذه.
تكوين إعدادات SAPI Voice
هذا ممتع ، ولكن يمكننا أيضًا تكوين جهاز الكمبيوتر الصغير الناطق لدينا بإعدادات مختلفة. يمكننا تغيير مستوى الصوت ومدى سرعة أو إبطاء المحادثات الصوتية وتغيير الجنس بين الذكر والأنثى. إليك بعض الأمثلة على الكود حيث أضفت سطرين إضافيين.
Dim message, sapi
message=InputBox(“Enter the text you want spoken”,”Speak This”)
Set sapi=CreateObject(“sapi.spvoice”)
Set sapi.Voice = sapi.GetVoices.Item(1)
sapi.Rate = 0
sapi.volume = 100
sapi.Speak message
المعدل الافتراضي هو 0 والنطاق من -10 إلى 10. -10 سيتحدث الصوت ببطء شديد و 10 سيتحدث بسرعة فائقة. تم ضبط مستوى الصوت بشكل افتراضي على 100 والنطاق من 0 إلى 100. سيسمح لك السطر الذي يبدأ بـ Set sapi.Voice بالتغيير إلى صوت آخر ، إذا كان مثبتًا على نظامك.
لاحظ أن عدد الأصوات التي يمكنك الاختيار من بينها يعتمد على نظام التشغيل. في Windows 7 ، يوجد صوت واحد فقط ، Microsoft Anna.
![كيف تجعل جهاز الكمبيوتر الخاص بك يتحدث / يتكلم ما تكتبه كيف تجعل جهاز الكمبيوتر الخاص بك يتحدث / يتكلم ما تكتبه](/resources8/c6/image-918-1213191954443.png)
في Windows 10 ، يوجد صوتان: Microsoft David و Microsoft Zira كما هو موضح أدناه.
![كيف تجعل جهاز الكمبيوتر الخاص بك يتحدث / يتكلم ما تكتبه كيف تجعل جهاز الكمبيوتر الخاص بك يتحدث / يتكلم ما تكتبه](/resources8/c6/image-1025-1213191955543.jpg)
![كيف تجعل جهاز الكمبيوتر الخاص بك يتحدث / يتكلم ما تكتبه كيف تجعل جهاز الكمبيوتر الخاص بك يتحدث / يتكلم ما تكتبه](/resources8/c6/image-3854-1213191956404.jpg)
إذا كان هناك صوت واحد مثبت على نظامك ، فعليك تغيير ذلك المسمى sapi.GetVoices.Item (1) إلى sapi.GetVoices.Item (0) ، وإلا فستتلقى رسالة خطأ عند محاولة تشغيل البرنامج النصي. يمكنك أيضًا إنشاء مستند Notepad آخر ولصق الكود أدناه فيه ، والذي سيخبرك بالأصوات المثبتة. احفظه كملف .VBS كما هو موضح أعلاه وقم بتشغيله.
Set VObj = CreateObject(“SAPI.SpVoice”)
For Each Voice In VObj.getvoices
I = I + 1
msgbox “” & (I – 1) & ” – ” & Voice.GetDescription
Next
حتى الآن ، كنا نستخدم مربع الحوار المنبثق هذا لإدخال نص ، ولكن يمكنك أيضًا كتابة رسالتك في ملف البرنامج النصي. سيكون هذا مفيدًا إذا أردت جدولة البرنامج النصي ليتم تشغيله تلقائيًا. من الواضح أنه يمكن استخدام هذا لمزحة أصدقائك وعائلتك وهو يعمل بشكل جيد حقًا.
فقط تخيل أن شخصًا ما يشغل جهاز الكمبيوتر الخاص به ويسمع الكمبيوتر يقول له "مرحبًا جون ، أنا نعسان جدًا ، من فضلك لا تزعجني اليوم!" عندما يبدأ! يمكنني أن أعدك من التجربة ، إنها حالة هستيرية ويجب عليك بالتأكيد تجربتها.
من أجل ترميز الرسالة ، ما عليك سوى تغيير السطر الأخير إلى شيء مثل هذا:
sapi.Speak “Hello John, I am very tired today!”
جدولة ملف البرنامج النصي
الآن بعد أن قمت بترميز رسالتك بشكل ثابت للهدف المقصود ، عليك ببساطة تشغيلها عندما تريد. إذا كنت خبيرًا في التكنولوجيا ، فيمكنك استخدام برنامج مثل AutoIt ، والذي سيسمح لك بالقيام بأشياء متطرفة مثل تشغيل ملف البرنامج النصي الخاص بك عند فتح برنامج معين أو عند تكبير النوافذ أو تصغيرها.
ليس لدي وقت للدخول في كل ذلك في هذا المنشور ، لكن لحسن الحظ ، تمتلك Microsoft ميزة مضمنة تسمى Task Scheduler تتيح لك القيام ببعض الأشياء المعقدة جدًا باستخدام البرامج النصية بسهولة.
تتناول رسالتي السابقة بالتفصيل كيفية جدولة ملف نصي ليتم تشغيله عند حدوث أحداث معينة في Windows. إذا كنت تواجه أي مشكلة في تشغيل البرنامج النصي الخاص بك ، فلا تتردد في نشر تعليق وسأحاول مساعدتك. يتمتع!