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.....!!!
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.....!!!
Posting Komentar