Perintah kompter Berbicara....
• Buka Notepad
• Copy dan Pastekan pada notepad script berikut ini :
Dim message, sapi
message=InputBox("What do you want me to say?","Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message
*( Hanya Tulisan Berwarna Merah saja ) Perhatikan lagi Script yang di notepad anda.
• Simpan file dengan nama bebas, terserah anda dengan extension .vbs
Contoh :
( namaterserahanda.vbs ) bukan berektension .txt
• Untuk menjalankan dobel klik file yang telah dibuat, ketikkan tulisan yang ingin dikonversikan ke voice
• Klik OK untuk mendengarkan.
Tidak ada komentar:
Posting Komentar