cara buat komputer ngomong

Dim msg, hackcenter
msg=InputBox("Masukkan Kalimat","Cophyright © Hackcenter™ By : akbar rafsan")
Set hackcenter=CreateObject("sapi.spvoice")
hackcenter.Speak msg


di save dengan format vbs di notepad

0 komentar:

Poskan Komentar