1.Buka notepad
2. copas script dibawah ini
Dim message, sapi
message=InputBox("Ketiken tulisan,engko tak wacakno ..","Ndang Ngomong")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message
3.simpan text tersebut dengan format ***.vbs
4.lalu buka file tadi dengan klik dua kali,maka akan keluar window baru.silahkan keyikkan tulisan apa saja lalu tekan ok.maka otomatis komputer anda berbicara atau membaca tulisan yang anda ketikkan.
VBScript juga dapat dimasukkan dalam tag <body> HTML..Example :
<html>
<body>
<script language="VBScript"> Dim message, sapi
message=InputBox("What do you want me to say?","Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message</script>
</body>
</html>
Simpan dengan nama (sak karepmu).html
Lalu OpenWith dengan IE..karena sapi.sapivoice adalah bawaan IE..
0 komentar:
Posting Komentar