XProfan

'Liest Clipboad-Text avant (Win-10 allemand Vorleser)
'ici seulement DemoText. écrit .vbs sur Desktop, cela wieder autom. gelöscht wird.
ClearClip:PutClip \
"Testtext: Alexander besitzt quatre T-Shirts et trois Kappen. qui T-Shirts "+\
"haben qui Farben rouge,vert,bleu et jaune, qui Kappen sommes rouge,vert et bleu. "+\
"Alex muss so tôt aufstehen, dass es encore dunkel ist - mais il bekäme qui Augen "+\
"ohnehin pas richtig sur. comment hoch ist qui probabilité, qui T-Shirt et "+\
"Kappe qui selbe la couleur avons, si il entier verschlafen cela erste la fois zufällig dans "+\
"den Wäschekasten greift?"
Var t$=GetClip$():t$=Translate$(t$,"\n"," ")
Titre de la fenêtre "ClipSpeak":Fenêtre Style 24:Fenêtre 0,0-100,80
var fn$=getenv$("USERPROFILE")+"\\desktop\\clpspk.vbs":assign #6,fn$:rewrite #6
imprimer #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
cas fileexists(fn$):winexecWait("wscript.exe "+fn$,1):Effacer #6
Fin

Faible s,p:s="Alexander besitzt quatre T-Shirts et trois Kappen. qui T-Shirts avons qui Farben rouge, Gruen, bleu et jaune, qui Kappen sommes rouge, gruen et bleu. j'ai aucun holprige Stimme! Gruss, Eliza"
Set p=CreateObject("sapi.spvoice"):p.Speak s

Faible s,p:s="Alexander besitzt quatre T-Shirts et trois Kappen. qui T-Shirts avons qui Farben rouge, Gruen, bleu et jaune, qui Kappen sommes rouge, gruen et bleu. j'ai aucun holprige Stimme! Gruss, Eluiesa"
Set p=CreateObject("sapi.spvoice"):p.Speak s

Var t$=GetClip$():t$=Translate$(t$,"\n"," ")
Titre de la fenêtre "ClipSpeak":Fenêtre Style 24:Fenêtre 0,0-100,80
var fn$=getenv$("USERPROFILE")+"\\desktop\\clpspk.vbs":assign #6,fn$:rewrite #6
imprimer #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
cas fileexists(fn$):winexecWait("wscript.exe "+fn$,1):Effacer #6:Fin