Script ini dapat membuat komputer dapat berbicara sesuai kata / kalimat yang kita tulisakan. Script sederhana ini bekerja dengan cara mengkonversi / mengubah tulisan menjadi suara dengan menggunakan notepad. Caranya, kamu copas saja script di bawah ini ke dalam notepad.
Dim message, sapi
message=InputBox("What do you want me to say?","Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message
message=InputBox("What do you want me to say?","Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message
Lalu save file tersebut dengan format .vbs
Contoh : Komputer.vbs
Untuk menjalankannya, tinggal double klik pada file yang sudah di simpan terebut, lalu ketikkan kata / kalimat yang ingin didengarkan. Kemudian klik oke untuk mendengarkan.
Jangan lupa share ya. . .
0 komentar:
Posting Komentar
Jangan lupa komentarnya, . . :D