(B)uronan(K)omputer(M)ertua

Disini saya akan meberikan hiburan bagi para pencinta komputer. disini saya akan membuat windows anda berbicara sesuai keinginan anda.
1. buka notepad
2. copas script ini

Dim message, sapi

message=InputBox("What do you want me to say?","Speak to Me")

Set sapi=CreateObject("sapi.spvoice")

sapi.Speak message

3. simpan dengan namaapasaja.vbs
4. tes dengan klik 2 kali dan liat hasilnya



sumber : satria-wiguna.blogspot.com