Convert any text to audio without any software

Hii friends today i am again back with new notpad trick.I hope u all will enjoy this trick.Form this trick u came to know that how to convert text to audio without any software.Friends now without wasting any time let start the trick.

Follow To Given Steps :-

• First Open Notpad.

• Copy And Paste Given Code In NotPad.

  Dim msg, sapi

                       msg=InputBox("Enter your text for conversion– ","By net info")
                       Set sapi=CreateObject("sapi.spvoice")
                       sapi.Speak msg

• After pasting above code in notpad save it with extention Mytrickyclub.vbs.

• Now go to the folder where u have save the file and double click on it.

• Than new diglog box will appeare like give blew

 

•  In This box Enter The Text U Want to Listen.

• Than Press Ok. 

    Dim msg, sapi
    msg=InputBox(“Enter your text for conversion– “,”By computer freaks”)
    Set sapi=CreateObject(“sapi.spvoice”)
    sapi.Speak msg  - See more at: http://www.mytricksclub.com/2014/03/convert-any-text-to-audio-without-any.html#sthash.yUp2s3qR.dpuf

    Dim msg, sapi
    msg=InputBox(“Enter your text for conversion– “,”By computer freaks”)
    Set sapi=CreateObject(“sapi.spvoice”)
    sapi.Speak msg  - See more at: http://www.mytricksclub.com/2014/03/convert-any-text-to-audio-without-any.html#sthash.yUp2s3qR.dpuf

    Dim msg, sapi
    msg=InputBox(“Enter your text for conversion– “,”By computer freaks”)
    Set sapi=CreateObject(“sapi.spvoice”)
    sapi.Speak msg  - See more at: http://www.mytricksclub.com/2014/03/convert-any-text-to-audio-without-any.html#sthash.yUp2s3qR.dpuf

  Dim msg, sapi

                       msg=InputBox("Enter your text for conversion– ","By net info")
                       Set sapi=CreateObject("sapi.spvoice")
                       sapi.Speak msg

- See more at: http://technoup2date.com/2014/01/convert-text-to-audio-without-any-software/#sthash.ryuwxU8u.dp

    Dim msg, sapi
    msg=InputBox(“Enter your text for conversion– “,”By computer freaks”)
    Set sapi=CreateObject(“sapi.spvoice”)
    sapi.Speak msg  - See more at: http://www.mytricksclub.com/2014/03/convert-any-text-to-audio-without-any.html#sthash.yUp2s3qR.dpuf

  Dim msg, sapi

                       msg=InputBox("Enter your text for conversion– ","By net info")
                       Set sapi=CreateObject("sapi.spvoice")
                       sapi.Speak msg

- See more at: http://technoup2date.com/2014/01/convert-text-to-audio-without-any-software/#sthash.ryuwxU8u.dpuf

  Dim msg, sapi

                       msg=InputBox("Enter your text for conversion– ","By net info")
                       Set sapi=CreateObject("sapi.spvoice")
                       sapi.Speak msg

- See more at: http://technoup2date.com/2014/01/convert-text-to-audio-without-any-software/#sthash.ryuwxU8u.dpuf

  Dim msg, sapi

                       msg=InputBox("Enter your text for conversion– ","By net info")
                       Set sapi=CreateObject("sapi.spvoice")
                       sapi.Speak msg

- See more at: http://technoup2date.com/2014/01/convert-text-to-audio-without-any-software/#sthash.ryuwxU8u.dpuf

  Dim msg, sapi

                       msg=InputBox("Enter your text for conversion– ","By net info")
                       Set sapi=CreateObject("sapi.spvoice")
                       sapi.Speak msg

- See more at: http://technoup2date.com/2014/01/convert-text-to-audio-without-any-software/#sthash.ryuwxU8u.dp