VbScript

01/10/2012 16:01 jojokineu#1
Hallo,

wieso klappt mein folgender Code nicht?

PHP Code:
<command>      
<
listenFor>Hallo</listenFor>        
<
script language="VBScript" >         
<![
CDATA[          Function Zufallszahl (ByVal minByVal max)        
 
Rnd                     
Zufallszahl 
Int(min + (max min 1) * z)     
End Function   
Zufallszahl (3,12)  
IF 
Zufallszahl 8 THEN  
set ISpeechVoice 
=  CreateObject("SAPI.SpVoice")         
variable =  ISpeechVoice.Speak("Hallo")  
ELSE IF 
Zufallszahl 9 THEN  
set  ISpeechVoice 
CreateObject("SAPI.SpVoice")        
 
variable =  ISpeechVoice.Speak("Guten Tag")  
END IF                         
]]>  
</script>   
</command> 
Der Code ist teil eines Windows Speech Makros. Der Computer soll nach erkennen des Wortes "Hallo" zufällig eine Antwort auswählen und diese dann wiedergeben (Guten Tag/Hallo...). die Zahlen sind erstmal nur Beispiele.

Wie kann ich weiter vorgehen?

Danke!
01/10/2012 20:10 MoepMeep#2
Alles in einer Zeile, genial. Wie soll man das so gescheit lesen können? ;o
01/10/2012 21:13 jojokineu#3
sorry. hab es leider erst jetzt ändern können. Könnt ihr mir helfen?