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.
__________________ By : KAPITEN| __________________

Shumm senn i fortt po qee edhe ktoo qee e kam ditt