Register to Get Access to all the Stuff!!!
To Subscribe to Mobile Alerts Click Here
Now Receive Updates to Mobile by Free Subscription Send SMS
Hot: VB Script to make your PC Talk
Make you Pc talk without any software.
Copy this and paste in notepad:
Dim msg, sapi
msg=InputBox("Enter your text","Talk it")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg
Then save it as .vbs extension
Run the file and enter whatever text you want.
For those you want it like a loop:
Copy this and paste in notepad:
Dim msg, sapi
do
msg=InputBox("Enter your text","Talk it")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg
loop until msg=""
Then save it as .vbs extension
Run the file and enter whatever text you want.
What is does is after the enter text, it would talk then pop back up.
Close by clicking cancel or leaving message blank.
How to make it Read any text file you saved, once it is in the same directory.
Copy this and paste in notepad:
Const ForReading = 1
strText = InputBox("Please type in the name of the file you want to read the file,
the file has an extension .txt","Read text files from notepad")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objText = objFSO.OpenTextFile(strText + ".txt", ForReading)
strText = objText.ReadAll
objText.Close
Set Sapi = Wscript.CreateObject("SAPI.SpVoice")
Sapi.speak strText
Then save it as whatever you want.vbs extension
Open notepad write whatever you want there and save it with the default extension which is usually .txt
Now make sure the text file is in the same directory as the .vbs you save.
Run the .vbs and enter the name of the text file, caps does not matter
Related posts:
Leave a Reply
Services From SharingportaL
Live Cricket Score
;
;
;
;
;
;
;