PC talk with notepad

Waaaahhhh agak menarik.

Selepas penat menjelajah alam maya.

Terjemput benda ni, tak sangka notepad leh uat macam ni...

Macam google translate....

1. Buka notepad.

2. Copy ayat kat bawah ni.


Dim message, sapi
message=InputBox("Tulis je apa2 pun","Aku boleh bercakap")
Set sapi = createobject("sapi.spvoice")
sapi.speak message

3. Paste kat notepad

4. Save as 'pepejenama.vbs'

5. Setel....

Credit to Mr Google....