تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تحويل النص إلى كلام باستخدام API من خلال VBScript
#1
كاتب الموضوع : AhmedEssawy

منقول من هنا :
http://www.bytemycode.com/snippets/snippet/646/




كود :
Option Explicit
[COLOR=#ff0000]'By Timbo

Const SVSFlagsAsync = 1
const SVSFPurgeBeforeSpeak = 2

Dim Speech
Dim FSO

CreateObjects
Main
DestroyObjects
Quit

Sub Main
Dim sText
sText = InputBox("Enter the text you want the computer to say", "Text2Speech")
sText = Trim(sText)
If sText <> "" Then
SpeakText sText
End If
End Sub

Sub SpeakText(sText)
On Error Resume Next
Speech.Speak sText, SVSFlagsAsync + SVSFPurgeBeforeSpeak
Do
Sleep 100
Loop Until Speech.WaitUntilDone(10)
End Sub

Sub StopSpeaking()
On Error Resume Next
Speech.Speak vbNullString, SVSFPurgeBeforeSpeak
Set Speech = Nothing
End Sub

Sub CreateObjects
Set Speech = CreateObject("SAPI.SpVoice")
Set FSO = CreateObject("Scripting.FileSystemObject")
End Sub

Sub DestroyObjects
Set Speech = Nothing
Set FSO = Nothing
End Sub

Sub Sleep(nTimeout)
WScript.Sleep nTimeout
End Sub

Sub Quit
WScript.Quit
End Sub[/COLOR]
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مواقيت الصلاة باستخدام جافا سكريبت RaggiTech 0 703 17-10-12, 02:02 PM
آخر رد: RaggiTech
  معرفة رقم ال IP من خلال VBScript RaggiTech 0 607 17-10-12, 02:01 PM
آخر رد: RaggiTech
  معرفة آخر مرة قمت فيها بزيارة الموقع VBScript RaggiTech 0 524 17-10-12, 02:01 PM
آخر رد: RaggiTech
  مثال بسيط على تغيير المكان باستخدام مبادئ Ajax RaggiTech 0 543 17-10-12, 02:00 PM
آخر رد: RaggiTech
  لمنع خاصيه الضغط بيمين الماوس خلال الصفحه RaggiTech 0 517 17-10-12, 02:00 PM
آخر رد: RaggiTech
  لعمل خلفية عشوائية من خلال javascript RaggiTech 0 463 17-10-12, 01:57 PM
آخر رد: RaggiTech
  لعمل Zoom على النص من خلال JavaScript RaggiTech 0 522 17-10-12, 01:56 PM
آخر رد: RaggiTech
  لتعطيل القيام ب Alt+F4 من خلال VBScript RaggiTech 0 258 17-10-12, 01:53 PM
آخر رد: RaggiTech
  لتشغيل صوتيات من خلال الويب ( Mid- Mp3- Wma ) RaggiTech 0 260 17-10-12, 01:52 PM
آخر رد: RaggiTech
  لاعاده تحويل الصفحه لصفحه اخري RaggiTech 0 206 17-10-12, 01:52 PM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم