Na dann reiche ich mal mein "Clipspeak" ein. Nutzt in Windows vorhandene Mittel. Ein mit STRG-C vorher in die Zwischenablage kopierter Text wird laut vorgelesen, wenn die Einstellungen das erlauben.
Code
Var t$=GetClip$():t$=Translate$(t$,"\n"," ")
t$=Translate$(t$,chr$(34)," ")
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