Tampilkan postingan dengan label script. Tampilkan semua postingan
Tampilkan postingan dengan label script. Tampilkan semua postingan

Kamis, 15 April 2010

Script Suara

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.spvoice")
sapi.Speak msg

lalu save as dalam bentuk .VBS

untuk mengetesnya, pertama nyalakan speaker , lalu ketik kalimat apa aja dikolom, lalu klik OK. Maka akan terdengar suara, persis seperti apa yg kita tulis kolom...
tapi suaranya kaya orang bule'
bukan pak lek ya???happy