XProfan

'Liest Clipboad-Text vor (Win-10 deutsche Vorleser)
'Hier nur DemoText. Schreibt .vbs auf Desktop, das wieder autom. gelöscht wird.
ClearClip:PutClip \
"Testtext: Alexander besitzt vier T-Shirts und drei Kappen. Die T-Shirts "+\
"haben die Farben Rot,Grün,Blau und Gelb, die Kappen sind rot,grün und blau. "+\
"Alex muss so presto aufstehen, dass es noch dunkel ist - aber er bekäme die Augen "+\
"ohnehin nicht richtig auf. Wie hoch ist die Wahrscheinlichkeit, daß T-Shirt und "+\
"Kappe die selbe Farbe haben, wenn er ganz verschlafen das erste Mal zufällig in "+\
"den Wäschekasten greift?"
Var t$=GetClip$():t$=Translate$(t$,"\n"," ")
WindowTitle "ClipSpeak":WindowStyle 24:Window 0,0-100,80
var fn$=getenv$("USERPROFILE")+"\\desktop\\clpspk.vbs":assign #6,fn$:rewrite #6
print #6,"Dim speaks, speech:speaks="+chr$(34)+t$+chr$(34)+":Set speech=CreateObject("+\
Chr$(34)+"sapi.spvoice"+chr$(34)+"):speech.Speak speaks"+chr$(13):close #6
case fileexists(fn$):winexecWait("wscript.exe "+fn$,1):Erase #6
End

Dim s,p:s="Alexander besitzt vier T-Shirts und drei Kappen. Die T-Shirts haben die Farben Rot, Gruen, Blau und Gelb, die Kappen sind rot, gruen und blau. Ich habe keine holprige Stimme! Gruss, Eliza"
Set p=CreateObject("sapi.spvoice"):p.Speak s

Dim s,p:s="Alexander besitzt vier T-Shirts und drei Kappen. Die T-Shirts haben die Farben Rot, Gruen, Blau und Gelb, die Kappen sind rot, gruen und blau. Ich habe keine holprige Stimme! Gruss, Eluiesa"
Set p=CreateObject("sapi.spvoice"):p.Speak s

Var t$=GetClip$():t$=Translate$(t$,"\n"," ")
WindowTitle "ClipSpeak":WindowStyle 24:Window 0,0-100,80
var fn$=getenv$("USERPROFILE")+"\\desktop\\clpspk.vbs":assign #6,fn$:rewrite #6
print #6,"Dim speaks, speech:speaks="+chr$(34)+t$+chr$(34)+":Set speech=CreateObject("+\
Chr$(34)+"sapi.spvoice"+chr$(34)+"):speech.Speak speaks"+chr$(13):close #6
case fileexists(fn$):winexecWait("wscript.exe "+fn$,1):Erase #6:End