XProfan

'Liest Clipboad-Texto antes (Win-10 Alemán Vorleser)
'Hier sólo DemoText. Escribe .vbs en Desktop, el otra vez autom. gelöscht se.
ClearClip:PutClip \
"Testtext: Alexander besitzt vier T-Shirts y drei Kappen. El T-Shirts "+\
"haben el Farben Rot,Grün,Blau y Gelb, el Kappen son rot,grün y blau. "+\
"Alex muss así früh aufstehen, dass lo todavía dunkel es - aber él bekäme el Augen "+\
"ohnehin no correcto en. Como hoch Es el Wahrscheinlichkeit, daß T-Shirt y "+\
"Kappe el selbe Farbe haben, si él bastante soñoliento el erste Tiempo zufällig en "+\
"den Wäschekasten greift?"
Var t$=GetClip$():t$=Translate$(t$,"\n"," ")
Título de la ventana "ClipSpeak":Ventana de Estilo 24:Ventana 0,0-100,80
var fn$=getenv$("USERPROFILE")+"\\desktop\\clpspk.vbs":assign #6,fn$:rewrite #6
imprimir #6,"Dim speaks, speech:speaks="+chr$(34)+t$+chr$(34)+":Conjunto speech=CreateObject("+\
Chr$(34)+"sapi.spvoice"+chr$(34)+"):speech.Speak speaks"+chr$(13):close #6
caso fileexists(fn$):winexecWait("wscript.exe "+fn$,1):Borrar #6
End

Dim s,p:s="Alexander besitzt vier T-Shirts y drei Kappen. El T-Shirts haben el Farben Rot, Gruen, Blau y Gelb, el Kappen son rot, gruen y blau. Yo habe no holprige Stimme! Gruss, Eliza"
Conjunto p=CreateObject("sapi.spvoice"):p.Speak s

Dim s,p:s="Alexander besitzt vier T-Shirts y drei Kappen. El T-Shirts haben el Farben Rot, Gruen, Blau y Gelb, el Kappen son rot, gruen y blau. Yo habe no holprige Stimme! Gruss, Eluiesa"
Conjunto p=CreateObject("sapi.spvoice"):p.Speak s

Var t$=GetClip$():t$=Translate$(t$,"\n"," ")
Título de la ventana "ClipSpeak":Ventana de Estilo 24:Ventana 0,0-100,80
var fn$=getenv$("USERPROFILE")+"\\desktop\\clpspk.vbs":assign #6,fn$:rewrite #6
imprimir #6,"Dim speaks, speech:speaks="+chr$(34)+t$+chr$(34)+":Conjunto speech=CreateObject("+\
Chr$(34)+"sapi.spvoice"+chr$(34)+"):speech.Speak speaks"+chr$(13):close #6
caso fileexists(fn$):winexecWait("wscript.exe "+fn$,1):Borrar #6:End