تبدیل متن به گفتار

سلامی دوباره خدمت شما دوستان عزیز و گرامی با آموزش تبدیل متن به گفتار در خدمتتون هستیم ...

ابتدا یک فایل Notpad باز کنید و کد های زیر را داخلش پست کنید :

Dim input, obj
input=InputBox("Enter your text:","Automatic")
Set obj =CreateObject("sapi.spvoice")
obj.Speak input

بعد آن را با نام دلخواه و با فرمت vbs ذخیره کنید که طرز مشخص کردن فرمت فایلم تو پست های قبلی یاد

داده شده و آن را اجرا کنید و متن دلخواهتونو داخل تکست باکس وارد کنید و روی دکه ی Ok کلیک کنید

اگر مشکلی در این پست داشتید می توانید در قسمت نظرات این پست باما در ارتباط باشید ...