speaks
Dim message, sapi
message=InputBox("Mit olvassak fel?","speaks")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message
Copy-Paste txt - save as ****.vbs
Cylex
Budapest... Kecskemét... Pécs... Békéscsaba... Miskolc... Szeged... Székesfehérvár... Győr... Debrecen... Eger... Szolnok... Tatabánya... Salgótarján... Kaposvár... Nyíregyháza... Szekszárd... Szombathely... Veszprém... Zalaegerszeg... Budaörs... Sopron... Érd... Gödöllő... Siófok... Cegléd...
http://www.cylex-tudakozo.hu/terkep/budapest.html
Feliratkozás:
Megjegyzések (Atom)
