Cara Membuat Komputer Anda Bicara dan Mengikuti apa yang anda Ketik



Langsung Praktik Yukk...
  1. Pertama, buka notepad.
  2. Copy-Paste script berikut :

  3. Dim msg, sapi
    msg = InputBox ( "Apa yang Anda ingin saya katakan?", "apa yang anda fikirkan")
    Set sapi = CreateObject ( "sapi.spvoice")
    sapi.Speak msg


  4. Save as, kemudian pilih all files lalu kasih nama mypc.vbs  
  5. Selesai:
Coba sekarang anda klik 2x.. Gimana?? keren kan?? hehe

Atau kalau yang nggak mau menggunakan InputBox (Jadi pas di klik 2x langsung berbicara tanpa perlu memasukan kata-kata). Scriptnya seperti ini :

Dim msg, sapi
msg = "Ganti dengan kata-kata anda"
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg



When I see Your Smile :):):):)

0 komentar:

Post a Comment