How to make your computer talk/speak what you type كيفية جعل جهاز الكمبيوتر الخاص بك الحديث / الكلام ما لكم من نوع
Posted on November 3, 2008 at 5:25 am تنشر على 3 تشرين الثاني / نوفمبر ، 2008 في 5:25 صباحا
Here’sa cool little feature of Windows that can be abused so that you can make your computer talk or speak whatever you tell it! Here'sa تبرد قليلا سمة من سمات ويندوز التي يمكن أن يساء استعمالها بحيث يمكنك جعل جهاز الكمبيوتر الخاص بك أو الحديث في الكلام مهما قلت! This method takes advantage of a built-in API installed on most Windows XP machines called SAPI (Speech Application Programming Interface). وهذه الطريقة تستفيد من المدمج في API تركيب ويندوز إكس بي على معظم الآلات ودعا SAPI (خطاب واجهة برمجة التطبيقات).
The Microsoft Speech API is what is used for the Narrative accessibility feature built into Windows. مايكروسوفت خطاب API هو ما يستخدم لسرد ميزة الوصول إلى بني ويندوز. You can also write programs that call the API, which would allow you to let your applications speak. كما يمكنك أن أكتب برامج الكلمة بمقاييس المعهد ، الأمر الذي يسمح لك ليكن كلامكم كل الطلبات في الكلام.
But making your computer say what you want is pretty easy actually! ولكن جعل جهاز الكمبيوتر الخاص بك ويقول ما تريده هي جميلة سهلة فعلا! Here’s how you do it: وإليك كيف تفعل ذلك :
Step 1: Open Notepad and paste the following text into a new document: الخطوة 1 : افتح المفكرة ولصق النص التالي إلى وثيقة جديدة :
Dim message, sapi رسالة قاتمة ، sapi
message=InputBox(”Enter the text you want spoken”,”Speak This”) رسالة = InputBox ( "أدخل النص الذي تريد تحدث" ، و "الكلام هذا")
Set sapi=CreateObject(”sapi.spvoice”) مجموعة sapi = CreateObject ( "sapi.spvoice")
sapi.Speak message رسالة sapi.Speak
It should basically look something like this: وينبغي أن ننظر في الأساس شيئا مثل هذا :
Now when you go to save the file, give it any name, but make sure you also type .VBS after the name. الآن عندما تذهب إلى حفظ الملف ، وتعطيه أي اسم ، ولكن تأكد من النوع أيضا. VBS بعد اسم. Also, for the Save as type box, choose All files instead of the default Text Documents. أيضا ، لحفظ النوع المربع ، في اختيار جميع الملفات بدلا من تقصير نص الوثائق.
Now double-click on the VBS file and you should see a input box where you can type in the text you want spoken! الآن انقر مرتين على ملف VBS ويجب عليك أن ترى مربع الإدخال ، حيث تستطيع نوع في النص الذي تريد تحدث! Go ahead and type something and click OK. المضي قدما في شيء ونوع وانقر فوق موافق.
![]()
That’s it! هذا كل شيء! Your computer will speak to you in the default voice, which for me was some scary seductive male type of voice! جهاز الكمبيوتر الخاص بك وسوف أتحدث إليكم في تقصير الصوت ، الذي كان لي لبعض مخيفة مالي مغر النوع من الصوت! What about yours? وماذا عن مستقبلك؟ Enjoy (This would be fun to do on someone else’s computer as a joke.) تتمتع (وهذا من شأنه أن يكون متعة للقيام شخص آخر على الكمبيوتر على سبيل المزاح.)
» Filed Under »المقدمة بصورة مشتركة بموجب أحكام Fun Stuff وسائل الترفيه
Save this page احفظ هذه الصفحة | Stir it up on Mixx اثارة الامر على Mixx | |
Add to Reddit أضف إلى [بلوجم] |
Related Posts الوظائف ذات الصلة
- How to open multiple programs in Windows at once كيفية فتح عدة برامج في ويندوز مرة واحدة
- How to quickly paste copied text to Notepad بسرعة كيفية لصق نسخ النص إلى المفكرة
- Hide and lock text files in Windows اخفاء وقفل الملفات في ويندوز النص
- Extract text from PDF, DOC, HTML, CHM, and RTF files نص مقتطف من قوات الدفاع الشعبي ، شعبة الاتصال ، هتمل ، وآلية تبادل المعلومات ، وملفات RTF
- How to open MDI files in Office 2007 كيفية فتح واجهة المستندات المتعددة ملفات في مكتب 2007























if I put code like this: لو كنت وضعت رمز مثل هذا :
Dim message, sapi رسالة قاتمة ، sapi
Set sapi=CreateObject(”sapi.spvoice”) مجموعة sapi = CreateObject ( "sapi.spvoice")
sapi.Speak “Who are you?” sapi.Speak "من أنت؟"
And then I set it to run at restart on someone’s pc, so when it restart… Will it work??? وبعد ذلك لي ان تشغله في استئناف الكمبيوتر الشخصي على شخص ما ، حتى عند استئناف العمل... وهل؟؟؟
Thank شكرا
not working for me… لا عمل لي...
it says: تقول :
LINE: 2 السطر الخامس : 2
CHAR: 18 شار : 18
ERROR: INVALID CHARACTER خطأ : حرف غير صالح
CODE: 800A0408 مدونة : 800A0408
SOURCE: MICROSOFT VBSCRIPT COMPILATION ERROR المصدر : مايكروسوفت VBSCRIPT تجميع خطأ
can you tell me what am I doing wrong???? هل تستطيع أن تقول لي ماذا أفعل الخطأ؟؟؟؟
ok, ok. طيب ، طيب. I found it!!! وجدتة!
the ” character was wrong. "الطابع كان خطأ. Ok, it works great! طيب ، يعمل كبير! Thanks… شكرا...
How can I change the voice???? كيف يمكنني تغيير صوت؟؟؟؟