- Buka notepad
- Copy dan paste kode di bawah ini kedalam notepad
Dim message, sapi
message=InputBox("What do you want me to say?","Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message
- Simpan ke dalam bentuk .vbs (contoh : ngomong.vbs)
- Klik 2 kali file yang sudah anda buat tadi
- Ketikkan kalimat yang anda ingin dengarkan
- Tekan oke untuk mendengarkan
DENNY25
Tidak ada komentar:
Posting Komentar