MeNinBoX Zone: Membuat komputermu berbicara seperti Robot

Membuat komputermu berbicara seperti Robot

Kali ini saya akan share script kecil yang akan membuat komputermu berbicara seperti robot.
Trik ini sebenarnya sudah lama, cuman...sapa tau msh ada yg blm tau.

berikut scriptnya :
=====================================

Dim Message, Speak
Message=InputBox("Enter Text to Talk o","Speak")
Set Speak=CreateObject("sapi.spvoice")
Speak.Speak Message

=====================================

simpan di notepad dan rename terserah kalian asal formatnya .vbs

double klik file vbs nya dan isi terserah kamu...maka komputer kamu akan berbicara sesuai yg kamu tulis. (jangan lupa pakai speaker masbro)

Dan jika ingin komputermu mengulang kata2nya...tambahkan loop, berikut kodenya :

======================================

Dim message, sapi message=InputBox("Enter the text you want spoken","speak this")
 set sapi=CreateObject("sapi.spvoice")
 For i=1 to 10
 sapi. Speak message
 Next

======================================

sengaja saya set menjadi 10X pengulangan, bagaimana jika kamu set 1000?

BRISIIIIKKKK.....!!!

Tidak ada komentar:

Posting Komentar

Silahkan beri komentar, hujatan, atau makian tentang isi dari posting ini

Copyright © MeNinBoX Zone Urang-kurai