1) Pertama, buka notepad.
Spoiler for langkah pertama:
Copy-Paste script berikut :
Dim msg, sapi
msg = InputBox ( "Apa yang Anda ingin saya katakan?", "Masukan kata-kata")
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg
Dim msg, sapi
msg = InputBox ( "Apa yang Anda ingin saya katakan?", "Masukan kata-kata")
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg
Nih contoh ss nya :
Spoiler for contoh:
2)Save as, kemudian pilih all files lalu kasih nama mypc.vbs
Selesai
Spoiler for contoh:
Coba sekarang anda klik 2x.. Gimana?? keren kan?? hehe
Spoiler for contoh:
Selesai silakan dicoba
Tidak ada komentar:
Posting Komentar