Beni kompjuterin tuaj te flas (pa program)

Beni kompjuterin tuaj te flas (pa program)

--------------------------------------------------------------------------------

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