برنامه سخنگو با نوت پد

به نام خدا

سلام به همه دوستان عزیز امروز میخوام یدونه ویروس سخنگو با نوت پد درست کنم

بریم برای اموزش:

1_اول کد زیر را در نوت پد وارد کنید:

Dim msg,sapi   msg=Inputbox(&quotMatneh englisi khod ra vared namaeed!&quot,&quotSokhango&quot)   Set sapi=CreateObject(&quotsapi.spvoice&quot)   sapi.Speak msg

2_کد را با فرمت vbs ذخیره کنید

3_بعد برنامه رو باز کنید بعد یک متن انگلیسی بدید کامپیوتر شما اون متن رو میخونه.

تا یک پست دیگه خدا نگه دار