[ad_1] متن خود را به نرم افزار مبدل گفتار تبدیل کنید تا کامپیوتر شما هر آنچه را که تایپ می کنید صحبت کند. مراحل : Notepad را باز کنید. کد زیر را کپی کنید و آن را در notepad پیست کنید. Dim message, sapi message=InputBox(“What do you want me to say?”,”Speak to Me”) Set sapi=CreateObject(“sapi.spvoice”) […]
[ad_1]
متن خود را به نرم افزار مبدل گفتار تبدیل کنید تا کامپیوتر شما هر آنچه را که تایپ می کنید صحبت کند.
مراحل :
Notepad را باز کنید.
کد زیر را کپی کنید و آن را در notepad پیست کنید.
Dim message, sapi
message=InputBox(“What do you want me to say?”,”Speak to Me”)
Set sapi=CreateObject(“sapi.spvoice”)
sapi.Speak message
فایل را با هر نام با پسوند vbs ذخیره کنید.
فایل را اجرا کنید، هر چیزی را که میخواهید در جعبه متن تایپ کنید و OK را فشار دهید.
[ad_2]
Source link
