Dim userInput
userInput = InputBox("Enter msg")
Set Sapi = Wscript.CreateObject("SAPI.SpVoice")
'show inputbox until user enters 0
Do While userInput <> "0"
Sapi.speak userInput
userInput = InputBox("Enter msg")
Loop
Re , i modified it a bit the last it was posted ! it loops until user enter "0" (without quotes) ..can replace with whatever character you want !
PHP:Dim userInput userInput = InputBox("Enter msg") Set Sapi = Wscript.CreateObject("SAPI.SpVoice") 'show inputbox until user enters 0 Do While userInput <> "0" Sapi.speak userInput userInput = InputBox("Enter msg") Loop
Dim userInput
userInput = InputBox("Enter msg")
Set Sapi = Wscript.CreateObject("SAPI.SpVoice")
do
Sapi.speak userInput
userInput = InputBox("Enter msg")
loop

PHP:Dim userInput userInput = InputBox("Enter msg") Set Sapi = Wscript.CreateObject("SAPI.SpVoice") do Sapi.speak userInput userInput = InputBox("Enter msg") loop
![]()

yeah! right! so how do you break the loop without a sentinel ! ? Help me on that![]()
