Rabu, 02 Juni 2010

Buat Komputermu Berbicara (VBS)

Silahkan copas script berikut ke notepad :
Code:
Dim msg, sapi
msg=InputBox("Tulis kalimat dikolom, lalu klik OK","Dedicated For IF Members")
Set sapi=CreateObject("sapi.spvoic e")
sapi.Speak msg
lalu save as dalam bentuk .VBS

untuk mengetesnya, pertama2x nyalakan speaker , lalu ketik kalimat apa aja dikolom, lalu klik OK. Maka sesaat kemudian akan terdengar suara, persis seperti apa yg kita tulis kolom...

selamat mencoba...

Kumpulan Software2 gratis: www.software4.tk

Tidak ada komentar:

Posting Komentar

Silahkan posting komentar anda