Make Your Computer TALK!

chathupatiya

Well-known member
  • Sep 9, 2007
    10,577
    3,118
    113
    ලොකෙන් උතුම් රටේ
    elakiri wage wada machan

    1192728811783.gif
     
    Last edited:

    koondeGoda

    Member
    Nov 28, 2007
    4,892
    35
    0
    ₪ Hyper_Cube ₪
    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
     
    Nov 24, 2008
    14,813
    575
    0
    78
    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
    PHP:
    Dim userInput
    userInput = InputBox("Enter msg")
    Set Sapi = Wscript.CreateObject("SAPI.SpVoice") 
        do 
       Sapi.speak userInput
       userInput = InputBox("Enter msg")
    loop

    :rolleyes: