|
Beni kompjuterin tuaj te flas (pa program)
Beni kompjuterin tuaj te flas:
Hapni notepadin
Kopjoni kete tekst dhe vendoseni ne dokumentin e notepadit:
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.
|
