Beni kompjuterin tuaj te flas:

Hapni notepadin
Kopjoni kete tekst dhe vendoseni ne dokumentin e notepadit:

Cito:
Dim msg, sapi
msg=InputBox("Shkruaje tekstin këtu","Talk it")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg

Ruajeni dokumentin me prapashtesen .vbs
Pastaj hapeni dokumentin e ruajtur, ne hapsiren e treguar shkruajeni tekstin e deshiruar, dhe klikoni talk it.